[讨论]公差对焦距的影响的宏的编写 [复制链接]

想要写个宏，关于间隔公差对焦距的影响，想最终输出的效果是每个间隔的公差对应的系统焦距变化，然后输出总的焦距变化，且输出的面的间隔大小有三种，原值，加上正公差后的值以及负公差后的值。下面的程序得不到我想要的结果，请教下大神咋修改，谢谢 fI;6!M#  
n=NSUR() ?<b
Byxa  
INPUT"请输入变化的公差(单位:mm,正值):",t TZTi:\nS  
IF t<=0 k?3NF:Yy7  
  LABEL 1 $3zs?Fd`  
  INPUT"公差必须为正值，请重新输入:",t v#{Sx>lO  
  IF t<=0 THEN GOTO 1 w,> ceu/  
ENDIF 2Kovvh y#  
,<0R'R  
PRINT    "surface number   ", &eKnLGKD  
FOR i,1,n,1 URdCV{@42  
FORMAT 20.0 =<MSM\Rb  
PRINT i, 4*< x0  
NEXT     ET;YAa*  
PRINT O{SP4|0JV  
PRINT"surface tthi effl", DKnjmZ:J|  
FORMAT 10.4 XdjM/hB{fD  
FOR i,1,n-1,1 !f[LFQD  
  THIC(i)=THIC(i)+t "bZ%1)+  
CtJ*:wF  
  PRINT THIC(i), \/J>I
1J  
GETSYSTEMDATA 1 yaza  
  PRINT VEC1(7), WcqQR))n  
NEXT {z>fe }  
PRINT jU.z{(s  
GETSYSTEMDATA 1 `w';}sQA7  
PRINT"公差后的系统焦距",VEC1(7)

求各位大神指点下

每个间隔公差后要还原。 U[7 &   
...... BV)oF2b:  
0x BO5[w,Y  
R=THIC（I） %PA#x36
 
THIC（I）=R+T !2L?8oP-z  
GETSESTEMDATA 1 X.}i9a 6  
THIC（I）=R ^f6pw!  
......

qsj98:每个间隔公差后要还原。 wK]
p`:3  
......
R=THIC（I） bZ0{wpeK=  
THIC（I）=R+T <aQ<Wy=\  
....... (2017-01-08 08:36) 
g1kYL$o4  

!
jWE^@P/B  
了解，谢谢前辈

同意楼上，另外，你应该缺了一部分负公差的分析是不是？