ZS(正算主程序)Lb12Fix3？Kprog“SUB3”“X=”：X◢“Y=”：Y◢？V（一个锁，输入√2就可以算边桩）IfV=√2:Thenprog“SUB2”：IfEndGoto2FS（反算主程序）“XP=”?P:”YP=”?Q:?K(K为近视里程)Lbl6prog“SUB3”(Q-Y+(P-Y)\(Tan(E)+0.0001))*Sin(E)→OK+O→KAbs(O)→OIfO≧.1^(7):ThenGoto6：IfEnd-（Y-Q-（X-P）tan(E）)cos(E)→SSUB1H-H^5/（40R2）/L2→C计算X增量(H^(3)/6/R/L)-(H^(7)/336/R^(3)/L^(3))→D计算Y增量√（C2+D2）→F30H2/∏/R/L→G计算偏角SUB2?UU：“[L-，R+]=”“EX”X+Ucos(E+90°)→P◢“EY”Y+Usin(E+90°)→Q◢SUB3IfK≦线元终点里程:Thenprog“x曲线”：Goto2：IfEnd………..………….Lbl1x曲线?→R半径?→L缓和曲线长K-?→H？ZH里程K-?→I？HY里程IfI≦O:Then?→A:?→BZH点XY坐标（第一缓和曲线）prog“SUB1”FWJ±3G→E右转为+，左为-，FWJ为ZH点FWJ,此公式计算P点走向FWJ。A+Fcos(E±2G)→X±与上面相反B+Fsin(E±2G)→Y：Goto2：IfEnd计算p点XY增量(第一缓和曲线结束)K-?→JYH里程（圆曲线）IfI≦O:Then?→A:?→BHY点XY坐标I*90/∏/R→C2R*sin(C→DFWJ±2C→E右转为+，左为-，FWJ为HY点FWJ,此公式计算P点走向FWJ。A+Dcos(E±C)→X±与上面相反B+Dsin(E±C)→Y：Goto2：IfEnd计算p点XY增量(圆曲线结束)K-?→SHZ（第二缓和曲线,是从大里程像小里程计算）IfS≦0:Then?→A:?→B:-S→HHZ点XY坐标prog“SUB1”FWJ±3G→E右转为+，左为-，FWJ为HZ点FWJ,此公式计算P点走向FWJ。A+Fcos(E+180±2G)→X±与上面相反B+Fsin(E+180±2G)→Y：Goto2：IfEnd计算p点XY增量(第一缓和曲线结束)Lbl2X直线K-?→H?起点里程？→A?起点XY坐标？→B？→E?起点FWJA+HcosE→XB+HsinE→Y