缓和曲线5800版中边桩计算程序修改版.docVIP

程序名：HHQX JD?Q:JDX?W:JDY?K:?R:QDFWJ?F:ZJZ?N:LS?V:-L,+R?G:QDZH?C:ZDZH ?D:”ZJX?A:”ZJY”?B 8→Dimz V÷2-V^(3)÷(240R2)→M V2÷(24R)－V^4)÷(2688R^(3))→P (RN÷180+V→L M+(R+P)tan(N÷2)→T Q-T→Z[5] Z[5]+V→Z[6] Z[5]+L→Z[8] Z[8]-V→Z[7] Rec(T，F+180) W+I→Z[1]:K+J→Z[2] Rec(T，F+GN) W+I→Z[3]:K+J→Z[4] Lbl 0 →多加一条横线）END=?H If H0:Then Goto 8:IfEnd BIAN JU?S:JIA JIAO?E If HC:Then Goto 0:IfEnd If HD:Then Goto 0:IfEnd If HZ[5]:Then Goto 1:IfEnd:If HZ[6]:Then Goto 2:IfEnd:If HZ[7]:Then Goto 3:IfEnd:If HZ[8]:Then Goto 4:Else Goto 5:IfEnd Lbl 1 Rec(Q-H，F+180) W+I→X: K+J→Y Rec(S，F+E) X=:X+I→X◢ Y=:Y+J→Y◢ Goto 7 Lbl 2 H-Z[5]→Z 90Z2÷((RV)→O Z-Z^5)÷(40R2V2)+Z^(9)÷(3456R^(4)V^(4))→X Z^(3)÷(6RV)-Z^(7)÷(336R^(3)V^(3))+Z^(11)÷(42240R^(5)V^(5))→Y Rec(√(X2+Y2)，F+Gtan-1(Y÷X)) Z[1]+I→X:Z[2]+J→Y Rec(S，F+GO+E) X=:X+I→X◢ Y=:Y+J→Y◢ Goto 7 Lbl 3 H-(Q-T)-V÷2→Z 180Z÷(R()→O Rsin O)+M→X R(1-cos(O))+P→Z Rec(X，F) Z[1]+I→X:Z[2]+J→Y Rec(Z，F+90G) X+I→X:Y+J→Y Rec(S，F+OG＋E) X+I→XY+J→Y X=:X◢Y=:Y◢ Goto 7 Lbl 4 Z[8]-H→Z 90Z2÷(VR()→O Z-Z^(5)÷(40R2V2)+Z^(9)÷(3456R^(4)V^(4))→X Z^(3)÷(6RV)-Z^(7)÷(336R^(3)V^(3))+Z^(11)÷(42240R^(5)V^(5))→Y Rec(√(X2+Y2)，F＋GN+180Gtan-1(Y÷X)) Z[3]+I→X:Z[4]+J→Y Rec(S，F+GN+180OG-(180-E)) X=:X+I→X◢ Y=:Y+J→Y◢ Goto 7 Lbl 5 Rec(H-Z[8]+T，F+GN) W+I→X:K+J→Y Rec(S，F+GN+E) X=:X+I→X◢ Y=:Y+J→Y◢ Goto 7 Lbl 7 Pol(XA，YB) If J0:Then J+360→J:IfEnd FWJ=:J(DMS◢ CJ=:I◢ Goto 0 Lb1 8:”HHQX双横线箭头（→多一横）END” 注：XY程序单代号 QJ D 交点里程桩号 WJDX 交点X坐标值 KJDY 交点Y坐标值 R 圆曲线半径 FQDFWJ 第一直线段方位角 N 交点LS 缓和曲线长度 G-L,+R 如果为左转角输入“－1”，如果为右转角输入“1” CQDZH 所求段起点里程桩号 DZDZH 所求段终点里程桩号 ZJX 置镜点Ｘ坐标 ZJY 置镜点Y坐标 HSQZH 所求点的里程桩号 SBIAN JU