《3不等缓基本曲线任意点坐标计算程序(已知转角和方位角)-使用于全站仪放样(改编)》由会员分享，可在线阅读，更多相关《3不等缓基本曲线任意点坐标计算程序(已知转角和方位角)-使用于全站仪放样(改编)（6页珍藏版）》请在金锄头文库上搜索。
1、1CAISO 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(ZH JD)”？M 回车回车“ZUAN-JIAO” ？O: ？R: “LS1”？B : “LS2” ？C 回车回车M+OZ20+OZ20N 回车回车PrOg“
2、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 回车回车2“K”？P: “DL”?D:”DR”?V:“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(
3、Z+H) Z12 Goto 0回车回车子程序子程序 ROAD-1 If U=2：Then-1W: EISelW: If End:WO Z20Z20A 回车回车B B224R-224R- B B (4)(4) 2688R2688R (3)+(3)+ B B (6)(6) 506880R506880R (5)(5) Z6 回车回车C C224R-224R- C C (4)(4) 2688R2688R (3)+(3)+ C C (6)(6) 506880R506880R (5)(5) Z7 回车回车B2-B2- B B (3)(3) 240R240R2 + + B B (5)(5) 34560R34
4、560R (4)(4) Z8 回回车车C2-C2- C C (3)(3) 240R240R2 + + C C (5)(5) 34560R34560R (4)(4) Z 9 回回车车Z8+(R+Z7-(R+Z6)Cos(A) Sin(A)Sin(A) S 回车回车3Z9+(R+Z6-(R+Z7)Cos(A) Sin(A)Sin(A) T 回车回车RA180+(B+C)RA180+(B+C) 22L 回车回车L-B-CQ 回车回车(R+(Z6+Z7) 2)2) Cos(A2)-RCos(A2)-RE 回车回车K-SZ1 回车回车Z1+BZ2 回车回车Z2+Q22Z3 回车回车Z1+L-CZ4 回车
5、回车Z4+CZ5 回车回车子程序子程序 ROAD-2X-SCos(M) Z21:Y-Ssin(M) Z22 回车回车X+TCos(N) Z23:Y+Tsin(N) Z24 回车回车IfIf P PZ1:Z1: ThenGoTo1：If End 回车回车Z1-PL 回车回车X-(S+L)Cos(M) F 回车回车Y-(S+L)Sin(M) G 回车回车MZ: GoTo5 回车回车LbI 1 回车回车IfIf P PZ2:ThenZ2:Then GoTo2：If End 回车回车P-Z1P-Z1 L:LZ14:BZ15:Prog“ROAD-3” 回车回车Z21+Z16Cos(M)-WZ17Sin(
6、M) F 回车回车Z22+Z16Sin(M)+WZ17Cos(M) G 回车回车4M+90WL2(BR)(BR) Z 回车回车GoTo5 回车回车LbI 2 回车回车If PZ4:Z4: ThenGoTo3：If End 回车回车P-Z1 L:90(2L-B) RRZ13 回车回车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:Z5: ThenGoTo4：If
7、 End 回车回车Z5-PL：LZ14:CZ15:Prog“ROAD-3” 回车回车Z23-Z16Cos(N)-WZ17Sin(N) F 回车回车Z24-Z16Sin(N)+WZ17COs(N) G 回车回车N-90WL2(CR)(CR) Z 回车回车GoTo5 回车回车LbI 4 回车回车P-Z5 L 回车回车X+(T+L)Cos(N) F 回车回车Y+(T+L)Sin(N) G 回车回车NZ 回车回车5LbI 5 回车回车If Z0 :ThenZ+360Z:If End 回车回车子程序子程序 ROAD-3If Z14=0:Then0Z16:0Z17:ElseZ14-Z14(5)40(RZ1
8、5)(5)40(RZ15)2+Z142+Z14(9)3456(RZ15)(9)3456(RZ15) (4)(4)Z16回车回车Z14(3)6(RZ15)(3)6(RZ15)-Z14Z14(7)336(RZ15)(7)336(RZ15)(3)+Z14(3)+Z14 (11)42240(RZ15)(11)42240(RZ15)(5)(5)Z17 回车回车IfEnd程序说明：程序说明：(1)YOU ZUAN,(2)ZUO ZUAN ?表示输入表示输入 1 时，线路右转，输入时，线路右转，输入 2 表示线路左转；表示线路左转；K(JD) ？=交点里程交点里程X(JD) =？输入交点？输入交点 X 坐标
9、坐标 Y(JD) =？输入交点？输入交点 Y 坐标坐标FWJ（ZHJD）：）：输入（输入（ZH 点点JD 点）切线方位角点）切线方位角ZUAN JIAO？：输入转向角（左转右转均为正值）？：输入转向角（左转右转均为正值）R：曲线半径：曲线半径 LS1？：第一缓和曲线长？：第一缓和曲线长LS2？：第二缓和曲线长？：第二缓和曲线长输出：输出：T1=第一切线长第一切线长 T2=第二切线长第二切线长L=曲线长曲线长 LY=圆曲线长圆曲线长6E=外矢距外矢距 K(ZH)=ZH 里程里程 K(HY)=HY 里程里程 K(QZ)=QZ 里程里程K(YH)=YH 里程里程 K(HZ)=HZ 里程里程 输入输入 K?，待求点里程，待求点里程DL:左边桩偏移值左边桩偏移值 DR:右边桩偏移值右边桩偏移值A？左右边桩与线路的夹角？左右边桩与线路的夹角输出：输出：X,Y 中桩坐标，中桩坐标， FWJ(K)中桩切线方位角中桩切线方位角XL,YL, 左边桩坐标左边桩坐标 XR,XR,右边桩坐标右边桩坐标
