CASIO fx-9860计算器三维线路计算程序,正反算。

FY:If:F=1:Then Do:ClrText “Fangyang”

5→V:Prog “GN”:I=0=>Return Prog “ZZ”:Prog “GN” Do:ClrText:4→W:0→L

“F1 Daoxian”:“F2 Shexian”:“F3 2Bian”

FN:6→V:3→I:Prog “GN”:F→V:F=3=>2→V “J”?->r:r→J: “A”→θ: θ→A SX.DX:ClrText:Prog “GN” “XY”:Prog “SC”

SX:If F=3:Then -J→r:A→θ

Prog “GN”:Prog “SC”:IfEnd: “OK”▲ ClrText:“F1 Next”: “F2 K?”: “F3 Quit” FN:6→V:3→I:Prog “GN” LpWhile F=1:LpWhile F=2 Return:IfEnd

JC:If F=2:Then Do:ClrText “Jiance”:0→List 25[1]

“F1 Lumian”:“F2 Bianpo”:“F3 2D” FN:6→V:3→I:Prog “GN”:F→U K?:5→V:Prog “GN”:I=0=>Return Do: FS: “X”?→X:“Y”?→Y 7→V:Prog “GN”: I=0=>Return

“KJ”:ClrText:0→L:5→W:Prog “SC” If U≠3:Then “Z”?→Z List 7[1]→I:List 8[I]→A

If List 25[1]=0:Then ZG:8→V:Prog “GN” 3→W:Prog “SC”: DM:0→W:Prog “SC” LJ:9→W:Prog “SC”:IfEnd

If U=1:Then “-H”?→R:Else Z-G→R:IfEnd PK:0→V:Prog “GN”

If U=1:Then AbsJ→r:Z-R-H-(r-K)C→R:r-K-Q→J Else Abs J-E-Q→J:List 25[1]→Q:J→List 25[1] Q≠0=>QJ÷(Q-J)→J:IfEnd

“dKdH”:0→L:2→W:Prog “SC”: “OK” ▲ If U=2:Then ClrText

“Next PJ”:1→W:Prog “SC”:F=1=>0=>List 25[1] IfEnd:IfEnd:ClrText

“F1 Next”: “F2 Menu”: “F3 Quit” FN:6→V:3→I:Prog “GN” LpWhile F=1:LpWhile F=2 Return:IfEnd

放样计算

“放样” 输入里程 中桩坐标计算 指定显示坐标模式

F1 导线,F2 射线,F3 二边 接受F1~F3功能键 读取测线长,转角 执行导线或射线计算 显示坐标

如按键是F3再算对称点 计算,显示图形第二点坐标

F1 下一点,F2 更换中桩,F3 退出放样 接受F1~F3功能键

执行上述按键对应的F1~F2功能 如是F3 退出 检测计算 “检测”

F1 路面,F2 边坡,F3 2维” 接受F1~F3功能键 输入近似里程 输入待检坐标

执行反算求出里程和位置 显示里程和位置

如不是F3则输入测点高程 获取纵横断面数据行号

如第一次测断面则计算中桩高 显示中桩高,获取断面数据行号 计算硬(土)路肩高,宽,

如F1待检层距路面高,F2 计算测点和土路肩高差 求测点边坡宽(相对路肩)

如F1求相对路面边的高宽超欠

如F2 求相对土路肩高差和边坡宽基本超欠 如不是第一点则考虑原地面坡度修正宽超欠 显示高差,宽度超欠

如F2 检测边坡时询问 “下一坡脚 F1是 F2否” F1则将上次测点距边坡归零

如是F3不执行输入测点高及以上语句

F1 继续原来功能 F2 返回功能选单F3退出检测 接受F1~F3按键

执行上述按键对应的F1~F2功能 如是F3退出