下载文档原格式
5800直线、圆曲线缓和曲线、坐标计算CASIO fx—5800计算器工程测量与公路测量程序
1、坐标正算
＂X0=″?X:＂Y0=″?Y:＂I=″?I:＂J=″?J
X+ICos(J)→U:Y+ISin(J)→V
＂X=″:U （待求点的X坐标）
＂Y=″:V （待求点的Y坐标）
说明：X0 Y0：已知点坐标I：两点的距离J：方位角
2、坐标反算
Lbl 0
＂X1=″?X:＂Y1=″?Y:＂X2=″?U:＂Y2=″?V
Pol(U-X,V-Y):
J<0 J+360→J
＂I=″:I
＂J=″:J DMS
GOTO 0
说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角3、圆曲线
＂X0=″?X: ＂Y0=″?Y:＂FWJ=″?D:＂QDHAO=″?G: ＂ZDHAO=″?C: ＂R=″?R Lbl 1
＂DQHAO=″?L
L ＂PY=″?K 180(L-G)÷(πR) →E 2RSin(0.5E) →F ReC(Abs(F),D+0.5E)：Cls ＂X=″:X+I+KCos(D+E+90) →A ＂Y=″:Y+J+KSin(D+E+90) →B D+E→o:o<0 360+o→0o ＂FWJ=″:o DMS Goto 1 Lbl 2 ＂END″ 说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO 终点里程，R：半径，DQHAO：待求点里程，PY：偏移量 4、竖曲线 ＂QZHAO =″?J: ＂H+B″=?B:＂I1=″?C:＂I2=″?D:＂R=″?R:＂T=″?T: ((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(0.5R(D-C) ÷100)→S ＂T″:S J-T→X J＋T→Y Lbl 0 ＂DQ=″?L If L ＂GC=″:B+C(L-J) ÷100+A(L-J+T) ÷(2R) →H Goto 0 Lbl 1 ＂END″ 说明：QZHAO：曲中点里程，H+B：曲中点高程，I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。 5．正算偏移 ＂X0=″?A: ＂Y0=″?B:＂FWJ=″?D: Lbl 0 ＂LS=″?L: ＂PY=″?C ReC(L,D) ＂X=″:A+I+CCos(D+ 90) →X ＂Y=″:B+J+CSin(D+ 90) →Y Goto 0 说明：X0 Y0：已知点坐标，LS：两点距离，FWJ：方位角 6.万能公式 ＂X0=″?A:＂Y0=″?B:＂FWJ=″?C:＂1÷R-QD″?D:＂1÷R-ZD″?E:＂QDHAO″?F: ＂ZDHAO″?G Lbl 1 ＂DQHAO=″?H:＂PY=″?o If H (E-D)÷Abs(G-F) →P:Abs (H-F) →Q:PQ→I:C+90Q(I+2D) ÷π→J:C+45Q(I÷8+D) ÷π→M:C+135Q(3I÷8+D) ÷π→N:C+45Q(I÷2+2D) ÷π→K A+Q(Cos(C) +4(Cos(M)+Cos(N))+2Cos(K)+Cos(J))÷12→U: B+Q(Sin(C)+4(Sin(M)+Sin(N))+2Sin(K)+Sin(J))÷12→V ＂X=″:U+oCos(J+90) →X ＂Y=″:V+oSin(J+90) →Y ＂FWJ=″: J DMS Goto 1 Lbl 2 ＂END″ 说明：X0Y0：起开点坐标，FWJ：起开点方位角，1÷R-QD：起开点曲率，1÷R-ZD 终点曲率，QDHAO：起点里程，ZDHAO终点里程，DQHAO：待求点里程，XY：待求点坐标 6、标高计算 ＂QZHAO=″?J:＂QDHAO=″?G:＂ZDHAO=″?K:＂B—HB=″?B:＂SX=″?Q:＂ I1=″?C: ＂I2=″?D:＂R=″?R:＂T=″?T (D-C)÷100→W:W÷Abs(W)→A:＂T″:0.5RAbs(W) →S ＂o-YIGAO=″?o J-T→X:J+T→Y Lbl 1 ＂L—DQHAO=″?L:＂PY=″?U:＂XIELV=″?V If L ＂HL=″:B+0.01C(L-J)+A(L-J+T) ÷(2R)+0.01UV+Q→Q ＂HO=″:o-H→Z Goto 1 Lbl 2 L ＂HL=″:B+0.01 (L-J)C+0.01UV+Q →H ＂H0=″:o-H→H Goto 1 Lab 3 L>K Goto 4 ＂HL=″:B+0.01 (L-J)D+0.01UV+Q →H ＂HO=:o-H→Z Goto 1 Lbl 4: ＂END″ 说明：QZHAO：曲中点里程（竖曲线），QDHAO：起点里程，ZDHAO：终点里程，B—HB 曲中点高程，SX：上下（路面标高下多少为水稳层面），I1：第一坡度，I2：第二坡度，R：半径，T切线长，L—DQHAO：待求点里程，PY：偏移（中桩到边桩的距离），XIELV：斜率（横坡的坡度，左负右正）o-YIGAO：仪器高
