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

CAISO FX-5800计算程序 （不等缓基本型曲线任意点坐标计算程序） 主程序；ROAD 26→Dim Z回车 “ (1)YOU空格ZUAN空格空格空格空格，(2)ZUO空格ZUAN”？ U：If U=2:Then －1→Z[20]:Else 1→Z[20]:IfEnd回车 “K(JD)”？ K ：“X(JD)”？X: “Y(JD)”？Y?:?“FWJ(ZH?→JD)”?？M回车 “ZUAN-JIAO” ？O: ？R: “LS1”？B?: “LS2” ？C?回车 M+O×Z[20]→N回车 PrOg“ROAD-1” 回车 “T1=”：S ◢ “T2=”：T ◢ “L=”：L ◢ “LY=”：Q ◢ “E=”：E ◢ “K(ZH)=”：Z[1] ◢ “K(HY)=”：Z[2] ◢ “K(QZ)=”：Z[3] ◢ “K(YH)=”：Z[4] ◢ “K(HZ)=”：Z[5] ◢ 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) →Z[11] ◢ “YL=”：G-DSin(Z+H) →Z[12] ◢ “XR=”：F+VCos(Z+H) →Z[11] ◢ “YR=”：G+VSin(Z+H) →Z[12] ◢ Goto 0回车 子程序ROAD-1 If U=2：Then-1→W: EISel→W: If End:WO ×Z[20]→A回车 B^2÷24÷R- B^ (4) ÷2688÷R^ (3)+ B^ (6) ÷506880÷R^ (5) →Z[6] 回车 C^2÷24÷R- C^ (4) ÷2688÷R^ (3)+ C^ (6) ÷506880÷R^ (5) →Z[7] 回车 B÷2- B^ (3) ÷240÷R^2 + B^ (5) ÷34560÷R^ (4) →Z[8] 回车 C÷2- C^ (3) ÷240÷R^2 + C^ (5) ÷34560÷R^ (4) →Z [9] 回车 Z[8]+(R+Z[7]-(R+Z[6])Cos(A)) ÷Sin(A) →S回车 Z[9]+(R+Z[6]-(R+Z[7])Cos(A)) ÷Sin(A) →T回车 RA∏÷180+(B+C) ÷2→L回车 L-B-C→Q回车 (R+(Z[6]+Z[7]) ÷2) ÷Cos(A÷2)-R→E回车 K-S→Z[1] 回车 Z[1]+B→Z[2] 回车 Z[2]+Q÷2→Z[3] 回车 Z[1]+L-C→Z[4] 回车 Z[4]+C→Z[5] 回车 子程序ROAD-2 X-SCos(M) →Z[21]:Y-Ssin(M) →Z[22] 回车 X+TCos(N) →Z[23]:Y+Tsin(N) →Z[24] 回车 If P＞Z[1]: ThenGoTo1：If End回车 Z[1]-P→L回车 X-(S+L)Cos(M) →F回车 Y-(S+L)Sin(M) →G回车 M→Z: GoTo5回车 LbI 1回车 If P＞Z[2]:Then GoTo2：If End回车 P-Z[1] →L:L→Z[14]:B→Z[15]:Prog“ROAD-3” 回车 Z[21]+Z[16]Cos(M)-WZ[17]Sin(M) →F回车 Z[22]+Z[16]Sin(M)+WZ[17]Cos(M) →G回车 M+90WL^2÷(BR∏) →Z回车 GoTo5回车 LbI 2回车 If P＞Z[4]: ThenGoTo3：If End回车 P-Z[1] →L:90(2L-B) ÷R÷∏→Z[13] 回车 RSin(Z[13])+Z[8] →Z[16]:R(1-Cos(Z[13]))+Z[6] →Z[17] 回车 Z[21]+Z[16]COS(M)-WZ[17]Sin(M) →F回车 Z[22]+Z[16]Sin(M)+WZ[17]Cos(M) →G回车 M+WZ[13] →Z回车 GoTo5回车 LbI 3回车 If P＞Z[5]: ThenGoTo4：If End回车 Z[5]-P→L：L→Z[14]:C→Z[15]:Prog“ROAD-3” 回车 Z[23]-Z[16]Cos(N)-WZ[17]Sin(N) →F回车 Z[24]-Z[16]Sin(N)+WZ[17]COs(N) →G回车 N-90WL^2÷(CR∏) →Z回车 GoTo5回车 LbI 4回车 P-Z[5] →L回车 X+(T+L)Cos(N) →F回车 Y+(T+L)Sin(N) →G回车 N→Z回车 LbI 5回车 If Z＜0?:ThenZ+360→Z:If End回车 子程序ROAD-3 If Z[