5800计算机测量程序.docVIP

5800计算机测量程序 1:主程序（TYQXJS） Lb1 4:”1.SZ=XY”:”2.XY=SZ”:?N:U:”X0”?U: V:”Y0”?V: O:”S0”?O :G:”F0”?G: H:”LS”?H:P:”R0”?P:R:”RN”?R:Q:”Q”?Q:↘ (1÷P)→C:(P-R)÷(2HPR)→D:(180÷Π)→E:N=1=Goto 1:Goto 2↘ Lb1 1:?S:?Z:Abs(S-O)→W:Prog”SUB1”: ↘ “XS=”:X◢ “YS=”:Y◢ F-90→F:”FS=”:F▲DMS◢ Goto 1↘ Lb1 2:?X:?Y:X→I:Y→J:Prog”SUB2”:O+W→S:”S=”S◢ “Z=”:Z◢ Goto 2↘ 正算子程序（SUB1） 0.1739274226→A：0.3260725774→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+Zcos(F) →X：Y+Zsin（F）→Y： 反算子程序(SUB2) G-90→T： Abs(Y-V)cosT-(X-U)sinT) →W↘ 0→Z：Lbl 0：Prog SUB1↘ T+QEW(C+WD) →L： (J-Y)cos（L）-(I-X)sin（L）→Z：IF Abs（Z）0.001：Then 0→Z:Prog SUB1： (J-Y)÷sin（F）→Z：Else W+Z→W:Goto0：IfEnd↘ 使用说明 U：“XO”起点的X坐标，V：“YO”起点的Y坐标，O：“SO”起点的里程桩号，G：“FO”起点的方位角，H：“LS”计算段线元的长度，P：“RO”线元起点的曲率半径，R：“RN”线元终点曲率半径，“Q ”线元图形信息（直线段Q=0，左偏Q=-1，右偏Q=1）以道路中线前进方向（即大里程方向）区分左右。：， S:“待求点的里程桩号， Z:“待求点的里程偏距（在中线上取零，左侧取负值，右侧取正值）。 2：主程序（SQX）竖曲线高程 “JDZH“：？U：“GC”？M：“T”？T：“I1”？I：“I2”？P：“R”？R↘Lb1 0↘”N”?N↘If NU:Then Goto 1:IfEnd↘M-(U-N)I→Y↘ (N-U+T) 2÷(2R)→G↘If I-P0:Then Y-G→E:Else Y+G→E:IfEnd↘If NU-T:Then Y→Y◢Else E→Y◢IfEnd↘Goto 0↘Lb1 1↘M+(N-U)P→H↘(N-U-T) 2÷(2R)→C↘If I-P0:Then H-C→F:Else H+C→F:IfEnd↘If NU+T:Then H→Y◢Else F→Y◢IfEnd:Goto 0↘ 使用说明： U:曲中里程，GC：曲中高程，T：线元长度，I1：第一坡度， I2：第二坡度 R：线元半经，N：要求里的高程程 3；主程序；直线段坐标中线反算（FS） Lb1 0↘“X1=”?X:”Y1=”?Y:”X2=”?U:”Y2=”?V↘Po1(U-X,V-Y): ↘If J0:Then J+360→J:Else J→J;IfEnd↘“J=”:J▲DMS◢ “I=”:I◢ 显示说明：X1 Y1:第一点坐标，X2 Y2第二点的坐标， I：得出两点的距离，J：得出方位角 4:主程序（QBJ）求半经 Lb1 0↘”C=”?:”M=”?M↘((C÷2)2÷M)÷2→R↘“R=”：R◢ Goto 0 5:主程序（QHC）求弧长 Lb1 8↘”A=”?A:”R=”?R↘A×R×Π÷180→L↘”L=”:L◢ Goto 8↘ 6:主程序（QYXJ）求圆心 Lb1 8↘”L=”?L:”R=”?R↘180L÷(ΠR) →A↘”A=”:A▲DMS◢ Goto 8 5：主程序（XZJ）支距法 Lb1 0↘”L=”?L:”S=”?S:”R=”?R↘50S(L-S) ÷R÷100→F:”F=”:F◢Goto 0 6：主程序（ZX） “X”?X:”Y”?Y:” X3”?A:”Y3”?B :“X4”?E:”Y4”?F:”H”?H↘Lb1 3↘”K”?K:’D”?D↘Po1(E-A,F-B)↘√((K-H) 2+D2)→V↘J+ tan -1(D÷(K-H))→W:A+Rec(V,W)→U↘B+J→Z↘”