自编5800计算器全线隧道超欠挖程序

《自编5800计算器全线隧道超欠挖程序》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、1-JINYU(主程序)LbI0↙(数字)“1→ZS,2→FS,3→CQW”?Z↙N=1=>Goto1:N=2=>Goto2:N=3=>Goto3LbI1：“JSK”?P:“BZ(m)”?D:“BJ(°)”?W：Prog“ZSZCX”:“X=”:Locate4,4,X:“Y=”:Locate4,4,Y:Prog“GCZCX”:“H(Z)=”:G◢Goto1LbI2:“X”?X:“Y”?Y:“BJ(°)”?W:“JSK”?P:Prog“SJ-PM”：Prog“FSZCX”:“JSK”:P◢显示实测里程“BZ(m)=”:D◢显示实测边距Prog“GCZCX”:“H(Z)=

2、”:G◢显示对应里程中桩设计高程Goto2LbI340→DinZ“X”?X:“Y”?Y:“H(S)”?S:“BJ(°)”?W:“JSK”?P:Prog“SJ-PM”：Prog“FSZCX”:“JSK”:P◢“BZ(m)=”:D◢Prog“GCZCX”:“H(Z)=”:G◢Prog“CQWZCX”:“CQW=”:Z[25]◢显示超欠挖+为超—为欠Goto3注：“JSK”?P输入待求点里程“BZ(m)”?D输入待求点边距“X”?X输入实测X“Y”?Y输入实测Y“H(S)”?S输入实测Z“BJ(°)”?W输入线路夹角“JSK”?P:输入反算点大致里程2.ZDYS5→DimZ

3、↙Prog“SJ-PM”IfE<1:Then10^(-9)→E:Ifend↙IfK<1:Then10^(-9)→K:Ifend↙E2÷(24R)-E^(4)÷(2688R^(3))→Z[1]↙E÷2-E^(3)÷(240R2)→Z[2]↙(E2-K2)÷(24R)÷sin(Abs(O))→X↙(字母)“T1=”：(R+Z[1])tan(Abs(O)÷2)+Z[2]-X→Z[3]◢(字母)“T2=”：(R+K2÷(24R)-K^(4)÷(2688R^(3)))tan(Abs(O)÷2)+K÷2-K^(3)÷(240R2)+X→Z[4]◢“L=”：Abs(O)πR÷18

4、0+(E+K)÷2→L◢(字母)tan-1（（R+Z[1]）÷(Z[3]-Z[2]))→J↙“E=”:(R+Z[1])÷sin(J)-R→X◢A-Z[3]→X：X+E→Y↙IfE<1:Then“ZY=”：X◢Else“ZH=”：X◢Ifend↙“HY=”：Y◢“QZ=”：X+E+(L-K-E)÷2→Y◢X+L-K→Y：X+L→X↙IfK<1:Then“YZ=”：X◢Else“YH=”：Y◢Ifend↙“HZ=”：X◢ZSZCX(平曲线正算子程序)Prog“ZDYS”LbI1↙F→J↙B-Z[3]cos(F)→X↙C-Z[3]sin(F)→Y↙E→G↙IfP≤A-Z[3

5、]:ThenA-Z[3]-P→I:-I→M:0→N:F+W→H:Goto5：IfEnd↙(数字)IfP≤A-Z[3]+E:ThenP-A+Z[3]→I:90I2÷(REπ)→H:O<0=>-H→H：H+W+F→H:Goto3:IfEnd↙（前面字母，后面数字）IfP≤A-Z[3]+L-K:ThenP-A+Z[3]-E→I:Goto4:ElseGoto2:IfEnd↙LbI2↙B+Z[4]cos(F+O)→X↙(字母)C+Z[4]sin(F+O)→Y↙(字母)F+O+180→J↙(字母)K→G↙IfP≤A-Z[3]+L:ThenA-Z[3]+L-P→I:90I2÷(RK

6、π)→H:O>0=>-H→H：H+J+W+180→H:Goto3:ElseP-A+Z[3]-L→I:-I→M:0→N:J+W+180→H:Goto5：IfEnd↙LbI3↙I-I^(5)÷(40(RG)2)→M↙I^(3)÷(6GR)-I^(7)÷(336(RG)^(3))→N↙Goto5↙LbI4↙(E+2I)×90÷(πR)→H↙Rsin(H)+Z[2]→M↙R(1-cos(H))+Z[1]→N↙O<0=>-H→H↙（前面字母，后面数字）J+H+W→H↙Goto5↙LbI5↙IfP≤A-Z[3]+L-K:ThenO<0=>-N→N:ElseO>0=>-N→N:Go

7、to6:IfEnd↙LbI6↙X+Mcos(J)-Nsin(J)+Dcos(H)→X↙Y+Msin(J)+Ncos(J)+Dsin(H)→Y↙3SJ-PM(平面数据库)IFP≤交点终点里程AndP≥交点起点里程：Then交点桩号→A:交点X→B:交点Y→C:方位角→F:转角（右+，左-）→O:半径→R:第一缓和段→E:第二缓和段→K:Ifend4GCZCX20→DimZProg“SJ-GC”C-Z[19]→F↓小里程坡度-大里程坡度Abs(RF÷2)→T↓求切线长R(Abs(F)÷F)→R（判断凹凸曲线）:IfP≤B-T:Then0→K:ElseI