mengchaohua 发表于 2010-4-25 09:13:17

9860测量程序

程序清单

AADo: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
ZZList 7→I:List 8→I:1→VDo:I+1→I:List 9→QLpWhile K>Q-List 12List 10→M:List 11→NList 16→S:List 17→RList 9→Q:-List 12→J6→W‘QH:Q+J→Q:Prog “SC”:Prog “GN”K-Q→J:1E-20→B:List 13→OO<0=>1÷List 17→BAbsO→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→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→O1÷R→B: 1E20→RO<0=>List 17→RAbs 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大于曲终按直线计算

疯不狂 发表于 2010-4-25 11:24:08

感谢LZ分享，不过图形计算器程序请转移到图形计算器程序板块，谢谢。

jimmyi 发表于 2010-4-25 19:22:59

感谢楼主分享！！直接搞个计算器上用的包方便大家。。

胖大海 发表于 2010-4-26 13:30:56

现在，很少9860的程序，公开的更少。谢谢了

ljh999999 发表于 2010-5-20 12:41:45

这个没带数据库的是鸡肋

胖大海 发表于 2010-5-22 17:38:44

数据库，它用串列，串列就是数据库

盛一碗阳光 发表于 2010-6-8 13:58:06

还不是很详细，不过很强大。

113240900 发表于 2010-6-11 09:18:16

强大

盛一碗阳光 发表于 2010-7-1 23:04:21

检测主要是啥内容？

dust 发表于 2010-9-13 22:36:17

哦 谢谢分享下了看看

唔石 发表于 2010-9-14 21:26:58

继续努力。

fangweijia 发表于 2010-9-16 18:26:10

j_0002.gif 顶起！钱不够···

lfzss 发表于 2010-9-21 15:17:07

这里还有测量人士呀。呵呵。。9860 现在还不是特别普及

imath 发表于 2010-9-24 16:16:14

9860在测量中很普及

32828225 发表于 2010-10-8 15:48:15

谢谢楼主的分享！学习学习

黄密 发表于 2010-10-14 22:31:21

测量上不说9860了，连5800用得都少，大部分都还是4800和4850。

swk335 发表于 2010-10-19 15:22:53

bu不错 感谢分享啊j_0003.gif

cjy9219 发表于 2010-11-11 14:27:36

附件内容更详细，谢谢分享

cjy9219 发表于 2010-11-13 17:23:40

新手，里面数据库在电脑上面是怎么编写的？程序是在电脑上面输还是在计算器里面输入？

zhuyi98 发表于 2010-11-14 23:16:58

此程序亵渎了9860的功能
页: [1] 2
查看完整版本: 9860测量程序