卡西欧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：仪器高