5800-中边桩坐标计算程序

《5800-中边桩坐标计算程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、曲线正反算(全线5800)Lbl0:5-*Dimz:Cls：“1-ZX2-YX”?L:Cls:L->Z[l]:“l.KD—XYS”2.XY->KD”？T:T二1二〉GOTO1:T=2=>G0T02:Lbl1:“K二”?K:K=O=>GOTO0(注:當K輸入0時,程序會由LbT0開始重新運行):“DP二”?T:“ANG二”?F:Z[l]=l=>Prog“ZXP”：Z[l]二2二〉Prog“YXP”:Prog“STM2”:“XI二”:X/“YI二”:Y/Goto1LB12:“XI二”?X:X二0二〉Goto0:(注:當X輸入0時，程序會由Lbl0開始重新運行)“YI二”?Y:X->0:Y->

2、U:A+Abs((Y-D)cos(E+F-180)-(X-C)sin(E+F-180))->K:Lbl3:Z[l]=l=>Prog“ZXP”:Z[l]=2=>Prog“YXP”:0->I:90->F:PrognSIM2”:(U~Y)cos(S+F-180)-(0~X)sin(S+F-180)->Z:IfAbs(Z)<0.00001:ThenZ[l]二1二〉Prog”ZXP”:Z[l]=2=>ProgwYXP”:0->I:90->F:ProgwSIM2”:(U-Y)一sin(S+F)->Z:ElseK+Z->K:Goto3:IfEnd:Lbl5:”K二”:K/“DP二”:Z/GOTO2ST

3、M2(子程序)(V-R)4-Abs(B-A)->P:Abs(K~A)->Q:PXQ->H:E+(H+2R)XQX904-n-S:E+(II一4+2R)XQX454-(2n)-M:E+(3IIF4+2R)XQX135一(2n)->N:E+(HF2+2R)XQX454-nJ:C+QF12X(cos(E)+4(cos(M)+cos(N))+2cos(J)+cos(S))+Icos(S+F)->X:D+QF12X(sin(E)+4(sin(M)+sin(N))+2sin(J)+sin(S))+Isin(S+F)-*Y:returnZXP或(YXP)数据库(分左右线，按照程序模式写；整体式路基按左

4、线参数)数据库示例60.684->A:1911.448->B:IfK^B:Then3448024.704^C:499348.258->D:275°17’&5"〜EgR:0->V;G0T0l:IfEndB->A:2086.448->B:IFKIfKWB:Then3448195.2->C:497505.374->D:275°17,8.5"->E:0->R：-14-700->V;Goto1:TfEndLbl1:IfK<60.684OrK>7500:ThenCis:Locate5,2,”KPERROR”AStop:Ifend:Return说明：1.ZX,2.YX?1左线2右线1.KD=>XY,2

5、.XY=>KD1正算2反算K=?待求点里程桩号DP二？边桩距离ANG=?-般取90XI二计算所得X坐标YI二计算所得X坐标进行反算时输入坐标以后，一直按EXE键，不输入数据注：OX坐标，D二Y坐标，E二计算点的切线方位角R二起点半径倒数，若从ZH开始R=0,左转为负、右转为正、直线0V-终点半径倒数，若从HZ结束V=0,左转为负、右转为正、直线0A二起点桩号B二终点桩号TYQXJS(主程序名)LbI0:4—Dimz:Cls：“I.SZtXY”：”2.XYtSZ”？tN:C1s：”XO”？U:”YO”？V：nSOH?O：nFOn?G：”LS”？H：”RO”？P:”RN“？R:?Q：1-P-

6、>C：(P-R)一(2HPR)->D：180-ti->E：N=2=>Goto2：Lbll:Cls:?S：S=0=>Goto0(注:當S輸入0時，程序會由Lbl0開始重新運行)：?Z:Abs(S-O)->W:ProgMSUB1n:Cls：,,XS=,,:XA”YS=”:Y，nFS=n:F-90ADMS，Gotol:LbI2:Cls:?X：X=0=>Goto0(注噹X輸入0時，程序由會LblO開始重新運行)?Y:X—I:YtJ：Prog“SUB2”:O+WTS:Cls：“S=”:S,”Z=“:Z/Goto2注:紅色部可以不要，亦可以要,它的作用是將S或輸入0時，程序會重新由頭開始運行,(即是

7、可以計算下段線元)SUBI(子程序名)0.1739274226—A:0.3260725774->B:0.0694318442->K:0.330009482^L::G+QEKW(C+KWD)->Z[1]:G+QELW(C+LWD)->Z[2]:G+QEFW(C+FWD)->Z[3]:G+QEMW(C+MWD)->Z[4]:Axcos(Z[1])tX:X+Bcos(Z[2])tX：X+Bcos(Z[3])—X：X+Acos(Z[4])t