cnCalc计算器论坛

 找回密码
 注册
搜索
查看: 16881|回复: 37

[fx-9860/9750系列] 9860测量程序

[复制链接]
发表于 2010-4-25 09:13:17 | 显示全部楼层 |阅读模式
计算器程序
程序名称:
平台:  
系统/软件要求:
版本号:
类型:  
作者:
大小(K):
更新日期:
描述: -
已知缺陷: -
源代码: -
程序清单


AA
Do:Deg:ClrText
“F1 Fangyang”
“F2 Jiance”
“F3 suidao”
‘FN:6V:3I:Prog “GN”
‘XL:3V:Prog “GN”
Prog “FN”:ClrText
“Cont”:1W:Prog “SC”
LpWhile F=1
ZZ
List 7[1]I:List 8[I]I:1V
Do:I+1I: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÷RB: 1E20→R
O<0=>List 17[I+1]→R
Abs OO: (1÷R-B)÷2÷O→C
7W
‘HQ:If J<O:Then Prog “SC”
Return:IfEnd
‘HZ:OJ: Prog “SC”:Prog “GN”
K-Q-OJ
6W
‘ZX:Prog “SC”

主程序
设置角度单位为度
F1放样
F2 检测
F3 隧道
接受F1~F3功能键
选择输入线路号
执行上述按键对应的F1~F3功能
是否继续F1 F2
按键为F1时重新开始
中桩计算子程序
获取平曲线数据行号,指定沿曲线按导线递推
读取下一曲线交点里程JD
直到里程小于下一曲线起点(JD-T)
读取交点坐标
读取切线方位角和圆半径
读取交点里程和负的切线长
直线计算功能
由交点推算到起缓
求第一缓曲测线长、默认起点曲率、缓曲长
若第一缓长为负令前曲圆曲率为起点曲率
第一缓长改为正,求缓曲变化系数
K小于曲线起点按直线计算
跳出子程序
缓曲计算功能
K小于缓圆按缓曲计算
跳出子程序
由曲线起点推算到缓圆
求圆曲段测线长及圆曲长
圆曲计算功能
K小于圆缓按圆曲计算
跳出子程序
由缓圆推算到圆缓
求第二缓曲测线长、缓曲长
求起点曲率、默认终点半径
若第二缓长为负令后曲圆半径为终点半径
第二缓长改为正,求缓曲变化系数
缓曲计算功能
K小于曲线终点按缓曲计算
跳出子程序
由圆缓推算到缓终
求直线长
直线计算功能
K大于曲终按直线计算

9860测量程序.doc

140.5 KB, 下载次数: 708, 下载积分: 金钱 -1

评分

参与人数 1金钱 +10 贡献 +1 收起 理由
疯不狂 + 10 + 1 谢谢分享

查看全部评分

发表于 2010-4-25 11:24:08 | 显示全部楼层
感谢LZ分享,不过图形计算器程序请转移到图形计算器程序板块,谢谢。
发表于 2010-4-25 19:22:59 | 显示全部楼层
感谢楼主分享!!直接搞个计算器上用的包方便大家。。
发表于 2010-4-26 13:30:56 | 显示全部楼层
现在,很少9860的程序,公开的更少。谢谢了
发表于 2010-5-20 12:41:45 | 显示全部楼层
这个没带数据库的是鸡肋
发表于 2010-5-22 17:38:44 | 显示全部楼层
数据库,它用串列,串列就是数据库
发表于 2010-6-8 13:58:06 | 显示全部楼层
还不是很详细,不过很强大。
发表于 2010-6-11 09:18:16 | 显示全部楼层
强大
发表于 2010-7-1 23:04:21 | 显示全部楼层
检测主要是啥内容?
发表于 2010-9-13 22:36:17 | 显示全部楼层
哦 谢谢分享  下了看看
发表于 2010-9-14 21:26:58 | 显示全部楼层
继续努力。
发表于 2010-9-16 18:26:10 | 显示全部楼层
j_0002.gif 顶起!  钱不够···
发表于 2010-9-21 15:17:07 | 显示全部楼层
这里还有测量人士呀。呵呵。。9860 现在还不是特别普及
发表于 2010-9-24 16:16:14 | 显示全部楼层
9860在测量中很普及

评分

参与人数 1金钱 +10 收起 理由
yzhang37 + 10 正解

查看全部评分

发表于 2010-10-8 15:48:15 | 显示全部楼层
谢谢楼主的分享!学习学习
发表于 2010-10-14 22:31:21 | 显示全部楼层
测量上不说9860了,连5800用得都少,大部分都还是4800和4850。
发表于 2010-10-19 15:22:53 | 显示全部楼层
bu不错 感谢分享啊j_0003.gif
发表于 2010-11-11 14:27:36 | 显示全部楼层
附件内容更详细,谢谢分享
发表于 2010-11-13 17:23:40 | 显示全部楼层
新手,里面数据库在电脑上面是怎么编写的?程序是在电脑上面输还是在计算器里面输入?
发表于 2010-11-14 23:16:58 | 显示全部楼层
此程序亵渎了9860的功能
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|cnCalc计算器论坛

GMT+8, 2024-11-21 23:24 , Processed in 0.077725 second(s), 30 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表