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：方位角
２、坐标反算
Lbl 0
〝X1=〞?X:〝Y1=〞?Y:〝X2=〞?U:〝Y2=〞?V
Pol(U-X,V-Y):
J
〝I=〞:I
〝J=〞:J DMS
GOTO 0
说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角
３、圆曲线
〝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
〝FWJ=〞:o DMS
Goto 1
Lbl 2
〝END〞
说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO终点里程，R：半径，DQHAO：待求点里程，PY：偏移量
４、竖曲线
〝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：仪器高
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：方位角
２、坐标反算
Lbl 0
〝X1=〞?X:〝Y1=〞?Y:〝X2=〞?U:〝Y2=〞?V
Pol(U-X,V-Y):
J
〝I=〞:I
〝J=〞:J DMS
GOTO 0
说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角
３、圆曲线
〝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
〝FWJ=〞:o DMS
Goto 1
Lbl 2
〝END〞
说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO终点里程，R：半径，DQHAO：待求点里程，PY：偏移量
４、竖曲线
〝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：仪器高