2024年4月8日发(作者：滕烟)

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：待求

点坐标

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〃:(W) →S

”o-YIGAO=〃o

J-T→X:J+T→Y

Lbl 1

”L—DQHAO=〃L:”PY=〃U:”XIELV=〃V

If L

”HL=〃:B+(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：仪器高

回答者： 连朕都无语了 | 五级 | 2011-8-12 15:29

其实就是将公式代码化，然后设定参数和计算步奏，最后加以整合，进行运算，一般

最简单的，编程步奏就是1、设定参数（单位、小数位、数据库建立）2、设定计算式，显

示结尾（回车结尾不显结果、直角三角显结果）3最后以END结束，这是基本的，往后就

相应的添加就行了

我以ABC，给你讲一下，要算A+B=C,在计算器中就输入

FiX 3："A="A:"B="B↙

"C=":A+B->C◢

"END"↙

2024年4月8日发(作者：滕烟)

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：待求

点坐标

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〃:(W) →S

”o-YIGAO=〃o

J-T→X:J+T→Y

Lbl 1

”L—DQHAO=〃L:”PY=〃U:”XIELV=〃V

If L

”HL=〃:B+(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：仪器高

回答者： 连朕都无语了 | 五级 | 2011-8-12 15:29

其实就是将公式代码化，然后设定参数和计算步奏，最后加以整合，进行运算，一般

最简单的，编程步奏就是1、设定参数（单位、小数位、数据库建立）2、设定计算式，显

示结尾（回车结尾不显结果、直角三角显结果）3最后以END结束，这是基本的，往后就

相应的添加就行了

我以ABC，给你讲一下，要算A+B=C,在计算器中就输入

FiX 3："A="A:"B="B↙

"C=":A+B->C◢

"END"↙