精确计算
CLOSE TABLES all
USE lk19
REPLACE fscz WITH 0 all
FOR i=1 TO RECCOUNT('lk19')
SELECT lk19
GO i
iwc=wc
SELECT fs18,wc,iwc-wc cs,ABS(wc-iwc) as csab FROM lk18 INTO CURSOR mpmp ORDER BY csab
REPLACE fs18 WITH mpmp.fs18 IN lk19
SELECT mpmp
fs1=fs18
wc1=wc
ncs=cs
IF ncs>0 &&ÕÒ²»µ½°´²åÖµ·¨¼ÆËã¡£
GO 2
fsp=fs1+(fs18-fs1)*ncs/(wc-wc1)
REPLACE fscz WITH fsp IN lk19
ENDIF
endfor
结果说明误差
CLOSE TABLES all
USE lk19
REPLACE fscz WITH 0 all
FOR i=1 TO RECCOUNT('lk19')
SELECT lk19
GO i
iwc=wc
SELECT fs18,wc,iwc-wc cs,ABS(wc-iwc) as csab FROM lk18 INTO CURSOR mpmp ORDER BY csab
REPLACE fs18 WITH mpmp.fs18 IN lk19
SELECT mpmp
fs1=fs18
wc1=wc
ncs=cs
IF ncs>0 &&ÕÒ²»µ½°´²åÖµ·¨¼ÆËã¡£
GO 2
fsp=fs1+(fs18-fs1)*ncs/(wc-wc1)
REPLACE fscz WITH fsp IN lk19
ENDIF
endfor
结果说明误差
[此贴子已经被作者于2019-7-4 14:40编辑过]
dBase有人接盘了。