[求助]高手帮帮忙，小弟感激不尽

破军

这条5800万能程序的运算结果是对的，运算直线的反算就比较快，可是在运行圆曲线是反算的时候很慢，在算圆曲线时反算过程中如果边桩是距离中线20米的话反算出来却是10米，而且里程也出现负数情况 ，<br>&nbsp;&nbsp;我的程序是：“1.KD=&gt;XY”:“2.XY=&gt;KD”:”N”?N:”XA”?U:”YA”?V:”DKA”?O:”CA”?G:”LS”?H:”RA”?P:”RB”?R:”Q”?Q:1/P-&gt;C:(P-R)/(2HPR)-&gt;D:180/∏-&gt;E:IF N=1:THEN GOTO 1:ELSE GOTO 2:IFEND<br>Lbl 1:”DKI”?S:”D”?Z:ABS (S-O)-&gt;W:PROG “SUB1”:”XS”:X◢<br>“YS”:Y◢<br>GOTO 1<br>Lbl 2:”X”?X:”Y”?Y:X-&gt;I:Y-&gt;J:PROG “SUB2”:O+W-&gt;S<br>“S”:S◢<br>“Z”:Z◢<br>GOTO 2<br><br>子程序“SUB1”<br>0.1739274226-&gt;A:0.3260725774-&gt;B:0.0694318442-&gt;K:0.3300094782-&gt;L:1-L-&gt;F:1-K-&gt;M:U+W(ACOS(G+QEKW(C+KWD))+BCOS(G+QELW(C+LWD))+BCOS(G+QEFW(C+FWD))+ACOS(G+QEMW(C+MWD)))-&gt;X:V+W(ASIN(G+QEKW(C+KWD))+BSIN(G+QELW(C+LWD))+BSIN(G+QEFW(C+FWD))+ASIN(G+QEMW(C+MWD)))-&gt;Y:G+QEW(C+WD)+90-&gt;F:X+ZCOS(F)-&gt;X:Y+ZSIN(F)-&gt;Y<br><br>子程序“SUB2”<br>G-90-&gt;T:ABS((Y-V)COS(T)-(X-U)SIN(T))-&gt;W:&Oslash;-&gt;Z:Lbl&Oslash;:PROG “SUB1”:T+QEW(C+WD)-&gt;L:(J-Y)COS(L)-(I-X)SIN(L)-&gt;Z:IF ABS(Z)&lt;1*10^(-6):THEN GOTO 1:ELSE W+Z-&gt;W:GOTO &Oslash;:IFEND<br>Lbl 1: &Oslash;-&gt;Z:PROG”SUB1”：(J-Y)/SIN(F)-&gt;Z<br>会不会是在第二条子程序里1*10^(-6):这个地方出错呢？