|
楼主 |
发表于 2019-10-9 16:46:11
|
显示全部楼层
#1=10001
#2=601(DAO-CHANG)
#3=631(JIA-GONG-SHU-LIANG)
#4=661(HUAN-DAO-SHI-JIAN)
#5=#2+16(DAO-JU-SHU-LIANG)
WHILE[#2LE#5]DO1
IF[ABS[#[#2]-#[#1]]LE0.03]GOTO1
#[#3]=0
#[#4]=#3011-FIX[#3011*0.0001]*10000+FIX[#3012*0.01]*0.0001
#[#2]=#[#1]
N1
#2=#2+1
#1=#1+1
#4=#4+1
#[#3]=#[#3]+1
#3=#3+1
END1
#1=1000
#2=1000
#3=1000
#4=1000
#5=1000
#6=1000
#7=1000
#8=1000
#9=1000
#10=1000
#11=1000
#12=1000
#13=1000
#14=1000
#15=1000
#16=1000
#17=10000
#101=631
#102=1
WHILE[#101LE647]DO2
IF[#[#101]GE#[#102]]GOTO2
#102=#102+1
#101=#101+1
END2
M99
N2
T[#102]M6
#3000=2
M99 |
|