卡西欧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<G Or L＞C GOTO 2

＂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<X:Then Goto 1:Else If L＞Y:Then Goto 1:If End:If End

＂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<F:Then Goto 2:Else If H＞G:Then Goto 2:If End:IfEnd

(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<X:Then Goto 2:Else If L＞Y:Then Goto 3:If End:I End

＂HL=″:B+0.01C(L-J)+A(L-J+T) ÷(2R)+0.01UV+Q→Q

＂HO=″:o-H→Z

Goto 1

Lbl 2

L<G Goto 4

＂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：方位角

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<G Or L＞C GOTO 2

”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<X:Then Goto 1:Else If L＞Y:Then Goto 1:If End:If End

”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<F:Then Goto 2:Else If H＞G:Then Goto 2:If End:IfEnd

(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<X:Then Goto 2:Else If L＞Y:Then Goto 3:If End:I End

”HL=〃:B+0.01C(L-J)+A(L-J+T) ÷(2R)+0.01UV+Q→Q

”HO=〃:o-H→Z

Goto 1

Lbl 2

L<G Goto 4

”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：斜率（横坡的坡度，左负右正）

GAUSSLE坐标正反算fx－5800程序

1.正算主程序 （GSZS）

？K：Prog “DAT-M-DZD”: ((P-R)÷(2(H-O(字母))PR))→D : “L(-Z +Y)” ?L:

“ANG”?M : (Abs(K-O(字母))) →J：Prog"SUB1"：If (F-M) <0: Then (F-M+360) →F: Else(F-M) →F: IfEnd

“FWJ=”:F ●DMS(显示度分秒)◢

“X=”:X◢

”Y=”:Y◢

2. 反算主程序 (GSFS)

？K：Prog “DAT-M-DZD”: ?X：?Y：X→Z[2]：Y→Z[3]： ( (P-R)÷(2(H-O(字母))PR)) →D: （Abs((Y-S)cos(G-90)－(X-I)sin(G-90)) ) →J： 0→L：90→M: Lbl 0：Prog "SUB1"：((Z[3]-Y)cos(G-90+QJ(1÷P+JD)×180÷π)) →Z[20]:((Z[2]-X)sin(G-90+QJ(1÷P +JD) ×180÷π)) →Z[21]:( Z[20]- Z[21]) →L：If Abs(L)<10∧(-6)： Then Goto1：Else (J+L)→J：Goto 0: IfEnd

Lbl 1：0→L：Prog "SUB1"：((Z[3]-Y)÷sin(F))→L: (O+J)→K:“LC=”:K◢

L→L :“PJ（-Z +Y）=”:L◢

(CASIO-4850)竖曲线标高计算程序--全线贯通

(CASIO-4850)竖曲线标高计算程序

1,加了水准点数据.

2,加了竖曲线数据库(实现了全线贯通)

3,加了测量仪器的选择功能

4,能进行现场高程放样工作

(能计算除了超高闷纤段以外的任意桩号的中桩及任意距离边桩高程)

[SJG]------------------主程序

E“LGP”:N“JGC”:Lbi 0:A“BM”:O“HS”: “1,SZY”: “-1,QZY”:K“SZY,QZY”:{LM}:L“K”:M“ZBJ”:Prog“SQX”⊿T=RAbs(J-I)/2:C=B-L:F=1:I>J=>F=-1←┘

L ≤0=>{AO}:Goto 0 : ≠>L<B-T=>Z=0:P=I: ≠>L<B=>Z=1:P=I :≠>L<B+T=>Z=1:P=J: ≠>Z=0:P=J⊿⊿⊿⊿ ←┘

Fix 3:G=H-N-CP+ZF(T-AbsC) 2/(2R)+ME:Goto 1←┘

Lbi 1:{D}:D“QS”:Fix 3:X=A+KO-KD:G:Pause 0:X: Pause 0:Q=G-X: “+T,-W=”:Q◢

Goto 0←┘

[SQX]------------------子程序

L≤932.25(第二竖曲线起点桩号)=>H=179.17(第一竖曲线交点高程):B=160(第一竖曲线交点桩号):R=7000(第一竖陆罩宴曲线半径):I=-0.003(第一竖曲线前坡度):J=0.005(第一竖曲线后坡度):Goto 1⊿

L≤1173.96(第三竖曲线起点桩号)=>H=183.17(第二竖曲线交点高程):B=960(第二竖曲线交点桩号):R=18000(第二竖曲线半径):I=0.005(第二竖曲线前坡度):J=0.00808(第二竖曲线后坡度):Goto 1⊿

Lbi 1

…………………………继续添加竖曲线要素(坡度上+下早银-),括号内的数据供测试程序用

说明:

选择主程序进入

1, LGP?----------输入路拱坡度,负值 (按EXE键)

2, JGC?----------输入结构层厚度(按EXE键)

3, BM?-----------输入水准点高程(按EXE键)

4, HS?------------输入后视读数(全站仪测量时带+,-号)(按EXE键)

5, 1,SZY

-1,QZY

SZY,QZY?----选择测量仪器:输入1用水准仪,输入-1用全站仪 (按EXE键)

6, K≤0 BREAK

K?--------------输入放样桩号, K值≤0时返回程序起始位置 (按EXE键)

7, ZBJ?-----------输入边桩至中桩的距离,中桩放样时输入0 (按EXE键)

8, QS?-------------输入前视读数(全站仪测量时带+,-号) (按EXE键)

显示:

9,12.3-------------设计高程

11.2-------------实测高程

+T,-W

1.1(填挖量,+填-挖)

(按EXE键 重复6,7,8,9步,进行下一个桩点的放样工作.

---