CASIOfx5800P线元法坐标正反算程序
说明：本程序适用于卡西欧计算器CASIOfx5800P可对全线贯通坐标正反算、竖曲线高程计算。该程序可计算任意线型，包含（直线、圆曲线、缓和曲线、卵形曲线）等还可以能通过坐标反推该点里程和距中线距离适用测量员专用。
主程序名：ABCYT
第1步Deg：Fix3：10→DimZ第2步Lbl3：＂1DKXY＂：＂2XYDK＂：＂Q＂W：＂DK＂S：Prog＂ABCYTSJ＂：IfP0：The
1045→P：IfE
d：IfR0：The
1045→R：IfE
d第3步1÷P→C：PR÷2HPR→D：180÷π→E：IfW1：The
Goto1：ElseGoto2：IfE
d第4步Lbl1：＂W＂Z：＂α＂N：AbsSO→W：Prog＂ABCYTZ＂第5步Cls：＂F＂：Locate31F°：＂X＂：Locate32X：＂Y＂：Locate33Y第6步Prog＂ABCYTSQX＂：Cls：＂H＂：Locate31H第7步1→W：90→N：Goto3第8步Lbl2：X：Y：X→I：Y→J：Prog＂ABCYTF＂：OW→S第9步Cls：＂K＂：Locate31S：＂S＂：Locate32Z第10步2→W：Goto3
正算子程序名：ABCYTZ
第1步01739274226→A：03260725774→B：00694318442→K：03300094782→L第2步1L→F：1K→M第3步UW×A×cosGQ×E×K×W×CK×W×DB×cosGQ×E×L×W×CL×W×DB×cosGQ×E×F×W×CF×W×DA×cosGQ×E×M×W×CM×W×D→X第4步VW×A×si
GQ×E×K×W×CK×W×DB×si
GQ×E×L×W×CL×W×DB×si
GQ×E×F×W×CF×W×DA×si
GQ×E×M×W×CM×W×D→Y第5步GQ×E×W×CW×D→F：FN→Z1第6步XZ×cos（Z1）→X：YZ×si
（Z1）→Y
反算子程序名：ABCYTF
第1步Lbl2：（SO）→W：0→Z：Prog＂ABCYTZ＂：F90→Z9：JY×cosZ9IX×si
Z9→Z10
f第2步IfAbsZ100001：The
SZ10→S：Goto2：ElseGoto1：IfE
d第3步Lbl1：YJ÷si
Z9→Z第4步PolXI，YJ：IfZ0：The
1×I→Z：Else1×I→Z：IfE
d
数据库名：ABCYTSJ
第1步Goto1第2步Lbl1：IfS7586707OrS1334696：The
Cls：Locate22＂PQX＂：Locate43＂CHAOXIAN＂：Locate104＂→Stop＂第3步Stop：IfE
d第4步Lbl1：IFS7946707：The
98°56′56″→G：7586707→o：3378605445→U：453648704→V：0→P：4500→R：360→H：1→Q：Retur
：IfE
d第5步Lbl1：IFS1176603：The
101°14′26″→G：7946707→o：3378544714→U：454003518→V：4500→P：4500→R：3819323→H：1→Q：Retur
：IfE
d第6步Lbl1：IFS1212603：The
149°52′11″→G：1176603→o：3376389890→U：457018324→V：4500→P：0→R：360→H：1→Q：Retur
：IfE
d第7步Lbl1：IFS1334696：The
152°09′4168″→G：1212603→o：3376073846→U：457190654→V：0→P：0→R：122093→H：0→Q：Retur
：IfE
d第
步……………………………………………………
数据输入说明：第1步Goto1r