Fx-4800p曲线坐标放样计算程序
适用与单圆曲线、对称非对称带缓和曲线的圆曲线、不带缓和曲线复曲线、凸曲线施工桩坐标计算。
文件名：QUXIAN---1
Defm13
A”FWJ”:R:C”LS1”:U”LS2”:P”ZH---zhanghao”:F”ZH-X”:S”ZH-Y”:N”X0”:E”Y0”:I:G”LY”:J”HZ-X”:H”HZ-Y”
L=C+U+G
Z[2]”ZH”=P▲
Z[3]”HY”=P+C▲
Z[4]”YH”=P+L-U▲
Z[5]”HZ”=P+L ▲
Lb1 0
{zk}
Z≤Z[2]＝＞L=Z[2]-Z
O=A+90
Goto  1△
Z≤Z[3]＝＞L=Z-Z[2]
B=L-L^5÷40÷R2÷C2+L^9÷3456÷R^4÷C^4
D=L^3÷6÷R÷C-L^7÷336÷R^3÷C^3
O=A+90÷∏×I×L2÷R÷C+90
Goto 2△
Z≤Z[4]＝＞L=Z-Z[2]-C
V=90×(2L+C)÷R÷∏
B=R×SIN V+C÷2-C^3÷240÷R2
D=R×(1-COS V)+C2÷24÷R-C^4÷2384÷R^3
O=A+90÷∏×I×C÷R+180÷∏×L×I÷R+90
Goto 2△
Z≤Z[5]＝＞L=Z[5]-Z
W=A+I×90×(2G+C+U)÷R÷∏
O=W-90÷∏×I×L2÷R÷U+90
B=L-L^5÷40÷R2÷U2+L^9÷3456÷U^4÷R^4
D=L^3÷6÷R÷U-L^7÷336÷R^3÷U^3
Goto 3△        Z＞Z[5]＝＞L=Z-Z[5]
W=A+I×90×(2G+C+U)÷R÷∏
O=W+90
Goto 4△
Lb1 1
X=F-L×COS A+K×COS O▲
Y=S-L×SIN A+K×SIN O▲
Goto 5
Lb1 2
X=F+B×COS A-I×D×SIN A+K×COS O▲
Y=S+B×SIN A+I×D×COS A+K×SIN O▲
Goto 5
Lb1 3
X=J-B×COS W-I×D×SIN W+K×COS O▲
Y=H-B×SIN W+I×D×COS W+K×SIN O▲
Goto 5
Lb1 4
X=J+L×COS W+K×COS O▲
Y=H+L×SIN W+K×SIN O▲
Goto 5
Lb1 5
X=X:Y=Y:N=N:E=E
Prog “FWJ”
Goto 0
使用说明：
A”FWJ” 曲线起点方位角；R：曲线半径；C”LS1”：U”LS2”：曲线前后缓和曲线长度； P”ZH---zhanghao”：直缓点桩号；F”ZH-X”：S”ZH-Y”：直缓点坐标；N：E：架立仪器点坐标；I：曲线转向右为1左为-1；G”LY”：圆曲线长度；J”HZ-X”：H”HZ-Y”：缓直点坐标。

编制：张延永