9860程序集 第1篇 坐标计算终极篇

9860程序集 第1篇 坐标计算终极篇

浙隧测   发表于2009年12月02日 15:15 阅读(181) 评论(5) 分类: 个人日记

uploading.4e448015.gif正在上传…重新上传取消举报

uploading.4e448015.gif正在上传…重新上传取消

uploading.4e448015.gif正在上传…重新上传取消作者 :柠檬树   QQ 249910569

1.坐标正算主程序(命名为ZBZS)

第1行:Lbl 0:”K=”?K:”BIAN=”? Z:”α=”?B

第2行:Prog “A”

第3行:”X=”:N+Zcos(F+B)◢

第4行:”Y=”:E+Zsin(F+B)◢

第5行:”F=”:F◢

第6行:Goto 0

K——计算点的里程

BIAN——计算点到中桩的距离(左负右正)

α——取前右夹角为正

2.坐标反算桩号和偏距主程序(命名为ZBFS)

第1行:”X1=”? C:”Y1=”?D: ”K1=”?K

第2行:Lbl 0:Prog “A”

第3行:Pol(C-N,D-E)

第4行:List Ans[1]→I

第5行:List Ans[2]→J

第6行:Icos(F-J)→S:K+S→K

第7行:Abs(S)>0.0001=>Goto 0

第8行:”K1=”:K◢

第9行:”BIAN=”:Isin(J-F)→Z◢

X1——取样点的X坐标

Y1——取样点的Y坐标

K1——输入时为计算起始点(在线路内即可),输出时为反算点的桩号

Z——偏距(左负右正)

3.计算坐标子程序(命名为XYF)

为了简洁,本程序由数据库直接调用,上述中的正反算主程序不直接调用此程序

第1行:K-A→S:(Q-P)÷L→I

第2行:N+∫(cos(F+X(2P+XI)×90÷π),0,S)→N

第3行:E+∫(sin(F+X(2P+XI)×90÷π),0,S)→E

第4行:F+S(2P+SI)×90÷π→F

4.数据库(命名为A

uploading.4e448015.gif正在上传…重新上传取消第1行:K≤175.191=>Stop

第2行:175.191→A:428513.730→N:557954.037→E:92°26′40″→F:0→P:1/240→Q:70.417→L:

K≤A+L=>GoTo 1(第一缓和曲线,圆半径为240)

第3行:245.607→A: 428507.298→N:558024.092→E: 100°50′59.4″→F: 1/240→P:1/240→Q:

72.915→L: K≤A+L=>Goto 1(第圆曲线,半径为240)

第4行:318.522→A: 428482.988→N:558092.538→E: 118°15′25.2″→F: 1/240→P: 0→Q: 55.104

→L: K≤A+L=>Goto 1(第二缓和曲线,圆半径为240)

第5行:373.627→A:428453.283→N:558138.912→E:124°50′4.5″→F:0→P:-1/180→Q:67.222→L:

K≤A+L=>Goto 1:Stop(第一缓和曲线,圆半径为180)

第6行:Lbl 1:Prog “XYF”

uploading.4e448015.gif正在上传…重新上传取消A——曲线段起点的里程

N——曲线段起点的x坐标

E——曲线段起点的y坐标

F——曲线段起点的坐标方位角

P——曲线段起点的曲率(左负右正)

Q——曲线段终点的曲率(左负右正)

L——曲线段长度(尽量使用长度,为计算断链方便)

说明:

19860中,程序中所有公式和部分函数结果均存储在List Ans列表数组中,要想多次调用最好随公式取出结果,并赋给变量。

2)正算主程序可以计算一般边桩的坐标,如要计算类似涵洞端墙的坐标需增加第二偏距和转角两个变量。

uploading.4e448015.gif正在上传…重新上传取消3)程序规定,左偏曲线曲率(半径倒数)输入负值,右偏曲线曲率输入正值,直线上点曲率输入0,例如直线段,线元起点和终点均输入0,第一缓和曲线分别输入0和圆半径的倒数,圆曲线均输入半径倒数,第二缓和曲线分别输入圆半径倒数和0,卵形曲线分别输入对应圆半径的倒数

4)若是从大里程向小里程的反方向计算,则曲率取正方向时的负值,方位角减去(或加上)180度。

5)有多个匝道的项目,可随时更改正反算主程序中的红色字体部分来调用其它线路的数据

uploading.4e448015.gif正在上传…重新上传取消 6)反算桩号偏差为1mm

7)可以计算任意线型的任意点坐标

 

5.坐标计算通用程序(命名为ZB)

 

本程序与上述中的几个程序无关,是在计算坐标时采用输入曲线元参数模式下的程序,为临时使用方便。

 

第1行:”K0=“? A:”X0=“? N:”Y0=“?E:”F0=“?F:”1÷R1=“?P:”1÷R2=“?Q”:“L0=“?L

第2行:Lbl 0:”K=”?K:”BIAN=”? Z:”α=”?B

第3行:Abs(K-A)→S:(Q-P)÷L→I uploading.4e448015.gif正在上传…重新上传取消

第4行:N+∫(cos(F+X(2P+XI)×90÷π),0,S)→X

第5行:E+∫(sin(F+X(2P+XI)×90÷π),0,S)→Y

第6行:”F=”:F+S(2P+SI)×90÷π◢(可省掉)

第7行:”X=”:X+Zcos(Z+B)◢

第8行:”Y=”:Y+Zsin(Z+B)◢

第9行:Goto 0

本程序测试于卡西欧9860,适用于卡西欧计算器5800以上版本,去掉反算程序中第4、5行后可用在5800计算器上

 

uploading.4e448015.gif正在上传…重新上传取消

 

  • 2
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

金枝玉叶9

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值