全线坐标正反算程序.doc

《全线坐标正反算程序.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、线路中边桩任意里程坐标正、反算改编程序（CASIOfx-5800P）1.正算子程序(SUB1)                                                      A=0.1739274226：B=0.3260725774：K=0.0694318442：L=0.3300094782：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+

2、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：Lbl0：Prog"SUB1"

3、：L=(G-90)+57.2958QW(1/P+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1E-6=>Goto1：≠>W=W+Z：Goto0Δ←┘Lbl1：Z=0：Prog"SUB1"：Z=(J-Y)÷sinF二数据库程序（ＳＪＫ主程序）    Lb14："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)

4、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

5、-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

6、＜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=

7、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＜7

8、9607.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＜797