5800对称缓和曲线坐标计算.doc

对称缓和曲线计算程序20DimZ ：“BPD”?A : “X0”?C : “Y0”?G:“LS”?Y :“R”?R : “ZJ”?E :“FWJ”?F : “1?-1”? Z3 :Y(2)(24R)P : Y2Y（2）(240R(2) Q:(R+P) tan(180-E) 2)+QT: A-TZ8:(E-2(Y2R180) R180Z 6 :C+TCos(F+180) Z 1 : G+TSin(F+180) Z 2 : Z 8 +YZ 7 : Z 7+Z 6 S : S+Y U:C+TCos(F+Z 3 E) V : G+TSin(F+Z 3 E) W: C+Cos(F+180-Z 3 (180-E) 2) (R+p) Sin(180-E) 2) Z 4 :G+Sin(F+180-Z 3 (180-E) 2) (R+p) Sin(180-E) 2) Z5:Lb1 0: “L=”?O : O=1=5:If OU:Then Goto 4:Else OZ8 or OZ7=Goto 1:OZ7 And O2:OS And OU=3:Lb1 1: “1”: “D=”?H : O-Z8 Z12If H0:Then -1B : Else 1B:IfEnd:(cos(90X(2) (RY,0,Z12 Z10:(sin(90X(2) (RY,0,Z12 Z11:“X=”:Z1+Z10 cos(F)-Z3 Z11 sin(F)+Abs(H) cos(F+Z3 90Z12(2) (RY)+90B) “Y=”:Z2+Z10 sin(F)+Z3 Z11 cos(F)+Abs(H) sin(F+Z3 90Z12(2) (RY)+90B) Goto 0Lb1 2: “2”: “D=”?H : If H0 : Then -1B: Else 1B : IfEnd: O-Z 7-6 2Z 12:Z 12 180RZ 14:F+Z 3 (180-E) 2+E)+180Z 15: “X=”:Z 4+(R-Abs(H) BZ 3 cos(Z 15+Z 3 Z 14 “Y=”:Z 5+(R- Abs(H) BZ 3 sin(Z 15+Z 3 Z 14 Goto 0Lb1 3: “3”：“D=”？H : If H0 : Then -1B:Else 1B:IfEnd:U-OZ12:(cos(90X(2) (RY,0,Z12 Z10:(sin(90X(2) (RY,0,Z12 Z11:F+Z3 E+180Z13:“X=”:V+Z10 cos(Z13)+Z3 Z11 sin(Z13)+Abs(H) cos(Z13-Z3 90Z12(2) RY)-90B“Y=”:W+Z10 sin(Z13)+Z3 Z11 cos(Z13)+Abs(H) sin(Z13-Z3 90Z12(2) RY)-90BGoto 0Lb1 4 : “WRONG”:Goto 0:Lb1 5: “P=”:P“Q=”: Q“T=”:T“YC=”:Z 6 “ZH=”:Z8 “X=”:Z1 “Y=”:Z2 “LN=”:2Y+Z6 “EN=”(R+P) sin（180-E）2）-R “HY=”: Z 7 “QZ=”:Z7+Z6 2 “YH=”:S “HZ=”:U“X=”:V “Y=”:W “YX-X=”:Z4 “YX-Y=”:Z5 BPD：变坡点桩号，X0 Y0：边坡点坐标 , LS:缓和曲线长度，R：圆曲线半径 ，ZJ：路线转角 ，FWJ：起点路线方位角 “-1？1？”：当路线左转时输入-1，右转时输入1“L=?”：输入所求的桩号，“D=?”：边桩距离，如果是中桩则输入0（零），左边桩为负，如果求左边20米的桩则输入-20，右边桩则相反当屏幕显示“L=?”时输入1，则会显示曲线要素（直缓点桩号及坐标，缓圆点桩号，圆曲线长，缓圆点桩号及坐标，切线增长值，曲线内移值，