CASIO-fx4800p
1 KWX
Lbl1:{ABC}:Z[5]=A:Z[6]=B:Z[7]=C:Lbl2:Prog“ZBJX”:Abs(Z[5]-X)<0.001ÞGoto 4∆
Pol(Z[5]-X,Z[6]-Y):K=K+Icos(J-V):U=U-Isin(J-V):Goto2:Lbl4:Prog“SQX”:A=Z[7]-H:A$0ÞL=AbsU-1.5A-13:¹ÞL=AbsU-1.0A-15∆
Ky
A+0.75y
Uy
Ay
Goto 1¿
2 ZBJX
Fixm:{K}:Lbl 0:{K}:K:K# $ÞW:C:D:A:B:R:S∆
P=S2/24R-S4/2688R3:Q=S/2-S3/240R2:T=(R+P)tg(AbsA/2)+Q:L=pRAbsA/180:E=W-T:F=E+L¿
K#EÞL=W-K:X=C+Lcos(B-180):Y=D+Lsin(B-180):V=B:Goto 1∆
K#E+SÞL=K-E:X=L-L5/40R2S2:Y=L3-6RS-L7/336R3S3:Pol(T-X,Y):X=C+Icos(B-180-AbsAJ/A):Y=D+Isin(B-180- AbsAJ/A):V=B+90L2AbsA/ApRS:Goto 1∆
K#FÞL=K-E-S:I=(S/2+L)×180/pR:X=T-RsinI-Q:Y=R(1-cosI)+P:V=IAbsA/A+B:Pol(X,Y):X=C+Icos(B-180-JAbsA/A):Y=D+ Isin(B-180-JAbsA/A):Goto 1∆
K#F+SÞL=F+S-K:X=T-L+L5/40R2S2:Y=L3/6RS-L7/336R3S3:Pol(X,Y):X=C+Icos(B+A+JAbsA/A):Y=D+ Isin(B+A+JAbsA/A):V=B+A-90L2AbsA/ApRS:Goto 1∆
K>F+SÞL=K+T-S-F:X=C+Lcos(A+B):Y=D+Lsin(A+B):V=A+B:Goto 1∆
Lbl 1:X=X+Ucos(V-090):Y=Y+Usin(V-090)¿
O=V¿
3 SQX
Fixm:{K}:K#$ÞG:C:R:E:F∆
W=F-E:T=Abs(RW/2):K<G-TÞH=C-E(G-K)∆
K$G-TÞH=C-E(G-K)+(K+T-G)2AbsW/2RW∆
K$GÞH=C-F(G-K)+(K-G-T)2AbsW/2RW∆
K$G+TÞH=C-F(G-K)∆¿
4 HGHXP
{KU}:K:U=U:Prog“ZBJX”:Prog “SQX”:Xy
Yy
H¿
備注：
1(KWX)中， A、B、C為某點的坐標X，Y，Z；K 樁號；L 當L=0時處于開挖線位置；A 高程；A+0.75 測點高程+路面厚度；U 距中線距離。2(ZBJX)中，K 第二緩和曲線（直線）里程；W 下一個交點樁號；C、D 交點樁號坐標；A 交點轉角；B第二緩和曲線對應方位角；R 交點半徑；S 緩和曲線長。3(SQX)中，K 所求點里程樁號+豎曲線切線長的里程；G 變坡點里程；C 變坡點高程；R 變坡半徑；E 上個變坡點的坡度；F 變坡點的坡度。
4①在ZBJX中，應注意各平曲線要素及輸入的關系算子正確，其中Lbl 1:X=X+Ucos(V-090):Y=Y+Usin(V-090)正交時，按正交輸入夾角，斜交時，則按斜交角度依據左減右加原則輸入右斜交角度，運行KWX.則把句首{K}：K：刪除，運行ZBJX方位角則加上。
②在SQX中交點轉角右正，左負輸入。
③在KWX中L=Absu+1.5A-13: ¹ÞAbsu+1.0A-15∆根據工程實際情況而定隨邊坡平臺參數，寬度等因素影響，運行出現Mem ERROR應賦內存shift Defm 10。
④在HGHXP應在“ZBJX” “SQX”無誤的情況下運行。
CASIO-fx4800p
1 緩和曲線第一緩和段中樁、邊樁
G=E+(Q-Q5/40R2S2)cosA+Q3/6RS×cos(A±900)y
H=F+(Q-Q5/40R2S2)sinA+Q3/6RS×sin(A±900)y
M=G+Lcos(A+B±1800Q2/2RSp)y
N=H+Lsin(A+B±1800Q2/2RSp)y
E、F為ZH坐標(x,y)
A 為ZH方位角
Q 中樁至ZH距離（弧線長）
L 中樁至邊樁距離
S 緩和曲線長
R 半徑
B 相交角度（左-、右+）
G、H 所求中樁坐標
M、N 所求邊樁坐標
2 緩和曲線圓曲線段中樁、邊樁
J=G+(Q-Q3/6R2)+Q5/120R4cos(A±90S/pR)+(Q2/2R-Q4/24R3+Q6/720R5cos(A±90S/pR±900) y
K=H+(Q-Q3/6R2)+Q5/120R4cos(A±90S/pR)+(Q2/2R-Q4/24R3+Q6/720R5sin(A±90S/pR±900) y
M=J+Lcos(A+B±1800S/2pR±180Q/pR)y
N=K+Lsin(A+B±1800S/2pR±180Q/pR)y
G、H為HY坐標(x,y)
A 為HY方位角
Q 中樁至HY距離（弧線長）
L 中樁至邊樁距離
S 緩和曲線長
R 半徑
B 相交角度（左-、右+）
J、K 所求中樁坐標
M、N 所求邊樁坐標
3 圓曲線中樁、邊樁
M=C+2Rsin90Q/pR×cos(A±90Q/pR)y
N=D+2Rsin90Q/pR×sin(A±90Q/pR)y
E=M+Lcos(A+B±180Q/pR)y
F=N+Lsin(A+B±180Q/pR)y
C、D 為ZY坐標(x,y)
A 為ZY方位角
Q 中樁至ZY距離（弧線長）
L 中樁至邊樁距離
R 半徑
B 相交角度（左-、右+）
M、N 所求中樁坐標
E、F 所求邊樁坐標
4 直線中樁、邊樁
M=X+QcosAy
N=Y+QsinAy
K=M+Lcos(A+B)y
J=N+Lsin(A+B)y
X、Y 為已知點坐標(x,y)
A 方位角
Q 直線距離
B 相交角度（左-、右+）
L 中樁至邊樁距離
M、N 所求中樁坐標
K、J 所求邊樁坐標
CASIO-fx4800p
高程計算程序
Lbl 0 :B:C:{D}:D#0Þ{BC}:Goto 0:≠ÞH=B+C-Dy
Goto 0∆¿
坐標、方位角反算程序
Lbl1:{ABCD}:X=C-A:Y=D-B:Pol(X,Y):Iy
J<0ÞJ=J+360∆Jy
Goto 1¿
AZIMUTH
I=O:J=O:Lbl 0:Norm:Deg:{DGXY}:D”XA”G”YA”X”XB”Y”YB”:Pol(X-D,Y-G):J<0ÞJ=J+360∆¿
Fix 6:J“AZIMUTH A-B”=IntJ+0.01Int(60FracJ)+0.006Frac(60FracJ)y
Fix 3:I“H.DIST=”y
Goto 0¿
Fix 6:J“AZIMUTH A-B”=IntJ+0.01Int(60PracJ)+0.006Prac(60PracJ)y
