3不等缓基本曲线任意点坐标计算程序(已知转角和方位角)-使用于全站仪放样(改编).doc

CAISO FX-5800计算程序（不等缓基本型曲线任意点坐标计算程序）主程序；ROAD 26Dim Z回车“ (1)YOU空格ZUAN空格空格空格空格，(2)ZUO空格ZUAN”？ U：If U=2:Then 1Z20:Else 1Z20:IfEnd回车 “K(JD)”？ K ：“X(JD)”？X: “Y(JD)”？Y:“FWJ(ZHJD)”？M回车“ZUAN-JIAO” ？O: ？R: “LS1”？B: “LS2” ？C回车M+OZ20N回车 PrOg“ROAD-1” 回车“T1=”：S “T2=”：T “L=”：L “LY=”：Q “E=”：E “K(ZH)=”：Z1 “K(HY)=”：Z2 “K(QZ)=”：Z3 “K(YH)=”：Z4 “K(HZ)=”：Z5 LbI0回车“K”？P: “DL”?D:”DR”?V:“A”？H回车PrOg“ROAD-2” 回车“X=”：F “Y=”：G “FWJ(K)=”：Z DMS LbI1回车“XL=”：F-DCos(Z+H) Z11 “YL=”：G-DSin(Z+H) Z12 “XR=”：F+VCos(Z+H) Z11 “YR=”：G+VSin(Z+H) Z12 Goto 0回车子程序ROAD-1 If U=2：Then-1W: EISelW: If End:WO Z20A回车B224R- B (4) 2688R (3)+ B (6) 506880R (5) Z6 回车C224R- C (4) 2688R (3)+ C (6) 506880R (5) Z7 回车B2- B (3) 240R2 + B (5) 34560R (4) Z8 回车C2- C (3) 240R2 + C (5) 34560R (4) Z 9 回车Z8+(R+Z7-(R+Z6)Cos(A) Sin(A) S回车Z9+(R+Z6-(R+Z7)Cos(A) Sin(A) T回车RA180+(B+C) 2L回车L-B-CQ回车(R+(Z6+Z7) 2) Cos(A2)-RE回车K-SZ1 回车Z1+BZ2 回车Z2+Q2Z3 回车Z1+L-CZ4 回车Z4+CZ5 回车子程序ROAD-2X-SCos(M) Z21:Y-Ssin(M) Z22 回车X+TCos(N) Z23:Y+Tsin(N) Z24 回车If PZ1: ThenGoTo1：If End回车Z1-PL回车X-(S+L)Cos(M) F回车Y-(S+L)Sin(M) G回车MZ: GoTo5回车LbI 1回车If PZ2:Then GoTo2：If End回车P-Z1 L:LZ14:BZ15:Prog“ROAD-3” 回车Z21+Z16Cos(M)-WZ17Sin(M) F回车Z22+Z16Sin(M)+WZ17Cos(M) G回车M+90WL2(BR) Z回车GoTo5回车LbI 2回车If PZ4: ThenGoTo3：If End回车P-Z1 L:90(2L-B) RZ13 回车RSin(Z13)+Z8 Z16:R(1-Cos(Z13)+Z6 Z17 回车Z21+Z16COS(M)-WZ17Sin(M) F回车Z22+Z16Sin(M)+WZ17Cos(M) G回车M+WZ13 Z回车GoTo5回车LbI 3回车If PZ5: ThenGoTo4：If End回车Z5-PL：LZ14:CZ15:Prog“ROAD-3” 回车Z23-Z16Cos(N)-WZ17Sin(N) F回车Z24-Z16Sin(N)+WZ17COs(N) G回车N-90WL2(CR) Z回车GoTo5回车LbI 4回车P-Z5 L回车X+(T+L)Cos(N) F回车Y+(T+L)Sin(N) G回车NZ回车LbI 5回车If Z0:ThenZ+360Z:If End回车子程序ROAD-3If Z14=0:Then0Z16:0Z17:ElseZ14-Z14(5)40(RZ15)2+Z14(9)3456(RZ15) (4)Z16回车Z14(3)6(RZ15)-Z14(7)336(RZ15)(3)+Z14 (11)42240(RZ15)(5)Z17 回车IfEnd程序说明：(1) YOU ZUAN,(2)ZUO ZUAN?表示输入1时，线路右转，输入2表示线路左转；K(JD) ？=交点里程X(JD) =？输入交点X坐标 Y(JD) =？输入交点Y坐标FWJ（ZHJD）：输入（ZH点JD点）切线方位角ZUAN JIAO？：输入转向角（左转右转均为正值）R：曲线半径 LS1？：第一缓和曲线长LS2？：第二缓和曲线长输出：T1=第一切线长 T2=第二切线长L=曲线长 LY=圆曲线长E=外矢距 K(ZH)=ZH里程 K(HY)=HY里程 K(QZ)=QZ里程K(YH)=YH里