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

程序清单

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大于曲终按直线计算