fx5800计算器高速公路计算程序（适应于郑漯高速）

１坐标放样程序：
“ＺＢＦＹ”◢
Ｆix   4↙
“ＸＨＳ＝”？P↙（X后视）
“ＹＨＳ＝”？Q↙（y后视）
“ＸＺＪ＝”？Ｃ↙（X置镜）
“ＹＺＪ＝”？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↙

最后编辑：2019-08-26

作者：acer

这个作者貌似有点懒，什么都没有留下。

站内专栏