.
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 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 说明：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 说明：X0Y0：起开点坐标，FWJ：起开点方位角，1÷R-QD：起开点曲率，1÷R-ZD终点曲率，QDHAO：起点里程，ZDHAO终点里程，DQHAO：待求点里程，XY：待求点坐标 7、标高计算 ＂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 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：仪器高 圆曲线中边桩坐标计算公式： L=F-H； 注：L---所求点曲线长；F---所求点里程；H---圆曲线起点（ZY点桩号里程） X=XZY+2×R×SIN（L÷2R）×COS｛α±(L÷2R)｝+S×COS｛α±(L÷R)+M｝; Y =YZY+2×R×SIN（L÷2R）×SIN｛α±(L÷2R)｝+S×SIN｛α±(L÷R)+M｝. 注： α---线路方位角； M---所求边桩与路线的夹角； S---所求边桩至中桩的距离； \---曲线左偏取“-”右偏取“+”； 当S=0时为中桩坐标。经高速公路施工一线使用效果很好。记住在公式中加入Excel的Radians（）函数将度转为弧度即可轻松方便地使用，从ZY点坐标准确快速推算地计算出整条圆曲线。注意要分清左偏右偏两种情况。 高速公路线路坐标计算公式: 高速公路的一些线路坐标、高程计算公式(缓和曲线、竖曲线、圆曲线、匝道) '.
卡西欧5800计算器程序
