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 →F
ReC(Abs(F),D+：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(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：待求点坐标
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″:(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)++Q→Q
＂HO=″:o-H→Z
Goto 1
Lbl 2
L＂HL=″:B+ (L-J)C++Q →H?
＂H0=″:o-H→H
Goto 1
Lab 3
L>K Goto 4
＂HL=″:B+ (L-J)D++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---所求边桩至中桩的距离；
"±"---曲线左偏取“-”右偏取“+”；
