CASIO 4800计算器坐标放样用坐标计算程序 说明：本计算程序通过曲线要素（方位角、偏角、圆曲线半径、缓和曲线长、交点桩号与交点坐标）与放样点中桩桩号的提供，可计算前一曲线缓直点至后一曲线直缓点之间任意一点的坐标。 文件名：ZB FANG YANG
程序：1、F ：N ：G ：R ：V ：Q ：W ：K
2
、defm 10
3、
M=V÷
2-V^3÷
240÷
4、
P=V²÷
24÷
R-V^4÷
2688÷
5
、L=
πRN
÷
6、
T=M+（
R+P）
tan （
N ÷27、A=Q-T：B=A+V：D=A+L：8、Rec （T ，F+1809、Z[1]=I+W：10、Rec （T ，F+GN11、Z[3]=I+W：Z[4]=J+K 12、Lb1 0
13、{H，S ，14、H
16、Lb1
17、
18
、X=W+I
◄
19、
Y=J+K◄
20
、Rec
（S
，F+180-
（180-E
））
21
、X=X+I◄
22、Y=Y+J◄
23、Goto 0 24、Lb1 25、26、O=90Z²÷R÷V ÷π 27、X=Z-Z^5÷40÷R²÷V²+Z^9÷3456÷R^4÷28、Z=Z^3÷6÷R ÷V-Z^7÷336÷R^3÷V^3+Z^11÷42240÷R^5÷V^5
29、Lb1 30、Rec(X,F)
31、X=Z[1]+I:Y=Z[2]+J
32、Rec(Z,F+90G)
33、X=X+I◄
34、Y=Y+J◄
35、36、X=X+I◄
37、Y=Y+J◄
38、Goto 0
39、Lb1 3
40、Z=H-A-V÷
41
、O=180Z
÷R
÷π
42
、
43、
Z=R(1-Cos O)+P
44
、Goto
6
45
、Lb1
46、
47、O=90Z²÷R ÷V ÷π
48、X=Z-Z^5÷40÷R²÷V²+Z^9÷3456÷R^4÷49、Z=Z^3÷6÷R ÷V-Z^7÷336÷R^3÷V^3+Z^11÷42240÷
R^5÷V^5
50、Rec(X,F+GN+180)
51、52、Rec(Z,F+GN+180-90G)
53、X=X+I◄
54、Y=Y+J◄
55、Rec(S,F+GN+180-OG-0G-(180-E))
56、X=X+I◄
57、Y=Y+J◄
58、Goto 0
59、Lb1 5
60、Rec(H-D+T,F+GN)
61、X=W+I◄
62、Y=K+J◄
63、
64
、X=X+I◄
65、Y=Y+J◄
66、Goto 0
编制：王志强2004年7月
CASIO 4800计算器坐标放样用坐标计算程序 说明：本计算程序通过曲线要素（方位角、偏角、圆曲线半径、缓和曲线长、交点桩号与交点坐标）与放样点中桩桩号的提供，可计算前一曲线缓直点至后一曲线直缓点之间任意一点的坐标。 文件名：ZB FANG YANG
程序：1、F ：N ：G ：R ：V ：Q ：W ：K
2
、defm 10
3、
M=V÷
2-V^3÷
240÷
4、
P=V²÷
24÷
R-V^4÷
2688÷
5
、L=
πRN
÷
6、
T=M+（
R+P）
tan （
N ÷27、A=Q-T：B=A+V：D=A+L：8、Rec （T ，F+1809、Z[1]=I+W：10、Rec （T ，F+GN11、Z[3]=I+W：Z[4]=J+K 12、Lb1 0
13、{H，S ，14、H
16、Lb1
17、
18
、X=W+I
◄
19、
Y=J+K◄
20
、Rec
（S
，F+180-
（180-E
））
21
、X=X+I◄
22、Y=Y+J◄
23、Goto 0 24、Lb1 25、26、O=90Z²÷R÷V ÷π 27、X=Z-Z^5÷40÷R²÷V²+Z^9÷3456÷R^4÷28、Z=Z^3÷6÷R ÷V-Z^7÷336÷R^3÷V^3+Z^11÷42240÷R^5÷V^5
29、Lb1 30、Rec(X,F)
31、X=Z[1]+I:Y=Z[2]+J
32、Rec(Z,F+90G)
33、X=X+I◄
34、Y=Y+J◄
35、36、X=X+I◄
37、Y=Y+J◄
38、Goto 0
39、Lb1 3
40、Z=H-A-V÷
41
、O=180Z
÷R
÷π
42
、
43、
Z=R(1-Cos O)+P
44
、Goto
6
45
、Lb1
46、
47、O=90Z²÷R ÷V ÷π
48、X=Z-Z^5÷40÷R²÷V²+Z^9÷3456÷R^4÷49、Z=Z^3÷6÷R ÷V-Z^7÷336÷R^3÷V^3+Z^11÷42240÷
R^5÷V^5
50、Rec(X,F+GN+180)
51、52、Rec(Z,F+GN+180-90G)
53、X=X+I◄
54、Y=Y+J◄
55、Rec(S,F+GN+180-OG-0G-(180-E))
56、X=X+I◄
57、Y=Y+J◄
58、Goto 0
59、Lb1 5
60、Rec(H-D+T,F+GN)
61、X=W+I◄
62、Y=K+J◄
63、
64
、X=X+I◄
65、Y=Y+J◄
66、Goto 0
编制：王志强2004年7月