Rec(M,List Ans[2]-S:List Ans[2]→J P*list Ans[1]÷(P-J)→Q:K+Q→K 4→V:Prog “GN”:I=0=>Return
LpWhile Abs Q>1milli:Return:IfEnd If V=8=:Then List 9[A]→θ
If θ<0:Then ClrText:“ZG”:1→W:Prog “SC”
If F=1:Then –θ→θ:Return:Else 0→θ:IfEnd:IfEnd If θ=0:Then “ZG”?→θ: -θ→List 9[A] :Return: :IfEnd θ→I:Do:List 18[I+1]→P:List 21[I]→N List 19[I]→Q:List 18[I]→O:I+1→I:P-O→P NAbs P÷P→N:Abs(NP÷2)→P
LpWhile K>Q+P:K-Q→Q:List 20[I]+OQ→θ Q+P→Q:Q>0=>θ+Q2÷2÷N→θ:Return:IfEnd If V=9:Then If r<0:Then Do:List 22[I]→P
List 23[I]→Q:I+1→I:List 22[I]→N:List 23[I]→O LpWhile K>N:IfEnd
Else Do:List 22[I]→P:List 24[I]→Q:I+1→I
List 22[I]→N:List 24[I]→O:LpWhile K>N:IfEnd (K-P)÷(N-P)→P:3P^(2^S)-2P^(3^S)→P Q+P(O-Q)→I:Return:IfEnd
If V=0:Then D→I: Do:List 25[I]→P:List 26[I]→Q I+1→I: List 25[I]→N:List 26[I]→O LpWhile R<Q Or R>O (R-P) ÷(N-P)→P: Q+P(O-Q)→Q:Return:IfEnd
计算下一点坐标
射线计算
如果V=1把终点作为起算点(导线)
输线路号,无数据时退出 输入线路号
如有数据,线路所在行号保存到List 7[1]
检查里程
取得起点里程 终点里程 线路起终点里程
显示已知数据,提示输入里程
如果里程不在范围则 “K超范围” 否则输出平曲线数据所在行号 识别按键F1~FI 只对F1~FI有效
反算,先算出中桩坐标 求出测点到中桩距离 求出到切线垂直距离 计算切线方向改正量 检验里程是否超限
切线改正量小于1mm则结束 计算中桩高程
如果上次高程为手输,则询问是保留F1 是F2 否 F1用原数据,F2 重输入 手工输入中桩高
自动计算中桩高,读出后坡,半径 变坡里程,前坡,求坡差 求半径和切线长
如果在竖曲线内则计算直坡各点高 在竖曲线上的加上改正量 直线或3次抛物线内插求值 查左线数据库,
查右线数据库
求出比例系数 内插求值
边坡宽直线内插求值 查询变坡点
找到高程点所在坡面 直线内插求出边坡宽
fx-9860G SD使用说明及方法
If W=1:Then “F1 Yes”: “F2 No” 6→V:2→I:Prog “GN” :Return:IfEnd If W=2:Then “dG=”:”dK=”:L+2→L
Locate 4,L-1,R:Locate 4,L,J:Return:IfEnd If W=3:Then “ZG=”:L+1→L Locate 4,L,θ: Return:IfEnd
If W=4:Then “X=”:”Y=”:L+2→L
Locate 3,L-1,r:Locate 3,L, θ:Return:IfEnd If W=5:Then “K=”:”J=”:L+2→L
Locate 3,L-1,K:Locate 3,L, J:Return:IfEnd
If W=6:Then 0→A:0→θ:J→r:1E20→P:Return:IfEnd If W=7:Then JrList 2(CJList 2+B)→List 3 Jlist 1cosList 3:Sum List Ans→r Jlist 1sinList 3:Sum List Ans→θ
Jr(CJ+B)→A:Pol(r, θ):List Ans[1]→r
List Ans[2]→θ:1÷(2CJ+B)→P: Return:IfEnd If W=8:Then Jr÷R→A:A÷2→θ 2Rsinθ→r:R→P: Return:IfEnd If W=9:Then J→r:List 10[A]→M List 14[A]→R:List 11[A]→T List 12[A]→C:List 15[A]-1→S If S=-2:Then ClrText
“Next Lm”:1→W:Prog “SC”:F-3→S:IfEnd If S=-1:Then S→List 15[A] “CG”?→C:C→List 12[A] “KD”?→M:M→List 10[A] “TJ”?→T:T→List 11[A] “CZ”?→R:R→List 14[A]
Else If S=0 Or S=1:Then 7→V:C→I Prog “GN”:I→C:T→I:Prog “GN”:I→T
M→I:Prog “GN”:I→M:R→I: Prog “GN”:I→R If R<0:Then If Abs C>0.02:Then –JC→r
M→I:Prog “GN”:I→R:R(Abs C-0.02)+θ→θ:IfEnd 0→R:IfEnd:θ+MC→H
If C<-0.04:Then H+TC→θ:Else H-0.04T→θ:IfEnd R+M→K:K+T→r:Return:IfEnd If W=0:Then List 13[A]→I
If I<0:Then 2→D:If I=-1:Then ClrText “New Dm”:1→W:Prog “SC”:F-2→I:IfEnd
If I=0:Then “H”?→List 25[D]:“W”? →List 26[D] Do:D+1→D:“H”?→List 25[D]:“W”? →List 26[D] ClrText: “Next Bp”:1→W:Prog “SC”:LpWhile F=1 2→D:-1→List 13[A]:IfEnd:Return:IfEnd 7→V:Prog “GN”:O→D:Return:IfEnd 是否选项 F1 是 F2 否 接受F1, F2键
高度和宽度误差显示 显示数值 高程输出显示 显示数值 坐标输出显示 显示数值 位置输出显示 显示数值
直线延长计算,转角,偏角,弦长,半径 缓曲延长计算,分偏角计算 坐标分量计算 坐标分量计算 转角,弦长 偏角,半径
圆曲延长计算,转角,偏角 弦长,半径
路肩高宽计算,路面保存位置 分隔带,土路肩宽保存位置
超高保存位置,线路等级(内插方式)或数据写入状况 如上次数据是手工临时输入 提示是用原数据还是重输
如要求重输,则先改写数据写入状态为已输入 输入超高 输入路面宽 输入土路肩宽 输入分隔带半宽
如已知线路等级则按内插方式计算 C超高,T,土路肩宽 M路面宽,分隔带宽
如分隔带宽小于0,且超高大于2% 计算曲线内侧路面宽,改正中桩高 计算路面边高
以-4%坡为界,分别计算土路肩高 计算路面宽,土路肩宽 断面号查询
如临时断面数据已输入 提示用原断面还是重输入
如要求重输,先输入第一个边坡点 输入第二个边坡点 提示是否还输入下一点
将数据状态改为已输入,输出2为断面数据位置 否则查表找出断面数据位置.
fx-9860G SD使用说明及方法
使用说明书
一、 数据准备
1、 高斯公式常数表
高斯公式五节点10个常数保存在LIST第1、2列，共占5行。如要提高运算速度或提高结果精度可改变此两列数据。 2、 线路数据格式
线路数据保存在LIST的6~8列，第一行第第7列保存运行时线路选择结果。
从第二行开始保存各条线路基本情况，第6列为起点里程，第7列为终点里程，第8列为对应线路数据的详细资料的起始行号，数据必须连续存放。 3、 平曲线数据格式
各条线路对应的平曲线数据分段保存在LIST的9-17列，各条线路保存顺序不限，每条线路数据连续存放。
每段的第一行各列为横断面有关数据保存的起始位置或计算参数。第9列为竖曲线，第10列为路面宽度，第11列为土路肩宽度，第12列为超高，第13列为线路等级，第14列为超高旋转方式，第15列为边坡设计形式。