卡西欧4800坐标计算程序

QL（坐标反算）
Lbi 0:C“X0”:D“Y0”:{XY}:X“X2”Y“Y2”:(X-C)=O=>Goto 1:≠
Lbi 1:W“Q”=0◢
Goto 0
Lbi 2:Prog“FWJ”
Fix 4
W“Q”=IntW+0.01Int(60FracW)+0.006Frac(60FracW) ◢
Norm
T“L”= ((X-C)2+(Y-D)2)◢
Goto 0
说明：（已知两点坐标，反算方位角及两点间的距离）
先按FILE键，光标选择QL，按EXE运行。

输入：X0? 测站点（或起算点）X轴坐标，按EXE
Y0? 测站点（或起算点）Y轴坐标，按EXE
X2? 后视点（或方向点）X轴坐标，按EXE
Y2? 后视点（或方向点）Y轴坐标，按EXE
显示： Q 方位角（如：125.0325即表示125。

03’25”）,按EXE L 两点间距离
再按EXE进行循环运算，重复输入X2？、Y2?
否则按AC键退出。

XY(坐标正算)
Lbi 0:C“X0”:D“Y0”:{WM}:W“Q”M“L”:X=C+McosW◢Y=D+MsinW◢
Goto 0
说明：（已知一点坐标、方位角、距离，求另一点坐标）先按FILE键，光标选择XY，按EXE运行。

输入：X0? 测站点（或起算点）X轴坐标，按EXE Y0? 测站点（或起算点）Y轴坐标，按EXE Q? 已知方位角，按EXE
L? 两点间距离，按EXE
显示：X 所求点X轴坐标，按EXE
Y 所求点Y轴坐标，按EXE
再按EXE进行循环运算，重复输入Q? 、L?
否则按AC键退出。

ZX（直线坐标计算）
Lbi 0:G“QD”：A“QDX”: B“QDY”:Q“Q”:{L,K}:Prog“ZZ”:Goto 0
说明：（计算直线段任意里程桩号坐标）
先按FILE键，光标选择XY，按EXE运行。

输入：QD? 直线段起点里程，按EXE
QDX? 起点X轴坐标，按EXE
QDY? 起点Y轴坐标，按EXE
Q? 已知方位角，按EXE
L? 所求点里程，按EXE
K? 所求点距中线的宽度（左负右正），按EXE
显示：X 所求点X轴坐标，按EXE
Y 所求点Y轴坐标，
再按EXE进行循环运算，重复输入L? 、K?
否则按AC键退出。

GC（高程）
Lbi 0:Z“HSG”:E“HSD”:S“YG”=Z+E◢
Lbi 1:{H}:H“QSG”:G“GC”=S-H◢
Goto 1
说明：（标高测设时计算实测高程或读数）
先按FILE键，光标选择GC，按EXE运行。

输入：HSD? 后视点高程，按EXE
HSD? 后视点读数，按EXE
显示：YG 仪高，按EXE
输入：QSG? 前视读数（或高程），按EXE
显示：GC 前视高程（或读数）
再按EXE进行循环运算，重复输入L? 、K?
否则按AC键退出。

MZ（面积计算）
Lbi 0:C“X1”:D“Y1”:M“X2”:N“Y2”: S=0.5×(CN-MD)
S=S+0.5×(MY-XN):M=X:N=Y: Goto 1
Lbi 2:S=Abs(S+0.5×(MD-CN)) ◢
★按逆时针顺序输入坐标点
JLJH（距离交会）
C“X1”:D“Y1”:M“H1”:X“X2”: Y“Y2”:N“H2”: U“L1”:I“DH1”: V“L2”:J“DH2”:Prog“FWJ”
L= ((X-C)2+(Y-D)2)
P=W+cos-1((U2+ L2-V2)÷(2UL):O=W+180-cos-1((V2+ L2-U2)÷(2VL):
E“X0”=(C+X)÷2+(UcosP+Vcos O)÷2◢
F“Y0”=(D+Y)÷2+(UsinP+Vsin O)÷2◢
H“H0”=(M-I+N-J)÷2◢
C=E
D=F
说明：（用于设置任意测站）
先按FILE键，光标选择JLJH，按EXE运行。

输入：X1? 已知点1的X轴坐标，按EXE
Y1? 已知点1的Y轴坐标，按EXE
H1? 已知点1的高程，按EXE
X2? 已知点2的X轴坐标，按EXE
Y2? 已知点2的Y轴坐标，按EXE
H2? 已知点2的高程，按EXE
L1? 已知点1的实测平距，按EXE
L2? 已知点2的实测平距，按EXE
DH1? 已知点1的实测高差（V+镜高-仪高），按EXE
DH2? 已知点2的实测高差（V+镜高-仪高），按EXE
显示：X0 测站点X轴坐标，按EXE
Y0 测站点Y轴坐标，
H0 测站点高程
再按EXE进行循环运算，重复输入L? 、K?,
否则按AC键退出。

★注意：已知点1必须位于左侧
YQX（圆曲线坐标计算）
Lbi 0:G“ZY”:A“ZYX”:B“ZYY”:R“R”:Q“Q”:{L,K}:Prog“YY”:Goto 0
说明：（计算圆曲线段任意里程桩号坐标）
先按FILE键，光标选择YQX，按EXE运行。

输入：ZY? 直圆点里程，按EXE
ZYX? 直圆点X轴坐标，按EXE
ZYY? 直圆点Y轴坐标，按EXE
R? 圆曲线半径（左转为负，右转为正），按EXE
Q? 直圆点里程方向的切线方位角，按EXE
L? 所求点里程，按EXE
K? 所求点距中线的宽度（左负右正），按EXE
显示：X 所求点X轴坐标，按EXE
Y 所求点Y轴坐标，
再按EXE进行循环运算，重复输入L? 、K?
否则按AC键退出。

HHQX（缓和曲线坐标计算）
Lbi 0:G“GQ”:A“GQX”:B“GQY”:Q“Q”:R“A”:{L,K}:Prog“HH”:Goto 0
说明：（计算缓和曲线段任意里程桩号坐标）
先按FILE键，光标选择HHQX，按EXE运行。

输入：GQ? 起点里程，按EXE
GQX? 起点X轴坐标，按EXE
GQY? 起点Y轴坐标，按EXE
A? 缓和曲线曲率（左转为负，右转为正），按EXE
Q? 起点里程方向的切线方位角，按EXE
L? 所求点里程，按EXE
K? 所求点距中线的宽度（左负右正），按EXE
显示：X 所求点X轴坐标，按EXE
Y 所求点Y轴坐标，
再按EXE进行循环运算，重复输入L? 、K?
否则按AC键退出。

SQX(竖曲线标高计算)
Lbi 0:U“DD”:W“HDD”:R“R”:T“T:G“I1”:S“I2”:{L,N}:Prog“SS1”: Goto 0
说明：（竖曲线任意里程桩号标高）
先按FILE键，光标选择SQX，按EXE运行。

输入：DD? 竖曲线顶点里程，按EXE
HDD? 竖曲线顶点高程，按EXE
R? 竖曲线半径（上拱为正，下弯为负），按EXE
T? 竖曲线切线长，按EXE
I1? 前段坡度（带符号），按EXE
I1? 后段坡度（带符号），按EXE
L? 所求点里程，按EXE
N? 所求点距设计中线标高高差（上正下负），按EXE
显示：H 所求点标高
再按EXE进行循环运算，重复输入L? 、K?
否则按AC键退出。

Lbi 0:{L,K}
Lbi 1:L<588.832=>G=0:A=xxxxx.xxx:B=yyyyy.yyy:Q=q。

qq’qq.qq”:Porg
“ZZ”:Goto 0:≠
Lbi 2:L<942.036=>G=588.832:A=xxxxx.xxx:B=yyyyy.yyy:Q=q。

qq’qq.qq”:Porg
“ZZ”:Goto 0:≠
Lbi 3:L<1002.036=>G=942.036:A=xxxxx.xxx:B=yyyyy.yyy:Q=q。

qq’qq.q”:
R=135.246:Porg“HH”:Goto 0:≠
Lbi 4:L<1153.502=>G=1002.036:A=xxxxx.xxx:B=yyyyy.yyy:Q=q。

qq’qq.q”:
R=1200:Porg“YY”:Goto 0:≠
Lbi 4:G=1153.502:A=xxxxx.xxx:B=yyyyy.yyy:Q=q。

qq’qq.q”:
Porg“YY”:Goto 0
说明：（单项工程坐标计算程序示例）
先按FILE键，光标选择SGLZB，按EXE运行。

输入：L? 所求点里程，按EXE
K? 所求点距中线的宽度（左负右正），按EXE
显示：X 所求点X轴坐标，按EXE
Y 所求点Y轴坐标，
再按EXE进行循环运算，重复输入L? 、K?，否则按AC键退出。

★编制本程序时，输入的要素为：
直线段: L为计算里程段，G为计算起点里程，A、B为G点所对应的坐标，Q为方位角；
圆曲线: L为计算里程段，G为曲线起点里程，A、B为G点所对应的坐标，Q为起点里程方向的切线方位角，R为半径（左转为负，右转为正）;
缓和曲线：L为计算里程段，G为曲线起点里程，A、B为G点所对应的坐标，Q为起点里程方向的切线方位角，R为曲率（左转为负，右转为正）。

Lbi 0:{L,N}
Lbi 1:L<188.832=>U=140:W=xxx:R=-rrrr:T=ttt:G=g.gg:S=s:Porg“SS1”:Goto 0:
≠
Lbi 2:L<342=> U=260:W=xxx:R=rrrr:T=ttt:G=g.gg:S=s:Porg“SS1”:Goto 0:
≠
Lbi 3:L<643=> U=580:W=xxx:R=-rrrr:T=ttt:G=g.gg:S=s:Porg“SS1”:Goto 0:
≠
Lbi 4: L<1120=> U=980:W=xxx:R=-rrrr:T=ttt:G=g.gg:S=s:Porg“SS1”:Goto 0:
≠
Lbi 4:U=1153.502: W=xxx:R=-rrrr:T=ttt:G=g.gg:S=s:Porg“SS1”:Goto 0
说明：（单项工程坐标计算程序示例）
先按FILE键，光标选择SGLBG，按EXE运行。

输入：L? 所求点里程，按EXE
N? 所求点距设计中线标高高差（上正下负），按EXE
显示：H 所求标高
再按EXE进行循环运算，重复输入L? 、K?，否则按AC键退出。

★编制本程序时，输入的要素为：
L为两竖曲线之间直线段的任意里程，U为竖曲线顶点里程，W为竖曲线顶点高程，R为竖曲线半径（上拱为正，下弯为负），T为切线长，G为前段坡度（带符号），S为后段坡度（带符号）。

CASIO FX —4800P 工程测量实用程序
- 11 - / 11
计算子程序
一、 ZZ （直线坐标计算子程序）
O=Q+90:E=A+(L-G)cosQ: f=B+(L-G)sinQ:Prog “ZBHS ”
二、 YY （圆曲线线坐标计算子程序）
P=180×(L-G)÷(R π) :O=Q+P+90:U=(AbsR)×sin(AbsP):
V=R-R ×cos(AbsP): Prog “SZB ”: Prog “ZBHS ”
三、 HH （缓和曲线线坐标计算子程序）
P=90×(L-G)2 (R π2)
(L-G)>0=>O=Q+P+90:≠
>O=Q+P+90
U=Abs(L-G)-Abs(L-G)Λ5÷(40R Λ4): V= Abs(L-G)Λ3÷(6R 2)- Abs(L-G)Λ7÷(336R Λ
6):R<0=>V=-V Prog“SZB”: Prog“ZBHS”
四、 SZB(小坐标系)
E=A+UcosQ-VsinQ:F=B+ UsinQ+VcosQ
五、 ZBHS(坐标换算)
X=E+KcosO ◢
Y=F+KsinO ◢
六、 FWJ(方位角)
W=tan -1((Y-D) ÷(X-C)):(X-C)<0=>W=W+180: ≠>(Y-D)>0=>W=W:
≠
>W=W+360七、 SS1(竖曲线子程序一)
L ≤U=> Prog“SS2”:≠>Prog“SS3”
八、 SS2(竖曲线子程序二)
V=W-G ÷100×(U-L)-Z:H=V+N ◢ 九、
SS3(竖曲线子程序三) Z=(T+L+U)2÷(2R):(L-U)>T=>Z=0:≠>Z=Z V=W+S ÷100×(L-U)-Z:H=V+N ◢。