正反算、隧道超欠挖计算程序

《正反算、隧道超欠挖计算程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、止算主程序（ZS）Lbl0:FIX4:?S:?Z:Prog“PM-SJ”:Abs(S-0)->W:Prog〃SUB1〃:〃XS二":▲〃YS二〃：YAF-90->F(需要时可以让他显示,不耍时不必输入)：Prog“SQX-SJ”:Prog“SQX":“H二”：HA-Goto0反算主程序（FS）Lbl0:FIX4:?S:?X：?Y:AProgPM-SJX->I:Y->J:Prog〃SUB2〃:〃S二〃:o+w->s〃Z=〃:ZAProg“SQX-SJ”:Prog“SQX:“H二••HAGoto0隧道3心圆放样主程序（SD-3XY)Lbl0:Prog“FS”:1.5--A:1

2、.65_B:0.89-G:2.27-C:3.3D：2.41-•E：0.51fJ:“Hl":F:ifFWH+A:thenE-AbsZfW:IfEnd:ifF>H+AAndF:WH+A+B:thenV(D²-(F-H-A)²)-G-AbsZ—>W:IfEnd:ifF>H+A+B:thenV(C²(F-H-A-J)²)-AbsZ-W:IfEnd:“w二刀:W/（水平方向的超欠挖：止为欠，负为超）GotoO正算子程序（SUB1）1FP->C:(P-R)4-(2HPR)->D:180三n->E：0.1739274226->A:0.32607257

3、74->B:0.0694318442->K:0.3300094782->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反算子程序(SUB2)G-90-T:Abs((Y-

4、V)cosT-(X-U)sin(T))->W：0->Z：Lbl0:Prog"SUBlz,:T+QEW(C+WD)L:(J-Y)cosL-(I-X)sinLZ:ifAbsZZ：Prog〃SUB1〃:(J-Y)4-sinF-*Z子程序(平面线形数据库)PM-SJifS2500（线元起点里程）AndS<769.256（线元止点里程）：Thenl9942・837-U（线元起点X坐标）：28343.561-V（线元起点Y坐标）:500->0（线元起点里程）：125°16°31°->G（线元起点方

5、位角）:269.265->H（线元长度）:1（T（45）->P（线元起点曲率半径）：1（T（45）fR（线元终点曲率半径）：0->Q（线元左右偏标志：左负右正）:IfEndifS2769.256（线元起点里程）AndS<806.748（线元止点里程）:Thenl9787.34->U（线元起点X坐标）：28563.378->V（线元起点Y坐标）:769.256->0（线元起点里程）：125°16°31°->G（线元起点方位角）:37.492-H（线元长度）:1（T（45）-P（线元起点曲率半径）:221.75-R（线元终点曲率半径）：-1-Q（线元左右偏标志：左负右止）:If

6、EndifS2806.748（线元起点里程）AndS<919.527（线元止点里程）:Thenl9766.566->U（线元起点X坐标）:28594.574->V（线元起点Y坐标）:806.748-0（线元起点里程）:120025°54.07°->G（线元起点方位角）:112.779->H（线元长度）:221.75-P（线元起点曲率半径）:221.75-R（线元终点曲率半径）:-1->Q（线元左右偏标志：左负右正）:IfEndifS2919.527（线元起点里程）AndS<999.812（线元止点里程）:Thcnl9736.072->U（线元起点X坐标）：28701.893

7、->V（线元起点Y坐标）:919.527-0（线元起点里程）：91°17°30.63°-G（线元起点方位角）:80.285-H（线元t度）:221.75->P（线元起点曲率半径）:9579.228-R（线元终点曲率半径）：-1一Q（线元左右偏标志：左负右正）:TfEndifS999.812（线元起点里程）：Thcnl9744.038-U（线元起点X坐标）：28781.659->V（线元起点Y坐标）:999.812->0（线元起点里程）:80°40°50°->G（线元起点方位角）:100->H（线元长度）:1（T（4