文档介绍：一、坐标正算 ZBZS Lbl 0“X0= ”?X: “Y0= ”?Y: “I=”?I: “J=”?J X+Icos(J) →U:Y+Isin(J) →V “X=”:U?“Y=”:V?Goto 0 二、坐标反算 ZBFS Lbl 0“X1= ”?X: “Y1= ”?Y: “X2= ”?U: “Y2= ”?V Pol(U-X,V-Y): J<0 =>J+360 →J“I=”:I?“J=”J?DMS ?Goto 0 三、圆曲线计算 YQXJS “X0= ”?X: “Y0= ”?Y: “FWJ= ”?D: “QDHAO= ”?G: “ZDHAO= ”?C: “R=”?R Lbl 1“DQHAO= ”?L L<G OrL>C =>Goto 2“PY= ”?K 180(L-G) ÷(πR)→E2Rsin() →FRec(Abs(F),D+) “X=”:X+I+Kcos(D+E+90) →A?“Y=”:Y+J+Ksin(D+E+90) →B? D+E →O:O<0 =>360+O →O “FWJ= ”:O?DMS ?Goto 1 Lbl 2:“END ”四、 1. 竖曲线 SQX “QZHAO= ”?J: “HB= ”?B: “I1= ”?C: “I2= ”?D: “R=”?R“T=”?T: (D-C) ÷100 →W:W ÷Abs(W) →A:“T”:(W) →S? J-T →X:J+T →YLbl 0“DQ= ”?L IfL<X:Then Goto 1:Else IfL>Y:Then Goto 1:IfEnd:IfEnd “GC= ”:B+(L-J)+A(L-J+T) 2÷(2R) →H?Goto 0 Lbl 1:“END ” 2. 标高计算 BGJS( 含横坡计算边桩) “QZHAO= ”?J: “QDHAO= ”?G: “ZDHAO= ”?K: “HB= ”?B: “SX= ”?Q: “I1= ”?C: “I2= ”?D: “R=”?R“T=”?T: (D-C) ÷100 →W:W ÷Abs(W) →A:“T”:(W) →S?“YIGAO= ”?O J-T →X:J+T →YLbl 0“DQ= ”?L: “PY= ”?U: “HP= ”?V IfL<X:Then Goto 1:Else IfL>Y:Then Goto 2:IfEnd:IfEnd “HL= ”:B+(L-J)+A(L-J+T) 2÷(2R)++Q →H?“H0= ”:O-H →Z?Goto 0 Lbl 1 L<G =>Goto 3“HL= ”:B+(L-J)++Q →H?“H0= ”:O-H →Z?Goto 0 Lbl 2L>K =>Goto 3“HL= ”:B+(L-J)++Q →H?“H0= ”:O-H →Z?Goto 0 Lbl 3:“END ”说明:输入时可包括竖曲线前后各一段的平直段, HL为中桩或边桩标高, H0为前视读数五、点到直线距离 DDZXJL Lbl 0“X0= ”?A: “Y0= ”?B: “X1= ”?X: “Y1= ”?Y: “X2= ”?U: “Y2= ”?V Pol(U-X,V-Y) “L=”(B-Y)cos(J)-(A-X)sin(J) →L