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
