任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序

任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序一、源程序(SZ-XY-SZ)"1.SZ => XY":"2. XY => SZ":N:U"X0":V"Y0":O"S0":G"F0":Q:Q=0=>R=1E-45:≠>R△J=0:M=AbsQ:K=...

任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序
一、源程序(SZ-XY-SZ)
"1.SZ => XY":"2. XY => SZ":N:U"X0":V"Y0":O"S0":G"F0":Q:Q=0=>R=1E-45:≠>
R△J=0:M=AbsQ:K=1-M:N=1=>Goto 1:≠>Goto 2△←┙
Lbl 1:{SZ}:SZ:L=S-O:B=90QL÷π÷R:F=G+B:E=F+B+90:C=LK+2MRsinQB:X"XS"
=  U+Rec(C,F)+ZcosE◢
Y"YS"=V+J+ZsinE◢
Goto 1←┙
Lbl 2:W=G+90Q:E=U+Rec(R,W):F=V+J:W=W+180M:W>360=>W=W-360△←┙
Lbl 3:{XY}:XY:D=Pol(X-E,Y-F):T=J:J<0=>T=J+360△B=T-W:P=KB+MAbs B:S"S"=O+
DKcosP+ MπRP÷180◢
Z"Z"=DKsinB+MQ(R-D)◢
Goto 3←┙
二、使用说明
1.由里程、中边桩计算坐标
启动程序后按以下提示输入数据:
N ?1  (N=1,由里程中边桩计算坐标;N≠1,由坐标反算里程及中边桩)
X0 ?142.353 (直线或圆曲线起点的X坐标)
Y0 ?368.166 (直线或圆曲线起点的Y坐标)
S0 ?155.252 (直线或圆曲线起点的里程)
F0 ?60°54′03″(直线或圆曲线起点的切线方位角)
Q ?-1  (当线元为直线时Q=0;当线元为圆曲线且左偏时Q=-1;当线元为圆曲线且
右偏时Q=1)
R ? 100 (圆曲线的半径)
S ?  194.016 (中线里程)
Z ?   -5.251 (中线左侧5.251m的边桩;在中线上Z=0,在左侧<0,在右侧Z>0)
显示计算结果
XS=170.5018198
YS=393.488351
2.由坐标反算里程、中边桩
启动程序后按以下提示输入数据:
N ?2  (N=1,由里程中边桩计算坐标;N≠1,由坐标反算里程及中边桩)
X0 ?142.353 (直线或圆曲线起点的X坐标)
Y0 ?368.166 (直线或圆曲线起点的Y坐标)
S0 ?155.252 (直线或圆曲线起点的里程)
F0 ?60°54′03″(直线或圆曲线起点的切线方位角)
Q ?-1  (当线元为直线时Q=0;当线元为圆曲线且左偏时Q=-1;当线元为圆曲线且
右偏时Q=1)
R ? 100 (圆曲线的半径)
X ? 170.5018(待求里程及中边桩的点的X坐标)
Y ? 393.4884(待求里程及中边桩的点的Y坐标)
显示计算结果
S=194.016016
Z=-5.250949363
三、注意事项
1.本程序主要是针对市政道路工程中的直线和圆曲线而编制的,未考虑缓和曲线等
曲线的计算;
2.程序中“R=1E-45”的意思为10的-45次方,即10-45,1E-45输入操作为【1】【EXP】【-】【4】 【5】,切莫输错。
3.程序中设置的计算顺序是由小里程往大里程方向(即里程增大的方向),曲线左偏、右偏也是以里程增大的方向来区分的。

  • 发表于 2018-11-05 13:56
  • 阅读 ( 36 )
  • 分类:4800

你可能感兴趣的文章

相关问题

0 条评论

请先 登录 后评论
admin
admin

174 篇文章

作家榜 »

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