9860测量程序(最后结果)1

fx-9860G SD使用说明及方法

程序清单

AA

Do:Deg:ClrText “F1 Fangyang” “F2 Jiance” “F3 suidao”

FN:6→V:3→I:Prog “GN” XL:3→V:Prog “GN” Prog “FN”:ClrText

“Cont”:1→W:Prog “SC” LpWhile F=1

ZZ

List 7[1]→I:List 8[I]→I:1→V Do:I+1→I:List 9[I+1]→Q LpWhile K>Q-List 12[I+1] List 10[I]→M:List 11[I]→N List 16[I]→S:List 17[I]→R List 9[I]→Q:-List 12[I]→J 6→W

QH:Q+J→Q:Prog “SC”:Prog “GN”K-Q→J:1E-20→B:List 13[I]→O O<0=>1÷List 17[I-1]→B AbsO→O:(1÷R-B)÷2÷O→C ZX:If J<0:Then Prog “SC” Return :IfEnd 7→W

HQ:If J<O:Then Prog “SC” Return:IfEnd

HY:O→J:Prog “SC”:Prog “GN” Q+O→Q:K-Q→J:List 14[I]→O 8→W

YQ:If J<O:Then Prog “SC” Return:IfEnd

YH:O→J:Prog “SC”:Prog “GN” Q+O→Q:K-Q→J:List 15[I]→O 1÷R→B: 1E20→R O<0=>List 17[I+1]→R Abs O→O: (1÷R-B)÷2÷O→C 7→W

HQ:If J<O:Then Prog “SC” Return:IfEnd

HZ:O→J: Prog “SC”:Prog “GN” K-Q-O→J 6→W

ZX:Prog “SC”

主程序

设置角度单位为度 F1放样 F2 检测 F3 隧道

接受F1~F3功能键 选择输入线路号

执行上述按键对应的F1~F3功能 是否继续F1是 F2 否 按键为F1时重新开始

中桩计算子程序

获取平曲线数据行号,指定沿曲线按导线递推 读取下一曲线交点里程JD

直到里程小于下一曲线起点(JD-T) 读取交点坐标

读取切线方位角和圆半径 读取交点里程和负的切线长 直线计算功能 由交点推算到起缓

求第一缓曲测线长、默认起点曲率、缓曲长 若第一缓长为负令前曲圆曲率为起点曲率 第一缓长改为正,求缓曲变化系数 K小于曲线起点按直线计算 跳出子程序 缓曲计算功能

K小于缓圆按缓曲计算 跳出子程序

由曲线起点推算到缓圆 求圆曲段测线长及圆曲长 圆曲计算功能

K小于圆缓按圆曲计算 跳出子程序

由缓圆推算到圆缓

求第二缓曲测线长、缓曲长 求起点曲率、默认终点半径

若第二缓长为负令后曲圆半径为终点半径 第二缓长改为正,求缓曲变化系数 缓曲计算功能

K小于曲线终点按缓曲计算 跳出子程序

由圆缓推算到缓终 求直线长 直线计算功能

K大于曲终按直线计算

fx-9860G SD使用说明及方法

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退出

fx-9860G SD使用说明及方法

If V=1 Or V=2:Then S+θ→θ:{M,N}+Rec(r, θ) List Ans[1]→r:List Ans[2]→θ

If V=1:Then r→M: θ→N:S+A→S:IfEnd Return:IfEnd

If V=3:Then Dim List 6→Q:Q=1=>Stop Do:ClrText: “”:?→I:Int Abs I+1→I LpWhile I<2 Or I>Q:I→List 7[I] Return:IfEnd

If V=4 Or V=5:Then List 7[1]→I

List 6[I]→Q:List 7[I]→M:If V=5:Then ClrText “XL”: “QDK”: “ZDK”:Locate 4,1,I-1 Locate4,2,Q:Locate4,3,M: “K”?→K:IfEnd If K<Q Or K>M:Then 0→I: “K over” ▲ Else List 8[I]→I:IfEnd:Return:IfEnd If V=6:Then Do:Do:8.9-GetKey÷10→F

LpWhile Frac F≠0:LpWhile F>I: Return:IfEnd If V=7:Then Do:Prog “ZZ”:Prog “GN” Pol(X-M,Y-N):List Ans[1]→M

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说公务员考试9860测量程序(最后结果)1在线全文阅读。