欢迎来到天天文库
浏览记录
ID:37865723
大小:58.00 KB
页数:4页
时间:2019-06-01
《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(变坡点里程):
此文档下载收益归作者所有