*******************************************************************************************************
【分段线路坐标正反算程序】
主 程 序:【XLZB-FD】
L1: B=.1739274226:C=.5-B:U=1:{U}:U"1.KD=>XY 2.XY=>KD"=1=>Prog "ZS-FD":≠>Prog "FS-FD"△↙
子程序1:【ZS-FD】
L1: Z=Ø:V=9Ø↙
L2: Lbl Ø:{KZ}:K:Prog "ZZ-FD":U≠Ø=>Goto Ø△Z"K.D"≠Ø=>{V}:V"K.A":F=F+V:S=S+Zcos(F):T=T+Zsin(F)△↙
L3: Fix 3: "K.X=":S:Pause 1:"K.Y=":T◢
L4: Norm:Goto Ø↙
子程序2:【FS-FD】
L1: Lbl 2:{VW}:V"K.X"W"K.Y":K=Ø↙
L2: Lbl 3:Prog "ZZ-FD ":I=V