fx5800计算器高速公路计算程序(适应于郑漯高速)

1坐标放样程序:“ZBFY”◢Fix   4↙“XHS="?P↙(X后视)“YHS=”?Q↙(y后视)“XZJ=”?C↙(X置镜)“YZJ=”?E↙(Y置镜)√((P-C)2+(Q-E)2)→I↙TAN-1((Q-E)/(P-C))→J↙IF (P-C)&lt...

1坐标放样程序:
“ZBFY”◢
Fix   4↙
“XHS="?P↙(X后视)
“YHS=”?Q↙(y后视)
“XZJ=”?C↙(X置镜)
“YZJ=”?E↙(Y置镜)
√((P-C)2+(Q-E)2)→I↙
TAN-1((Q-E)/(P-C))→J↙
IF (P-C)<0:THEN 180+J→J:ELSE  IF (P-C)>0 AND  J<0:THEN  360+J→J:IFEND:IFEND↙
"DH=":I◢(后视距)
"FH=":J DMS◢(后视方位角)
"XQS="?G↙(X前视放样)
"YQS="?H↙(Y前视放样)
√((G-C)2+(H-E)2)→L:TAN-1((H-E)/(G-C))→M↙
IF (G-C)<0:THEN 180+M→M:ELSE IF (G-C)>0  AND M<0:THEN 360+M→M:IFEND:IFEND↙
"D=":L◢(放样距)
"F=":M DMS◢(放样方位角)
M-J→O ↙
IF O<0 :THEN O+360→O:IFEND↙
"FYJ=":O  DMS◢(归0的放样角)

2、支导点坐标计算
“DXJSPRO"◢
FIX 4↙
"XHS="?P↙
"YHS="?Q↙
"XZJ="?C↙
"YZJ="?E↙
√((P-C)2+(Q-E)2)→I↙
TAN-1((Q-E)/(P-C))→J↙
IF (P-C)<0:THEN 180+J→J:ELSE  IF (P-C)>0 AND  J<0:THEN  360+J→J:IFEND:IFEND↙
"DH=":I◢
"FH=":J DMS◢
"S="?S↙(支导点实测距离)
"ZJ="?M↙(支导点实测左角)
J+M→O
IF O>0 :THEN O-360→O:IFEND↙
C+S*COS(O)→X↙
E+S*SIN(O)→Y↙
"O=":O  DMS◢
"X=":X◢
"Y=":Y◢
以上二个程序可以避免方位角计算差180度的情况

三、郑漯高速改扩建8标线路中边桩主程序(设计只有圆曲线)
“XLZBZ"◢
FIX 3↙
LB1  0↙
"K="?K↙(里程)
IF k>66894.3  AND K<68071.674 :THEN  57963.694→X:490178.595→Y:145°21'21.8"→T:K-66894.3→D:GOTO 1:ELSE  IF  K>68071.674  AND  K<69507.642:THEN 56995.067→X:490847.902→Y:145°21'21.8"→T:5999→R:K-68071.674→D:GOTO 2:ELSE  IF  K>69507.642  AND K<71410.619 :THEN  55727.711→X:491515.724→Y:159°4'15"→T:K-69507.642→D:GOTO  1:ELSE  IF  K>71410.619  AND  K<75419.536  :THEN  53950.287→X:492195.492→Y:159°4'15"→T:-8001-R:K-71410.619→D:GOTO  2:ELSE  IF K>75419.536  AND  K<77000: THEN  50711.907 →X:494486.973→Y:130°21'45.6"→T:K-75419.536→D:GOTO 1:IFEND::IFEND:IFEND:IFEND:IFEND↙(线元输入,有几个IF就要几个IFEND,本段有5个线元,K里程,X、Y线元起点坐标,T线元方位角,R曲线半径(左偏-右偏+),D K与线元起点里程差)
LB1  1↙
"ZXPRO"◢(直线程序)
X+D*COS(T)→A↙
Y+D*SIN(T)→B↙
"N=":A◢(输出中桩X)
"E=":B◢(输出中桩Y)
"J="?J◢(输入边桩夹角,一般左-90,右90,可以计算任意角)
"S="?S◢(边桩距)
A+S*COS(J+T)→G↙
B+S*SIN(J+T)→H↙
"NX=":G◢(边桩X)
"EY=":H◢(边桩Y)
GOTO 0↙
LB1   2↙
"YQXPRO"◢(圆曲线)
D/R*(180/π)→F↙
R*SIN(F)→N↙
R*(1-COS(F))→E↙
X+N*COS(T)-E*SIN(T)→A↙
Y+E*COS(T)+N*SIN(T)→B↙
"A=":A◢
"B=":B◢
"J="?J◢
"S="?S◢
A+S*COS(T+F+J)→G↙
B+S*SIN(T+F+J)→H↙
"NX=":G◢
"EY=":H◢

GOTO 0↙

  • 发表于 2018-11-05 14:08
  • 阅读 ( 39 )
  • 分类: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 文章