5800對稱緩和曲線坐標(biāo)計算.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：邊坡點坐標(biāo) , LS:緩和曲線長度，R：圓曲線半徑 ，ZJ：路線轉(zhuǎn)角 ，F(xiàn)WJ：起點路線方位角 “-1？1？”：當(dāng)路線左轉(zhuǎn)時輸入-1，右轉(zhuǎn)時輸入1“L=?”：輸入所求的樁號，“D=?”：邊樁距離，如果是中樁則輸入0（零），左邊樁為負，如果求左邊20米的樁則輸入-20，右邊樁則相反當(dāng)屏幕顯示“L=?”時輸入1，則會顯示曲線要素（直緩點樁號及坐標(biāo)，緩圓點樁號，圓曲線長，緩圓點樁號及坐標(biāo)，切線增長值，曲線內(nèi)移值，