5800曲线数据库

《5800曲线数据库》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、正算Fix4：?S：?Z：Prog“PM-SJ”：Abs(S-O)→W：Prog "SUB1"："XS="：X◢"YS="：Y◢F-90→F：Prog“SQX-SJ”:Prog“SQX”：“H=”：H◢反算Fix4:?S：?X：？Y：Prog“PM-SJ”：X→I：Y→J：Prog "SUB2"："S="：O+W→S◢"Z="：Z◢Prog“SQX-SJ”：Prog“SQX”：“H=”：H◢子程序(ZCXZ)1÷P→C：(P-R)÷(2HPR)→D：180÷π→E：0.1739274226→A：0.3260725774→B：0.0694318442→K：0.330009478

2、2→L：1-L→F：1-K→M：U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))→X：V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))→Y：G+QEW(C+WD)+90→F：X+ZcosF→X：Y+ZsinF→Y子程序(ZCXF)G-90→T：Abs((Y-V)cosT-(X-U)sin（T）)→W：0→Z：Lbl 0：Prog "SUB1

3、"：T+QEW(C+WD)→L：(J-Y)cosL-(I-X)sinL→Z：ifAbsZ<10-6：thenGoto1：ElssW+Z→W：Goto 0：IfEnd←┘Lbl 1：0→Z：Prog "SUB1"：(J-Y)÷sinF→Z数据库SJQIfS≥21500AndS＜24242.49：Then2797510.896→U：499864.127→V：21500→O：299/31/16/→G：2742.49→H：0→P：0→R：0→Q：IfEnd←┘IfS≥24242.49AndS＜24641.425：Then2798862.246→U：497477.685→V：24242

4、.49→O：299/31/16/→G：398.935→H：2800→P：2800→R：-1→Q：IfEnd←┘IfS≥24641.425AndS＜24808.39：Then2799033.466→U：497117.735→V：24641.425→O：291/21/28.05/→G：166.965→H：2800→P：1100→R：-1→Q：IfEnd←┘IfS≥24808.39AndS＜25218.467：Then2799087.164→U：496959.724→V：24808.39→O：285/18/4.14/→G：410.077→H：1100→P：1100→R：-1→Q：I

5、fEnd←┘IfS≥25218.467AndS＜25382.671：Then2799120.013→U：496553.343→V：25218.467→O：263/56/29.18/→G：164.204→H：1100→P：0→R：-1→Q：IfEnd←┘IfS≥25382.671AndS＜25590.455：Then2799094.590→U：496391.162→V：25382.671→O：259/39/53.95/→G：207.784→H：0→P：1850→R：1→Q：IfEnd←┘IfS≥25590.455AndS＜26636.188：Then2799061.15→U：4

6、96186.116→V：25590.455→O：262/52/57.34/→G：1045.733→H：1850→P：1850→R：1→Q：IfEnd←┘IfS≥26636.188AndS＜26843.972：Then2799223.923→U：495167.169→V：26636.188→O：295/16/10.81/→G：207.784→H：1850→P：0→R：1→Q：IfEnd←┘IfS≥26843.972AndS＜27017.53：Then2799319.582→U：494982.745→V：26843.972→O：298/29/14.2/→G：173.558→H：0

7、→P：1300→R：-1→Q：IfEnd←┘IfS≥27017.53AndS＜28249.613：Then2799398.933→U：494828.427→V：27017.53→O：294/39/45.39/→G：1232.083→H：1300→P：1300→R：-1→Q：IfEnd←┘子程序（竖曲线数据库）SQX-SJIfS≤999.812（竖曲线终点里程）：Then0.0357（前坡度：上坡正下坡负）→E：0.0227（后坡度：上坡正下坡负）→F：600→R（竖曲线半径）：780→G（变坡点里程）：