线路中边桩任意里程坐标正、反算改编程序
（CASIO fx-5800P）
1. 正算子程序(SUB1)
A=0.1739274226：B=0.3260725774：K=0.0694318442：L=0.3300094
782：F=1-L：M=1-K：X=U+W(Acos(G+57.2958QKW(1/P+KWD))+Bcos(G+57.2958QLW(1/P+LWD))+Bcos(G+57.2958QFW(1/P+FWD))+Acos(G+57.2958QMW(1/P+MWD)))：Y=V+W(Asin(G+57.2958QKW(1/P+KWD))+Bsin(G+57.2958QLW(1/P+LWD))+Bsin(G+57.2958QFW(1/P+FWD))+Asin(G+57.2958QMW(1/P+MWD)))：F=G+57.2958QW(1/P+WD)+90：X=X+Zcos(F-90+T)：Y=Y+Zsin(F-90+T)
2. 反算子程序(SUB2)
W=Abs((Y-V)cos(G-90)-(X-U)sin(G-90))：Z=0：Lbl 0：Prog \"SUB1
\"：L=(G-90)+57.2958QW(1/P+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1
E-6=>Goto1：≠>W=W+Z：Goto 0Δ←┘
Lbl 1：Z=0：Prog \"SUB1\"：Z=(J-Y)÷sinF
二数据库程序（ＳＪＫ主程序）
Lb1 4：\"1.SZ => XY\"：\"2.XY => SZ\"：｛NS｝：S＜75685.656
＝＞O=75172.813：U=10257.769：V=615287.070：G=325-46-1.5：H
=512.843：P=2600：R=2600：Q=1： Goto0Δ←┘(JD65)
S＜75884.442＝＞O=75685.656：U=10707.383：V=615042.113： G=
337-04-06.6：H=198.786：P=2600：R=1E45：Q=0： Goto0Δ←┘(直线)
S＜76044.442＝＞O=75884.442：U=10890.459：V=614964.660： G=
337-04-06.6：H=160：P=1E45：R=1050：Q=-1： Goto0Δ←┘(JD66第一缓和段)
S＜76392.111＝＞O=76044.442：U=11036.146：V=614898.615： G=332-42-11.19：H=347.669：P=1050：R=1050：Q=-1： Goto0Δ←┘(JD66圆曲线段)
S＜76552.111＝＞O=76392.111：U=11313.328：V=614691.387： G=313-43-54.11：H=160：P=1050：R=1E45：Q=-1： Goto0Δ←┘(JD66第二缓和段)
S＜78271.813＝＞O=76552.111：U=11417.893：V=614570.338： G=309-21-58.7：H=1719.702：P=1E45：R=1E45：Q=0： Goto0Δ←┘(直线段)
S＜78431.813＝＞O=78271.813：U=12508.659：V=613240.824： G=309-21-58.7：H=160：P=1E45：R=1050：Q=-1： Goto0Δ←┘(JD67第一缓和段)
S＜78810.831＝＞O=78431.813：U=12606.944：V=613114.623： G=305-00-3.29：H=379.018：P=1050：R=1050：Q=-1： Goto0Δ←┘(JD67圆曲线段)
S＜78970.831＝＞O=78810.831：U=12764.225：V=612772.038： G=284-19-7.91：H=160：P=1050：R=1E45：Q=-1： Goto0Δ←┘(JD67第二缓和段)
S＜79284.977＝＞O=78970.831：U=12795.865：V=612615.240： G=279-57-12.5：H=314.146：P=1E45：R=1E45：Q=0： Goto0Δ←┘(直线段)
S＜79444.977＝＞O=79284.977：U=12850.165：V=612305.822： G=279-57-12.5：H=160：P=1E45：R=750：Q= 1： Goto0Δ←┘(JD68第一缓和段)
S＜79607.747＝＞O=79444.977：U=12883.388：V=612149.392： G=286-03-54.08：H=162.77：P=750：R=750：Q= 1： Goto0Δ←┘(JD68圆曲线段)
S＜79767.747＝＞O=79607.747：U=12944.985：V=611999.072： G=298-29-59.22：H=160：P=750：R=1E45：Q= 1： Goto0Δ←┘(JD68第二缓和段)
S＜79927.747＝＞O=79767.747：U=13031.084：V=611864.310： G=304-36-40.8：H=160：P=1E45：R=750：Q=-1： Goto0Δ←┘(JD69第一缓和段)
S＜80152.430＝＞O=79927.747：U=13117.183：V=611729.547： G=298-29-59.22：H=224.683：P=750：R=750：Q=-1： Goto0Δ←┘(JD69圆曲线段)
S＜80312.430＝＞O=80152.430：U=13193.440：V=611519.093： G=281-20-6.98：H=160：P=750：R=1E45：Q=-1： Goto0Δ←┘(JD69第二缓和段)
S＜80472.430＝＞O=80312.430：U=13213.651：V=611360.456： G=275-13-25.4：H=160：P=1E45：R=920：Q= 1： Goto0Δ←┘(JD70A第一缓和段)
S＜80764.750＝＞O=80472.430：U=13232.840：V=611201.665： G=280-12-21.47：H=292.320：P=920：R=920：Q= 1： Goto0Δ←┘(JD70A圆曲线段)
S＜80924.750＝＞O=80764.750：U=13329.149：V=610926.967： G=301-56-13.33：H=160：P=920：R=1E45：Q= 1： Goto0Δ←┘(JD70A第二缓和段)
S＜75610531＝＞O=75018.789：U=10119.920：V=615344.580： G=325-46-1.5：H=591.742：P=3000：R=3000：Q= 1： Goto0Δ←┘(ZJD2圆曲线段)
S＜75868.894＝＞O=75610.531：U=10638.706：V=615061.939： G=337-04-6.6：H=258.363：P=3000：R=1E45：Q=0： Goto0Δ←┘(直线段)
S＜76028.894＝＞O=75868.894：U=10876.651：V=614961.272： G=337-04-6.6：H=160：P=1E45：R=900：Q=-1： Goto0Δ←┘(ZJD3第一缓和段)
S＜76304.04＝＞O=76028.894：U=11022.044：V=614894.617： G=331-58-31.95：H=275.146：P=900：R=900：Q=-1： Goto0Δ←┘(ZJD3圆曲线段)
S＜76464.04＝＞O=76304.04：U=11241.555：V=614730.506： G=314-27-33.35：H=160：P=900：R=1E45：Q=-1： Goto0Δ←┘(ZJD3第二缓和段)
S＜78325.868＝＞O=76464.04：U=11346.622：V=614609.911： G=309-21-58.7：H=1861.828：P=1E45：R=1E45：Q=0： Goto0Δ←┘(直线段)
S＜78485.868＝＞O=78325.868：U=12527.535：V=613170.519： G=309-21-58.7：H=160：P=1E45：R=1000：Q=-1： Goto0Δ←┘(ZJD4第一缓和段)
S＜78839.218＝＞O=78485.868：U=12625.657：V=613044.196： G=304-46-57.52：H=353.350：P=1000：R=1000：Q=-1： Goto0Δ←┘(ZJD4圆曲线段)
S＜78999.218＝＞O=78839.218：U=12772.319：V=612724.740： G=284-32-13.68：H=160：P=1000：R=1E45：Q=-1： Goto0Δ←┘(ZJD4第二缓和段)
S＜80472.391＝＞O=80312.391：U=13213.651：V=611360.455： G=275-13-25.4：H=160：P=1E45：R=936.13：Q= 1： Goto0Δ←┘(ZJD1A第一缓和段)
S＜80707.393＝＞O=80472.391：U=13232.720：V=611201.648： G=280-07-12.42：H=235.002：P=936.13：R=936.13：Q= 1： Goto0Δ←┘(ZJD1A圆曲线段)
S＜80867.397＝＞O=80707.393：U=13302.398：V=610977.859： G=297-27-38.28：H=160：P=936.13：R=1E45：Q= 1： Goto0Δ←┘(ZJD1A第二缓和段)
LB1 0：D=(P-R)÷(2HPR)：N=1=>Goto 1：≠>Goto 2Δ←┘
Lbl 1：{TZ}：Z：W=Abs(S-O)：Prog \"SUB1\"：X\"XS\"=X◢
Y\"YS\"=Y◢
F\"FS\"=F-90◢
C“XC”：E“YC”：I=0：J=0：Pol（X-C，Y-E）：I“I=” ◢
J∠0＝＞J“J=”+360◢
≠＞J“J=” ◢
ΔGoto4←┘
Lbl 2：{XY}：XY：I=X：J=Y：Prog \"SUB2\"：S\"S\"=O+W◢
Z\"Z\"=Z◢
Goto4
因篇幅问题不能全部显示，请点此查看更多更全内容