5800计算程序(通用版).doc

5800计算程序通用版ZBFS(坐标反算)通用版老版本?N:?E:?A:?R:?C:?T:?G:?M:?FLbl 0:?X:?Y:If G0:Then 1Z:Else -1Z:IfEndPol(X-N,Y-E:If GM:Then Goto 3:IfEndG+PT+Rec(I,J-U)S:JDIf SG:Then K=:SKQ=:ZD=QGoto 9Else Goto 4:IfEndLbl 3:If SG:Then K=:SKQ=:ZDQGoto 9Lbl 4:C24R-C(4)2688R(3)W:C2-C(3)240RV:90CRB:Pol(P(S-G)-V,ZD-R-W):If JB-90:Then Goto 5:IfEndP(S-G)+P(S-G)(5)40RCZ:Z(3)(6RC)H:If A0:Then D-HW:Else D-HW:IfEndIf RC2WC:Then RCWZ:Else (RC-(RC-2RCWZ)WZ:IfendK=:G+PZKK-PZ(5)(40RC)V:Z(3)(6RC)H:If AM:Then Goto 7:IfEndIf OM:Then k=:OKQ=JQGoto 9Else Goto 8Lbl 7:If OM:Then K=:OKQ=:JQIfendGoto 9Lbl 8:P(M-O)+P(M-O)(5)(40RC)Z:Z(3)(6RC)H:J-HW:If RC2WZ:Then RCWZ:Else(RC-(RC-2RCWZ)WZ:IfEndK=:M-PZKK-PZ(5)(40RC)V:Z(3)(6RC)H:(O-V)+(J-H)W:If JH:ThenQ=:WQElse Q=:-WQIfEndGoto 9Lbl 9:?Z:?S: Q=357.957+(K-26966)0.02098+SOO-Z-SB:P=: (5.3+Q)+B)-SPGoto 0ZBZS(坐标正算)通用版?D:?A:?R:?C:C24R-C(4)2688R(3)P:C2- C(3)240RQ:90CRB(R+P)tan(Abs(A)2)+QT:(R+P)cos(A2)-RJ:(Abs(-A)-(2B)R180+2CL: G:D-TGH:G+CHG+L2W: Z:G+L-CZM:G+LM?N:?Z:?I:?F:If AM:Then K-M+TL:F+AV:VU:Goto 2:IfEndLbl 2:X=:N+Lcos(V)XY=:E+Lsin(V)YGoto 6Lbl 3:?Q:X=:X+Qcos(U+90)XY=:Y+Qsin(U+90)YGoto 1Lbl 4:X=:N+Tcos(P)+Vcos(Q)XY=:E:+Tsin(P)+Vsin(Q)YGoto 6Lbl 5:X=:B+Rcos(L)XY=:O+Rsin(L)YGoto 6Lbl 6:I=1Goto 3Goto 1使用说明：反算说明：1、N：交点X坐标， E：交点Y坐标。2、A：转角值、左“-”右“+” ， R：平曲线半径。3、C：缓和曲线长度， T：切线长度。4、G：点第一缓和曲线起点里程， M：点第二缓和曲线终点里程。5、F：计算方位角。 6、“X” “Y”实测坐标计算。7、K：实测里程, Q：实测里程偏距。8、Z：实测高程， S：设计断面圆心半径。9、P:超欠挖“+”超“-”欠.正算说明：1、D:交点桩号， A：转角值、左“-”右“+” 。2、R：半径， C：缓和曲线长度。3、G：缓和曲线起点里程， H: 第一缓和曲线终点或圆曲线起点。4、第二缓和曲线终点或圆曲线起点， M：第二缓和曲线终点。5、N交点X坐标， Z：N交点Y坐标。6、I：输入1, F: 计算方位角.7、K：里程， “X” “Y”实设计坐标。8、Q ：偏距 “X” “Y”计算坐标。FS(坐标反算)通用版更新版?N:?E:?A:?R:?C:?T:?G:?M:?FLbl 0:?X:?Y:If G0:Then 1Z:Else -1Z:IfEndPol(X-N,Y-E:If GM:Then Goto 3:IfEndG+PT+Rec(I,J-U)S:JDIf SG:Then K=:SKQ=:ZD=QGoto 9Else Goto 4:IfEndLbl 3:If SG:Then K=:SKQ=:ZDQGoto 9Lbl 4:C24R-C(4)2688R(3)W:C2-C(3)240RV:90CRB:Pol(P(S-G)-V,ZD-R-W):If JB-90:Then Goto 5:IfEndP(S-G)+P(S-G)(5)40RCZ:Z(3)(6RC)H:If A0:Then D-HW:Else D-HW:IfEndIf RC2WC:Then RCWZ:Else (RC-(RC-2RCWZ)WZ:IfendK=:G+PZKK-PZ(5)(40RC)V:Z(3)(6RC)H:If AM:Then Goto 7:IfEndIf OM:Then k=:OKQ=JQGoto 9Else Goto 8Lbl 7:If OM:Then K=:OKQ=:JQIfendGoto 9Lbl 8:P(M-O)+P(M-O)(5)(40RC)Z:Z(3)(6RC)H:J-HW:If RCJ:Then -1W:IfEndIf K0:Then Goto 9Else If KB-U:Then 0Z:IPElse If KB:Then 1Z:IPElse If KB+U:Then 1Z:I