5800正反算、邊坡放樣、隧道測(cè)量程序

1、正算主程序(ZS)FIX4：S：Z：Prog“PMSJ”：Abs(SO)→W：Prog“SUB1“：“XS=“：X◢“YS=“：Y◢F90→F(需要時(shí)可以讓他顯示)：Prog“SQXSJ”:Prog“SQX”：“H=”：H◢反算主程序(FS)FIX4:S：X：？Y：Prog“PMSJ”：X→I：Y→J：Prog“SUB2“：“S=“：OW→S◢“Z=“：Z◢Prog“SQXSJ”：Prog“SQX”：“H=”：H◢邊坡放樣主程序（BPF

2、Y）Lb10：Prog“ZS”：“HBG”（中樁與坡腳起算點(diǎn)高差值，比中樁高正，反之負(fù)）A：HA→B：P（實(shí)測(cè)點(diǎn)高程）：L（坡腳起算點(diǎn)到中樁的距離）：0.75（挖方時(shí)一級(jí)坡度）→C：1（挖方時(shí)二級(jí)坡度）→D：1.5（挖方時(shí)三級(jí)坡度）→E：8（挖方時(shí)一級(jí)坡高）→G：10（挖方時(shí)二級(jí)坡高）→M：15（挖方時(shí)三級(jí)坡高）→N：2（平臺(tái)寬度）→K：1（填方時(shí)一級(jí)坡度）→I：1.5（填方時(shí)二級(jí)坡度）→J：2（填方時(shí)三級(jí)坡度）→O：2（填方時(shí)一級(jí)坡高

3、）→Q：8（填方時(shí)二級(jí)坡高）→R：10（填方時(shí)三級(jí)坡高）→T：ifP＞B：thenGoto1：ElseGoto2Lb11：ifP＞B：thenLC（PB）→U：PB→F：IfEnd←┘ifP＞BG：thenLCGKD（PBG）→U：PBG→F：IfEnd←┘ifP＞BGM：thenLGC2kMDE（PBGM）→U：PB–GM→F：IfEnd：Goto3←┘正算子程序(SUB1)1P→C：(PR)(2HPR)→D：180π→E：0.173

4、9274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1L→F：1K→M：UW(Acos(GQEKW(CKWD))Bcos(GQELW(CLWD))Bcos(GQEFW(CFWD))Acos(GQEMW(CMWD)))→X：VW(Asin(GQEKW(CKWD))Bsin(GQELW(CLWD))Bsin(GQEFW(CFWD))Asin(GQEMW(CMWD)))→Y：GQEW(

5、CWD)90→F：XZcosF→X：YZsinF→Y反算子程序(SUB2)G90→T：Abs((YV)cosT(XU)sin（T）)→W：0→Z：Lbl0：Prog“SUB1“：TQEW(CWD)→L：(JY)cosL(IX)sinL→Z：ifAbsZ1E6：thenGoto1：ElssWZ→W：Goto0：IfEnd←┘Lbl1：0→Z：Prog“SUB1“：(JY)sinF→Z子程序（平面數(shù)據(jù)庫(kù)）PMSJifS≥500（線元起點(diǎn)里程