卡西欧4800坐标计算程序
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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键退出。