5800P编程 任何线型中边桩坐标计算

5800P编程 任何线型中边桩坐标计算

5800任意线型中边桩坐标计算程序(卵形曲线示例)

RYSX  ZB  JS (主程序)
“1=>S1 , 2=>S2 , 3=>S3 ”?U↙
IfU=1:ThenProg “S1”:IfEnd ↙           进入第一条线路
IfU=2:ThenProg “S2”:IfEnd  ↙          进入第二条线路
IfU=3:Then Prog “S3”:IfEnd ↙          进入第三条线路
Lb1 1: “K”? K ↙
(R -D)/Abs(Z - Q)→P: Abs(K - Q)→C: PC→E↙
F+(E+2D)×C×90÷π→J↙
F+(E÷8+2D)×C×45÷(4π)→M↙
F+(3 E÷8+2D)×C×135÷(4π)→N↙
F+(5 E÷8+2D)×C×225÷(4π)→U↙
F+(7 E÷8+2D)×C×315÷(4π)→V↙
F+(E÷4+2D)×C×45÷(2π)→H↙
F+(E÷2+2D)×C×45÷π→O
F+(3 E÷ 4+2D)×C×135÷(2π)→ G↙
“X=”:A+C÷24×(cos(F)+4×(cos(M)+cos(N)+cos(U)+cos(V))+2×(cos(H)+cos (O)+cos(G))+cos(J))→X ◢
“Y=”:B+C÷24×(sin (F)+4×(sin(M)+sin(N)+sin(U)+sin(V))+2×(sin (H)+sin (O)+sin (G))+sin(J))→Y ◢
Lb1 1:?W:? L:? I↙
“XL=”:X+Lcos(J-W)◢
“YL=”:Y+Lsin(J-W)◢
“XR=”:X+Icos(J+W)◢
“YR=”:Y+Isin(J+W)◢
Goto 1
S1(数据库)子程序
If K≤终点桩号:Then起点桩号→Q:终点桩号→Z:起点X坐标→A:起点Y坐标→B:
起点切线方位角→F:起点曲率1/R1→D:终点曲率1/R2→R: (如是直线均输0)
Goto 0:If End换行
下一个线元要素输入同上。。。。。。。。。。。
。。。。。。。。。。。。。。。。。。。
Lb1 0:Return ↙
S2 第二条线路子程序。。。。。。。同上输入。
S3 第三条线路子程序。。。。。。。同上输入。
说明:
曲率 “1/R1”? D: “1/R2”?R 为起终点半径的倒数. 左向为负右向为正.
若有多条路线数据库建如S2, S3。。。。。S5在使用时把子程序S1根据计算需要改为S2。。。。。S5要计算线路即可。
K为待求点里程, W为夹角,L为左边距,I为右边距。

  • 发表于 2018-11-05 14:13
  • 阅读 ( 63 )
  • 分类:5800

你可能感兴趣的文章

相关问题

0 条评论

请先 登录 后评论
admin
admin

174 篇文章

作家榜 »

  1. admin 174 文章
  2. 胡亮 4 文章
  3. 梁雄 2 文章
  4. 肖肖 2 文章
  5. 老Y 2 文章
  6. netbee 1 文章
  7. 秦汉 1 文章
  8. boyving 1 文章