CASIO fx-5800P实用工程测量程序
L0?－缓和曲线长度（L0）
T?－为ZH（或HZ）点至本曲线JD点的方位角
K?－根据JD点处的偏角α确定，左偏取-1，右偏取+1；
当由HZ点计算时，左偏取+1，右偏取-1
Ｘ? Ｙ?－待求点坐标 (0≠Z跳过以上显示)
运算结果: LC－待求点对应桩号
KD－距离中线距离，左负，右正 Ｘ? Ｙ? －重新输入待求坐标点
（D＞L ： 表示该计算点不在该缓和曲线段内，并提示重新输入坐标。）
断面检查 DMJC
1. Lbl 0 ： “K”?K：“KD”? A：“HA”?B 2. K<22340 161.95－（22340－K）×0.011→ G 3. K>23060 161.23－（K－23060）×0.013→ G
4. If K>22340 And K<23060 ： Then Goto 0 ：IfEnd 5. √(A2+(B－G－2.43)2)－7.2→ D：“CQW”：D 6. Goto 0
输入说明： K？ 输入里程
KD？ 距中心宽度 KA？ 测点高程
计算结果： CQW 超欠挖值，（“－”值表示欠挖值，“＋”超挖值）
优化整理：中铁十一局 郑传礼 欢迎推广使用 欢迎提出更妙的运算方案 QQ:330890887 - 16 -