4850任意曲线中边桩正反算程序

坐标正算主程序(命名为ZS)Lbl 0{K,L,Q,S}:K:L:Q:Prog”FXL”:Prog”SUB”“X=”:X=X:Pause 0:Y=Y◢K=S+KGoto 0坐标反算主程序(命名为FS)Lbl 0:{PT}:P”X0”:T”Y0”Lbl 1:{K}:L=0:Q=0:Prog”FXL”...

坐标正算主程序(命名为ZS)
Lbl 0
{K,L,Q,S}:K:L:Q:Prog”FXL”:Prog”SUB”
“X=”:X=X:Pause 0:Y=Y◢
K=S+K
Goto 0
坐标反算主程序(命名为FS)
Lbl 0:{PT}:P”X0”:T”Y0”
Lbl 1:{K}:L=0:Q=0:Prog”FXL”:Prog”SUB”
U=I-90
V=(T-Y)cos U-(P-X)sin U
Abs V≥0.001=>K=K+V:Goto 1:≠=>”K0”:K=K:Pause 0:W”L0”=(T-Y)cos I-(P-X)sin I◢
Goto 0
计算坐标子程序(命名为SUB)
Norm
Deg
U=(E-D) ÷Abs(G-F):V=Abs(K-F):W=UV
J=C+90V(W+2D) ÷π:J<0=>J=J+360 J≥360=>J=J-360
M=C+45V(W÷4+2D)÷(2π):N=C+135V(3W÷4+2D)÷(2π):O=C+45V(W÷2+2D)÷π
I=J+Q
Fix 3
X=A+V÷12*(cos C+4(cos M+cos N)+2cos O+cos J)+Lcos I
Y=B+V÷12*(sin C+4(sin M+sin N)+2sin O+sin J)+Lsin I
数据库(命名为FXL)
K≥8176.468(起点里程) =>K≤9223.332(终点里程)=>A=88984.854(起点坐标):B=35349.410(起点坐标):C=273°8′4″(曲线起点的坐标方位角):D=0(曲线段起点的曲率[左负右正]):E=0(曲线段终点的曲率[左负右正]):F=8176.468(起点桩号):G=9223.332(终点里程)
说明:
程序规定,左偏曲线曲率(半径倒数)输入负值,右偏曲线曲率输入正值,直线上曲率输入为0

  • 发表于 2018-11-05 13:59
  • 阅读 ( 27 )
  • 分类:4850

你可能感兴趣的文章

相关问题

0 条评论

请先 登录 后评论
admin
admin

174 篇文章

作家榜 »

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