CASIO fx—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：方位角

２、坐标反算

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：方位角３、圆曲线

〝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：偏移量

４、竖曲线

〝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.01U V+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：仪器高

卡西欧Fx5800P 公路逐桩坐标计算程序

本程序先把整条线路要素先一次输入到计算器额外变量中，就能计算任意中、边桩坐标，适用高速公路等一般线型，能计算两边不等长缓和曲线。

ZXZB(文件名)

Lb1 1 ?

6→Z ?（此处6只表示举例的数字，实际应输入要计算线路的交点个数）

2→W ?

？K ? （程序运营时出现“K？”表示要输入计算的桩号，如计算K5+334.23，则输入5334.23）

While K>Z[W+5Z+4]: W+1→W ：WhileEnd ?

K-Z[W+5Z+3]→S ?

Z[W+2Z+2]→R ：Z[W+3Z+2]→L ：Z[W+4Z+2]→E ?

Pol（Z[W]-Z[W-1],Z[W+Z+2]-Z[W+Z+1]） ?

If J<0 : Then J+360→J : IfEnd ?

J→A?

If W=2 : Then Goto 2 : IfEnd ?

Pol（Z[W-1]-Z[W-2],Z[W+Z+1]-Z[W+Z]） ?

If J<0 : Then J+360→J : IfEnd ?

A-J→C ：J→A?

L÷2-L^3÷（240R^2）→M ：E÷2-E^3÷（240R^2）→N ?

L^2÷（6R）-L^4÷（336R^3）-R（1-cos（90L÷（πR）））→P ?

E^2÷（6R）-E^4÷（336R^3）-R（1-cos（90E÷（πR）））→Q ?

（R+Q-（R+P）cos （Abs（C）））÷（sin （Abs （C）））+M →M ?

（R+P-（R+Q）cos （Abs （C）））÷（sin （Abs （C）））+N →Q ?

πRAbs （C）÷180+（L+E）÷2 →N ?

Z[W-1]-Mcos（A）→X ?

Z[W+Z+1]-Msin（A）→Y ?

Z[W-1]+Qcos（A+C）→M ?

Z[W+Z+1]+Qsin（A+C）→V ?

Abs（C）÷C→Q ?

If S≤L : Then 0→P ：Goto 3 : IfEnd ?

If S≤N-E : Then S-L→S ：Goto 4 : IfEnd ?

If S≤N : Then N-S→S ?

-Q→Q ：A+C-180→A：M→X ：V→Y ：E→L ：180→P ：Goto 3 : IfEnd ?

A+C→P ：S-N→S ：M+Scos（P）→D ：V+Ssin（P）→F ：Goto 6 ? Lb1 2 ?

A+C→P?

Z[W-1]+Scos（P）→D?

Z[W+Z+1]+Ssin（P）→F ：Goto 6 ?

Lb1 3 ?

S-S^5÷(40R^2)÷L^2+S^9÷(3456R^4)÷L^4→I?

Q（S^3÷(6RL)-S^7÷(336R^3)÷L^3）→J ?

P+A+90QS^2÷(πRL)→P ：Goto 5 ?

Lb1 4 ?

90（2S+L）÷(πR) →M ?

Rsin（M）+L÷2-L^3÷(240R^2) →I ?

Q（L^2÷(24R)+R（1-cos（M））→J?

A+QM →P ?

Lb1 5 ?

X+Icos（A）-Jsin（A）→D ：Y+Jcos（A）+Isin（A）→F?

Lb1 6 ?

Fix 3 ?

″X=″D◢ ?（显示中桩横坐标）

″Y=″F◢ ?（显示中桩纵坐标）

″AT=″P◢ ?（显示中桩切线方位角）″B=″ ?T? (程序运营时出现“B=？”表示要输入计算边桩的距离,左-，右+)

″α=″ ?U ?（程序运营时出现“α=？”表示输入边桩斜交角，前进方向的右角）

P+U→ P ?

″XB=″: D+Tcos（P）◢? （显示边桩横坐标）″YB=″: F+Tsin（P）◢? （显示边桩纵坐标）Norm 2

Goto 1

使用说明

1、上述程序代码中“（）”里为说明，不输入5800中。

2、代码中下划线的字母表示要从计算器中调出，整体输入，见5800说明书。

3、程序使用前应设置好额外变量，额外变量输入前，应按5800说明书，先将额外变量的数目设置至够用的数目，一般大于线路交点数的6倍+6个，如5个交点，则为大于36个。

额外变量的形式为：Z[N]，N—表示具体的数字

如要把1000存入到第1个额外变量中，具体操作为：

输入1000→Z[1] 后，按，就把1000存入到Z[1]中，

如要把999999存入到第45个额外变量中，就是：

输入999999→Z[45]后，按，就把999999存入到Z[45]中了。

FX 5800公路逐桩坐标计算程序操作说明

计算器显示

操作步骤

1按键，打开文件菜单，选择“ZXZB”文件名，按键确认。

“K？”提示输入要计算的桩号

“950.000”为缺省的桩号

2出现此窗口

“1020.888”为输入要计算的桩号

3输入计算的桩号

如：K1+020.888

则输入1020.888

显示X坐标

4按键确认后计算中桩X坐标，出现此窗口。

显示Y坐标

5按键确认后计算中桩Y坐标，出现此窗口。

显示中桩切线方位角

6按键确认后计算中桩切线方位角，出现此窗口。

提示输入边桩距离

缺省的边桩距离，如不变直接按键

7按键确认后，出现此窗口，提示输入计算边桩的距离，左-，右+

输入的边桩距离

8如要计算右边桩距离为15米，则输入15。

提示输入斜交角

缺省的边桩斜交角，如不变直接按键

9按键确认后，出现此窗口，提示输入计算边桩的斜交角，为前进方向的右角，正交为90。

输入的边桩斜交角

10如要计算边桩斜交角为90度，则输入90。

显示边桩X坐标

11按键确认后计算边桩X坐标，出现此窗口。

显示边桩Y坐标

12按键确认后计算边桩Y坐标，出现此窗口。

上个计算输入的桩号

提示输入下个桩号

13按键确认后提示计算下个桩号坐标，出现此窗口。

输入的下个桩号

14按键确认后计算下个桩号坐标

卡西欧5800计算器道路高程计算程序

Z[16]→D

For 1→F To Z[19]-2

4F+D→C

Z[C+3]→R;输入半径

Z[C]-Z[C+4]→M;M为正时是凸型竖曲线,负时为凹竖曲线

Abs(MR)÷2→T ;切线长

If G

G-Z[C+1]→Q

QZ[C]+Z[C+2]→Z ;计算高程Z

Goto E ;跳转标签E

Else If G

G-Z[C+1]+T→Q

Q2÷2÷R→H

M>0=>-H→H

Z[C+2]-Z[C]T+Z[C]Q+H→Z ;计算高程Z

Goto E ;跳转标签E

Else If G

G-Z[C+1]-T→Q

Q2÷2÷R→H

M>0=>-H→H

Z[C+2]-Z[C+4]T+Z[C+4]Q+H→Z ;计算高程Z

Goto E

IfEnd:IfEnd:IfEnd

Next ;如果计算点在切点2后,就转入下一个交点交点,再搜索,程序将返回到(For 1→F To

Z[19]-2) ;如果点在最后一个交点的切线2执行以下计算,

G-Z[C+1]→Q

Z[C+2]+Z[C+4]Q+H→Z ;计算高程Z

Lbl E

FX--4800P常用测量程序集

1、由一个已知点坐标和一个已知方位角计算支导线坐标（程序名：ZBJS）

程序清单：

X：Y：T：Lb1 0：Fixm：{AS}：T=T+A-180：T〈0 =〉T=T+360⊿ T〉360 =〉T=T-360⊿T◢X=X+Scos T◢

Y=Y+Ssin T◢

Goto 0

程序运行说明：

运行“ZBJS”，每运行一步按EXE键一次，显示X？时输入已知点X坐标，显示Y？时输入已知点Y坐标，显示T？时输入已知点由后视到前视的已知坐标方位角，运行一次本程序只需输入一次已知数据。显示A？时输入第一个左转角值，显示S？时输入测站到前视的水平距离。接下来计算器显示的T是测站到前视的坐标方位角，按 + 可将显示的十进制角度换算为度分秒。如此继续可计算出所有支导线未知坐标。

2、由两个已知点坐标计算支导线坐标（程序名：ZBJS2）

程序清单：

M“X0”：N“Y0”：D“XH”：E“YH” ?br/> Pol(M-D，N-E)：Fixm：T=J：X=M：Y=N：T〈0=〉T=T+360⊿T“TH-J=” ◢

I“S=”◢

Lb1 0:{AS}: T=T+A-180：T〈0 =〉T=T+360⊿ T〉360 =〉T =T-360⊿T◢

X=X+Scos T◢

Y=Y+Ssin T◢

Goto 0

程序运行说明：

运行后，显示X0，Y0时输入已知置镜点坐标，显示XH，YH时输入已知后视点坐标，其它同ZBJS的输入与显示。

3、由一个已知点坐标和一个已知方位角进行放射型导线坐标计算（程序名FSXZBJS）

程序清单：

C“X0”：D“Y0”：E“T0”：Fixm：Lb1 1:{SA}?br/> T=E+A-180：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿T◢

X=C+Scos T◢

Y=D+Ssin T◢

Goto 1

程序运行说明：

变量输入参照ZBJS程序。

4、由两个已知点坐标进行放射型导线坐标计算（程序名FSXZBJS2）

M“X0”：N“Y0”：D“XH”：E“YH” ?br/> Pol(M-D，N-E)：Fixm：F=J：X=M：Y=N：F〈0=〉F=F+360⊿F“TH-J=” ◢

I“S=” ◢

Lb1 1:{SA}?br/> T=F+A-180：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿T◢

X=X+Scos T◢

Y=Y+Ssin T◢

Goto 1

5、坐标计算优化程序（可进行连续式（LX）、放射式（FS）已知一点（1-D）或者两点（2-D）进行坐标计算）：

V“1=>LX，≠>FS”：W“1 =>1-D≠>2-D”：W=1=> Goto 1:≠> Goto2?br/> Lb1 1：F“X0=”：G“Y0=”：H“T H-0=”：Goto 3?br/> Lb1 2:F“X0=”：G“Y0=”：M“XH=”：N“YH=”:Pol(F-M，G-N)：Fixm: J〈0=〉J=J+360⊿H=J：H“TH-0=”◢I“S-H=”◢

Goto 3?br/> Lb1 3: X=F：Y=G：T=H ：V=1=> Goto 4:≠> Goto 5?br/> Lb1 4: {AS}: A:S:T=T+A-180：T〈0 =〉T=T+360⊿ T〉360 =〉T =T-360⊿T◢

X=X+Scos T◢

Y=Y+Ssin T◢

Goto 4

Lb1 5：{AS}:A:S

T=H+A-180：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿T◢

X=F+Scos T◢

Y=G+Ssin T◢

Goto 5

6、已知置镜点坐标和置镜点到后视点坐标方位角求放样角度和放样距离的放样程序（程序名FY1）

程序清单：

F“X0”：G“Y0”：H“T0-H”：Fixm：Lb1 1:{XY}?br/> Pol(X-F，Y-G) ?br/> J〈0 =〉J=J+360⊿A=J-H?br/> A〈0 =〉A=A+360⊿A“A=” ◢

I“S=” ◢

Goto 1

程序运行说明：

变量输入参照坐标计算，A=为放样顺时针角度，S=为放样距离。

7、已知置镜点和后视点坐标进行放样（FY2）

程序清单：

F“X0”：G“Y0”：M“XH”：N“YH”?br/> Pol(M-F，N-G)：Fixm：H=J?br/> H 〈0=〉H=H+360⊿H“T-H=”◢

I“S-H=” ◢

Lb1 1:{XY}: Pol(X-F，Y-G) ?br/> J〈0 =〉J=J+360⊿?br/> A=J-H?br/> A〈0 =〉A=A+360⊿A“A=”◢

I“S=” ◢

Goto 1

8、放样优化程序（可分已知一点或者两点坐标进行放样角度距离的计算）

程序名“FY”

程序清单：

I“I=1 =>1-D≠>2-D”?br/> I=1=> Goto 1:≠> Goto2?br/> Lb1 1：F“X0”：G“Y0”：H“T0-H”：Goto 3?br/> Lb1 2：F“X0”：G“Y0”：M“XH”：

N“YH”:Pol(M-F，N-G)：Fixm:J〈0=〉J=J+360⊿H=J:H“T-H=”◢

I“S-H=”◢

Goto 3?br/> Lb1 3：{XY}?br/> Pol(X-F，Y-G) ：Fixm ?br/> J〈0 =〉

J=J+360⊿A=J-H?br/> A〈0 =〉A=A+360⊿A“A=” ◢

I“S=” ◢

Goto 3

程序运行说明：

变量输入参照坐标计算，A=为放样顺时针角度，S=为放样距离。

9、已知两点坐标，反算两点之间的坐标方位角和距离（程序名ZBFS）

程序清单：

A“X1=”：B“Y1=”：C“X2=”：D“Y2=”：P ol（C-A，D-B）：Fixm：J〈0 =〉J=J+360⊿J“T（1-2）=” ◢

I“S（1-2）=”

10、分别已知两条直线上一点的坐标和坐标方位角，求这两条直线的交点坐标（程序名JDZB）

程序清单：

X=（tan A“T1”×B“X1”-C“Y1”-tan D“T2” ×E“X2”+F“Y2”）V÷（tan A- tan D）◢

Y= tan A（X-B）+C

11、直线线路坐标计算（ZXXY）

程序清单：

V“X0=”：W“Y0=”：T“T0=”：U“K0=”：Lb1 0：Fixm：{KD}：X=V+（K-U）cos T+D×cos(T+90)◢

Y=W+（K-U）sin T+D×sin(T+90)◢

Goto 0

程序运行说明：

已知某一直线线路上一点的坐标为X0，Y0，该点里程为K0以及该直线沿前进方向的坐标方位角T0，按照提示输入以上数据，如果输入某一里程K和法线外移距离D（向右移为正值，向左移为负值）即可计算出该里程点的法线外移桩坐标X、Y，当D=0时计算结果为中桩坐标。

12、“缓+圆+缓”型曲线坐标计算

主程序（QXJS）

程序清单：

Prog “BQXYS”：Q“K—ZH”：F“ZHX=”：G“ZHY=”：N“TZH—JD”：I“（Y1，Z-1）” ?br/> Lbl 1:Fixm:{KD}:K“LICHENG=”：D“WAIYI=（Z-，Y+）”：Goto2?br/> Lbl 2:K Goto3:≠> Goto4?br/> Lbl 3:“K—OVER”: Goto1?br/> Lbl 4:K>Q+L => Goto3:≠> Goto5?br/> Lbl 5:K≤Q+B => Goto6:≠> Goto7?br/> Lbl 6:S=K-Q：W=B：Prog “HQXY”：O=N+I×90S2÷(Л RB)：O<0 => O=O+360⊿O>360 => O=O-360⊿O“FANGWEI=” ◢

X=UcosN-VsinN+F+D×cos(O+90) ◢

Y=VcosN+UsinN+G+D×sin(O+90) ◢

Goto1?br/> Lbl 7：K≤Q+L-C => Goto8:≠> Goto9?br/> Lbl 8:S=K-Q：

O=N+I×90(2S-B)÷(Л R)：O<0 => O=O+360⊿O>360 => O=O-360⊿O“FANGWEI=” ◢

Prog “YQXY”：X=UcosN-VsinN+F+D×cos(O+90) ◢

Y=VcosN+UsinN+G+D×sin(O+90) ◢

Goto1?br/> Lbl 9: S= Q+L-K：W=C：Prog “HQXY”：E=N+IA+180：

O=E-I×90S2÷(Л RC)+180：O<0 => O=O+360⊿O>360 =>

O=O-360⊿O“FANGWEI=”◢

V=-V?br/> X=(U-H)cosE-VsinE+F+T cosN+D×cos(O+90) ◢

Y=VcosE+(U-H)sinE+G+T sinN+D×sin(O+90) ◢

Goto1?br/> 子程序“BQXYS”

A:R:B“L01”:C“L02” ?br/> M“M1”=B÷2-B3÷（240 R2）◢

J“M2”=C÷2-C3÷（240 R2）◢

P“P1”= B2÷（24 R）- B4÷（2688 R3）◢

Z“P2”= C2÷（24 R）- C4÷（2688 R3）◢

T“T1”=M+（R+P）tan(A÷2)+(Z-P) ÷sinA◢

H“T2”=J+（R+Z）tan(A÷2)+( P-Z) ÷sinA◢

L= B÷2+C÷2+A RЛ÷180◢

E= ◢

子程序“HQXY”

U=S-S5÷(40R2 W2)+ S9÷(3456 R4 W4)-S13÷(599040R6 W6):V=I×(S3÷(6RW)- S7÷(336 R3 W3) +S11÷(42240 R5 W5))

子程序“YQXY”

U=Rsin(180(S-B÷2)÷Л÷R)+M:V=I×(R×(1-cos(180(S-B÷2)÷Л÷R))+P)程序说明：本程序可以计算等长和不等长“缓+圆+缓”型曲线或者单圆曲线的中线坐标、外移桩坐标以及中线的切线方位角。

先将主、子程序存入计算器，然后运行主程序“QXJS”，输入A（曲线偏角），曲线半径R，第一缓和曲线长L01，第二缓和曲线长L02，（等长缓和曲线时L01= L02），然后显示曲线逐要素，接着输入ZH坐标（ZHX，ZHY），ZH到JD坐标方位角TZH—JD，当曲线为左偏时（Y1，Z-1）输-1，右偏输1，输入计算里程K，外移距离D，计算中桩时D输0，计算左边桩时D输负数，算右边桩时D输正数，当所输里程不在本曲线计算范围内时，屏幕显示K—OVER，继续输入有效里程可继续计算。

对于单圆曲线，缓和曲线长输入0。

本程序缓和曲线X计算取了4项，Y计算取了3项，一般的曲线计算精度都可达到mm级。

13、采用积分进行任意曲线线路坐标计算程序（直线、圆曲线、卵型曲线）

程序名“XLJS”

程序名“XLJS”(V1.1，2005年12月7日星期三升级于秦岭公司)

G“XJ=”：H“YJ=”：R“XH=”：S“YH=”：A“XA=”：B“YA=”：C“TA=”：E“1÷RA ,Z-，Y+”：P“KA=”?br/> Lbl 1：{FQ}：F“1÷RB, Z-，Y+”：

Q“KB=” ?br/> Lbl 2：{V}：V“K=”：O=V：O

Goto3：≠> Goto4?br/> Lbl 3：“K-SMALL”：Goto2?br/> Lbl 4：O>Q => Goto5：≠> Goto7?br/>Lbl 5：{I}：I“I=1=>ESC≠>NEXT”：I=1=> Goto2：≠> Goto 6?br/> Lbl 6：“JISUAN：A-TXY”：V=Q：Z=0：D=0：Goto8?br/> Lbl 7: {DZ}：Z“JIA-JIAO=”：D“WAIYI=（Z-，Y+）”?br/> Lbl 8：T=C+90÷Л×（2E+（F-E）（V-P）÷（Q-P））（V-P）：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿?br/> Rad：W=A+∫（cos（C°+0.5×(2E+(F-E)(X-P)÷(Q-P))(X-P)）,P,V,4）+

D×cos(T°+Z°) ?br/> Y=B+∫（sin

（C°+0.5×(2E+(F-E)(X-P)÷(Q-P))(X-P)）,P,V,4）+ D×sin(T°+Z°)：Deg：Goto9?br/> Lbl 9：O≤Q => GotoB：≠> GotoA?br/> Lbl A：A=W：B=Y：C=T：E=F：P=Q： Goto1?br/> Lbl B：W“X=”◢

Y“Y=”◢

T“T=”◢

Pol(R-G，S-H)：Fixm：M=J：Pol(W-G，Y-H) ：J=J-M?br/> J<0 =>J=J+360⊿J>360 =>J=J-360⊿J“A=”◢

I“S=”◢

Goto 2

程序积分式中“°”的编辑输入为：“FUNCTION”键+5（DRG）+4（°）。

程序功能

由于程序根据线路曲线坐标计算通用数学模型编制，所以，对于任意线型的一段线路曲线（直线、圆曲线可看作是通用计算模型的特例），只要输入曲线信息和测站信息，都可以迅速地计算出该曲线上任意里程点处的切线方位、中桩或与该里程切线成任意夹角的外移桩坐标、极坐标法放样的角度和距离。

程序运行

运行程序“XLJS”，按提示输入置镜点坐标（XJ，YJ），后视点坐标（XH，YH），曲线起点A的坐标（XA，YA）、沿线路前进方向的切线方位角TA、里程KA、曲率（直接在计算器上以1÷RA的形式输入，R表示半径，左偏曲线输负值右偏曲线输正值），继续输入终点B的曲率（1÷RB输入同A点）、里程KB。当屏幕显示“K=？”时，输入该段曲线要计算放样数据的里程值，按提示输入夹角“JIA-JIAO”（夹角的范围为0-180度）和外移量“WAIYI”，“JIA-JIAO”值为该里程自线路前进方向的切线方位角顺时针至该里程中桩与右边桩连线间的角度，当为法线方向时JIA-JIAO为90度，“WAIYI”值中桩左侧输负值右侧输正值，计算中桩时“WAIYI”值输0即可，按“EXE键”屏幕即可依次显示计算中桩或外移桩的坐标、中桩切线方位角、放样角度A，放样距离S。

程序的输入输出都按通俗易懂的提示或测量习惯显示，为确保计算结果无误，编制程序时专门设置了错误里程输入提示，当输入的计算里程K小于该曲线起点里程时，程序将提示里程太小“K-SMALL”，继续输入正确的里程，当第一条曲线计算完毕需计算紧接的第二条曲线时，只需要给K输入一个大于第一曲线终点里程的里程值，这时屏幕显示“I=1=>ESC≠>NEXT”，如果不小心误输入一个大于终点里程的K时（ESC表示取消），可输入1“取消”操作，继续计算当前曲线，如果确认要计算下一曲线（NEXT表示要计算下一曲线），输入一个不等于1的数值，接下来屏幕将显示“JISUAN：A-TXY”，程序将自动计算第二曲线的起点信息，接着自动提示输入第二曲线终点的曲率和里程，当显示“K=？”时，即可进行第二曲线放样数据的计算。依次类推，直至计算完所有需计算的曲线中、边桩坐标和放样数据。

迁站时，直接按“AC”键终止程序的运行，到新的测站后重新运行“XLJS”，输入新的测站点、后视点坐标并保持原曲线参数不变即可。

当遇到线路曲线的曲率发生突变（如直线直接接圆曲线或者两个不同半径的圆曲线直接相接）的特殊情况时，可以将突变点两侧的曲线分开单独进行计算，也可以在突变点处增加输入一段微小长度的回旋线把突变点两侧的曲线连接起来，增加一段长度为0.0001米长度的回旋曲线，不会影响计算结果的精度。比如某直线直接连接半径为R的圆曲线，计算完直线段需要接着计算圆曲线时，先输入微小长度的回旋线（1/RB=1/R，KB=直线终点里程+0.0001），然后再输入圆曲线的终点曲率和里程即可继续计算。两个不同半径（半径分别为R1，R2）的圆曲线直接相接时，先输入微小长度的回旋线（1/RB=1/R2，KB=第一圆曲线

终点里程+0.0001），然后输入第二圆曲线终点的曲率和里程即可。

有时会遇到逆向测设曲线情况，即从大里程方向向小里程方向测设曲线，采用本程序进行计算时，只需将曲线倒过来进行输入即可，这时，输入和计算的量都应反号（只有“JIA-JIAO”值符号保持不变），曲线偏角反号输入（左偏变为右偏，右偏变为左偏），曲线里程输入时按负值对待，计算右边桩时外移量为负，左边桩时外移量为正（与正向刚好相反）。

14、四等水准测量记录计算程序（红黑面常数为4687、4787）

Lbl 0:“H4687=>I=1”: Fixm: {IABCD}：I=1=> Goto1: ≠> Goto2?br/> Lbl 1:U=4687:W=4787: Goto3: Lbl 2:U=4787:W=4687: Goto3: Lbl 3:

G“H1”=A“HOU1”-B“QIAN1”◢

E“V2”=B-C“QIAN2”+W◢

F“V1”=A-D“HOU2”+U◢

P“H2”=D-C◢

H=（G+P+W-U）÷2

程序按后-前-前-后的观测顺序编制，当后尺为4687时I赋值1，否则赋不等于1的值。

15、高斯抵偿高程投影面边长改正计算FX-4850程序

E“YI-CHANG：hm=”：F“DI-CHANG：Hm=”?br/> Lbl 1:{HYS}：H“PING-JUN：Hp=”:Y“PING-JUN：Ym

=”:S“GUAN-CE:S=”:V=-S×(H+E-F)÷(6371000+H+E)×1000:W=S×Y2÷(2×63712)×1000:D=S+( V+W)÷1000?br/>“V1=”:V◢

“V2=”:W◢

“D=”:D◢

Goto 1

说明：该程序可计算高斯投影或抵偿高程面高斯投影的边长投影，hm为异常高程值，当设计资料中没有提供或者未知时取hm=0，即认为高程异常可忽略，Hm 为抵偿高程，当没有设抵偿高程面时取Hm=0，即为一般的高斯投影。S为观测水平距离，Hp为导线边两端高程概略平均值（m），Ym为导线边两端点Y坐标平均值减去500公里后的平均值（Km），D为改正到高斯投影面后的边长（m）。

hm=0，Hm取隧道平均高程面高程，Ym=0时，为计算隧道平均高程面的投影改正。

坐标反算程序CASIO4800P

通过已经知两点坐标计算线距及方位角。很简单的程序。

简单实用的CASIO4800、4850坐标正算程序

简单实用的CASIO4800、4850坐标正算程序

１、程序名［ZBZS］

A"XO":B"YO":C"HR":D"HD"↓

X"Xi"=A+cosCD▲

Y"YI"=B+sinCD▲

２、程序名［ZBZS］

A"XO":B"YO":C"HR":D"HD"↓

X"Xi"=A+Rec(D,C)▲

Y"Yi"=B+J▲

▲：显示符号

↓：EXE

XO，YO：测点X、Ｙ坐标

HR：方位角（度分秒的格式）

HD：水平距离。

坐标计算程序C ASIO4800P

源程序：

{HFXY}∶N=HcosF＋X∶E=Y+HsinF∶N◢E◢

H？已知坐标点到所求坐标点距离。

F？已知坐标点到所求坐标点方位角(特别注意，比较容易出错)。

X? 已知坐标点N坐标。

Y? 已知坐标点E坐标。

N 所求坐标点N坐标。

E 所求坐标点E坐标。

例：

已知所求点到已知坐标点的距离为150米，方位角为150°23′36″已知坐标点N坐标为5263.123，E坐标为8652.999，所求点坐标计算得N＝5132.707382，E＝8727.105455

一、平曲线加宽、超高程序符号

A—路肩宽度 B—路面宽度I0—路肩坡

度 I1—路拱坡度

IB—超高横坡IX—路线纵坡，上坡为正，下坡为

负 BJ—路面加宽值

BJX—X距离处路面加宽值 W—未加宽前路面宽度 WS—待求

定的路面加宽值

M—加宽缓和段起点桩号N—加宽缓和段终点桩号HN—路基内缘与设计高之高差

HW—路基外缘与设计高之高差

超高及加宽计算

⑴.功能及适用范围

①.绕中轴旋转的超高及加宽计算。

②.绕中轴旋转的超高及加宽计算。

⑵.有关规定

①.当线形设计须采用较长的回旋线时，横坡坡度由2%（或1.5%）过渡到0%路段的超高渐变率不小于1/330。超高过渡应在回旋线全长范围内进行。当超高渐变率太小时，超高的过渡可设在回旋线的某一区段范围之内。

②.路肩横坡：A、直线路段的路肩横坡可与行车道横坡相同。B、曲线段的路肩横坡：当硬路肩宽度≥2.25米时，曲线外侧路肩横坡的方向及其坡度值见表1。

路肩横坡方向及其坡度值表1

行车道超高值（%）

2、3、4、5

6、7

8、9、10

曲线外侧路肩横坡方向

向外侧倾斜

向外侧倾斜

向内侧倾斜

曲线外侧路肩坡度（%）

-2

-1

与行车道横坡相同

当硬路肩宽度＜2.25米时，曲线外侧路肩横坡的方向及其坡度值与行车道相同。

路肩横坡方向与坡度变化处应设过渡段，过渡段的渐变率规定见表2。

路肩横坡过渡的渐变率表2

与行车道横坡方向相同时

＜1/150

与行车道横坡方向相反时

1/100

路肩的横坡改变倾斜方向的旋转轴为路缘带外侧边缘。

⑶.程序清单：

①.中轴旋转

ZHONG

K“I1”

Z=0 Goto 1：Goto 2

Lb1 1

I“I0”

H“HP”=-（AI/100+BK/200）

Goto 9

Lb1 2

C“ZH”：J“IB”：S“LS”

X=Abs（Q-C）

F=0Goto 3：Goto 4

Lb1 3

D=-K/100+（K+J）*X/100*X

H“HW”=D（A+B/2）

Goto 9

Lb1 4

W“BJ”

L=2KS/100（（K+J）/100）

M=0Goto 5：Goto 6

Lb1 5

G“BJX”=XW/S

X＜LGoto 7：Goto 8

Lb1 6

P=X/S

G“BJX”=（4P^3-3P^4）W

X＜LGoto 7：Goto 8

Lb1 7

H“HN”=-（A+B/2+G）K/100

Goto 9

Lb1 8

H“HN”=-（A+B/2+G）JX/100S

Lb1 9

符号意义

操作符号及意义表3

操作

意义

Z=0

直线、ZH（HZ）点路基外缘的高差计算。

Z≠0，F=0

X距离处路基外缘的高差计算。

Z≠0，F≠0，M=0

二、三、四级公路缓和段路基内缘的加宽、高差计算。

Z≠0，F≠0，M≠0

各级汽车专用公路缓和段路基内缘的加宽、高差计算。

HP—直线、ZH（HZ）、ZY（YZ）点路基边缘与设计高之高差。

②.边轴旋转

BIAN

I“I0” ：K“I1”

Z=0Goto 1：Goto 2

Lb1 1

H“HF”=AI/100+BK/200

Goto 9

Lb1 2

J“IB”：C“ZH”：S“LS”

X=Abs（Q-C）

F=0Goto 3：Goto 4

Lb1 3

H“HW”=A（I-K）/100+（AK/100+（A+B）J/100）X/S

Goto 9

Lb1 4

W“BJ”

L=KS/100（J/100）

M=0Goto 5：Goto 6

Lb1 5

G“BJX”=XW/S

X＜LGoto 7：Goto 8

Lb1 6

P=X/S

G“BJX”=（4P^3-3P^4）W

X＜LGoto 7：Goto 8

Lb1 7

H“HF”=AI/100+BK/200

H“HN”=AI/100-（A+G）K/100

Goto 9

Lb1 8

H“HF”=AI/100+BXJ/200S

H“HN”=AI/100-（A+G）JX/100S

Lb1 9

符号意义

操作符号及意义表3

操作

意义

Z=0

直线路基中心的高差计算。

Z≠0，F=0

X距离处路基外缘的高差计算。

Z≠0，F≠0，M=0

二、三、四级公路缓和段路基中心的高差、内缘的加宽、高差计算。

Z≠0，F≠0，M≠0

各级汽车专用公路缓和段路基中心的高差、内缘的加宽、高差计算。HF—路基中心与设计高之高差。

卡西欧5800基本测量程序(完整版)

卡西欧5800 程序 (完整版)

说明：本程序适用于公路、桥梁、隧道测量。本程序简单、方便、快捷、拓展功能宽，使用时只需按曲线要素表输入一次就可以计算整条线路（包括高程、超高段横坡），能正、反算，在已知坐标下可以反算出该点桩号及相对宽度，拓展功能有，放边、仰坡、隧道断面测量、开挖轮廓线等。 主程序:MAIN ＂ZH（θ） F（１）＂M↓ (0为正算、1为反算) If M=θ:Then ＂ZHUANG HAO＂A：＂KUAN DU＂W:Else＂Ｘ＝＂H：＂Ｙ＝＂W:＂Ｚ＝＂Ｑ：IfEnd↓ (第一个交点参数) (交点桩号)…→P:(切线长度)…→T:(曲线总长)…→S:(圆半径)…→R=:(缓和曲线长)…→L:(第一方位角)…→U:(第二方位角)…→V:(交点X坐标)…→N:(交点Y坐标)…→E:(第一直线长、无为0)…→D:(第一坡度)…→Z〔8〕:(第二坡度)…→ Z〔9〕: (缓和曲线超高段长度)…→Z〔10〕:(曲线偏向,右偏为+1,左偏为-1)…→K ↓ If M=θ:Then If A

………… (最后一个交点参数) If M=θ:Then If A>P-T+S+D:Then Goto 1 :IfEnd:IfEnd↓Prog＂ZFXZ＂↓ If K=θ:Then goto 2 :IfEnd↓ Lb1 1：＂NO TASK＂↓ Lb1 2：If M=1:Then If A=1:Then ＂ZHUANG HAO＂:Z◢＂SJ KUAN DU＂:B◢ IfEnd:IfEnd↓ ＂-------END-------＂ KUAN DU （拓展功能程序，用于反算） 1→Ｍ:Prog＂MAIN＂↓ Z→A:W→E:θ→W↓ Prog＂GAO CHENG＂↓ E→W↓ Q-F→P↓ If P≤……(从小至大):Then ……→D:Goto 1:IfEnd↓……(同上) Lb1 1↓ ＂……＂:D◢ (同上) ◢ ＂----------END---------＂ YUAN

CASIO fx-5800P实用工程测量程序

一、QXFY 辛甫森公式放样程序 1. “X0”? U：“Y0”?V 2. “XA”? A：“Y A”? B：“CA”? C：“1÷RA”?D：“1÷RB”?E： “KA”?F：“KB”? G 3. Lb1 1：“KI”?H：“JJ”?L：“Y+Z－”?R 4. If H>G Or H

Fx5800计算器公路测量程序设计

FX5800计算器测量程序集版 一、程序功能 主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。 新版本优化：1、优化程序语句、2、以复数形式输入变量及做数据库，取消原矩阵数据库;3、修改隧道超欠挖程序为通用形，不受圆心个数限制、4、新增测量资料表计算

二、源程序（绿色为程序名；蓝色为输入计算器内容）紫色为新版改动处（可以根据自己标段情况用相关主程序及子程序，再在0程序中汇总）0.汇总程序（1、坐标计算放样程序(1XY、A、AB、HX、JS、DX、QX、F、XY、X1)；2、坐标反算程序（2ZD、A、B、AB、HX、QX、F、ZD、X1)；3、高程计算查阅程序（3GC、H、I、QX、S1、I1）；4、路基半幅标准宽度查阅程序（4GD、C、QX、G1）；5、路基边坡及开挖口放样程序（5BP、 A、B、AB、HX、H、I、C、JS、DX、QX、F、ZD、X1、S1、I1、G1、W1）； 6、路基标准距离放样（6FM、A、AB、HX、H、I、JS、DX、QX、F、XY、X1、S1、I1)； 7、桥梁锥坡计算放样程序（7ZP、A、AB、HX、C、JS、DX、QX、F、XY、X1、G1)； 8、极坐标计算程序（8JS、JS、DS）； 9、隧道超欠挖计算程序（A、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、S1、I1、SD1）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。输入-2,返回选择线路。 程序名：0（数子0） ClrMat:ClrVar:12→DimZ：Norm 2:Do:＂(XY=1，ZD=2 ，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9)===>QING AN 1-9＂：Getkey→Z[3]:While Z[3]=35:Prog＂1XY＂:WhileEnd:While Z[3]=36:Prog＂2ZD＂：WhileEnd: While Z[3]=37:Prog＂3GC＂：WhileEnd: While Z[3]=21:Prog＂4GD＂：WhileEnd: While Z[3]=22:Prog＂5BP＂：WhileEnd: While Z[3]=23:Prog＂6FM＂：WhileEnd: While Z[3]=31:Prog＂7ZP＂：WhileEnd: While Z[3]=32:Prog＂8JS＂：

FX5800道路路线测量程序

道路中边桩坐标放样正反算CASIO fx-5800P程序（全线贯通） 编辑 | 删除 | 权限设置 | 更多▼ 设置置顶推荐日志转到私密记事本 转载自王中伟转载于2009年08月12日 17:34 阅读(1) 评论(0) 分类：技术交流权限: 公开 一、前言 本程序是《CASIO fx-5800P计算与道路坐标放样计算》中道路坐标放样计算程序的升级改进版本。原道路坐标放样计算程序只基于道路的单个基本型曲线，有效计算范围仅包括平曲线部分和前后的两条直线段，使用时需要输入平曲线设计参数，无坐标反算桩号功能。 改进后的程序名称为：道路中边桩坐标放样正反算程序（全线贯通），增加了可实现全线贯通的数据库功能和坐标反算桩号功能，主要是： 1．使用道路平面数据库子程序，可将一段或若干段道路的交点法格式平面参数（可容易从直线、曲线及转角表中获得）以数据库子程序形式输入计算器，程序在计算时省却了输入原始数据的麻烦； 2．坐标正算方面，输入桩号即可进行道路的中、边桩坐标计算，若输入了测站坐标，还可同时计算全站仪极坐标放样数据（拨角和平距）； 3．坐标反算方面，输入平面坐标，即可计算对应的桩号和距中距离（含左右信息）； 4．对于存在断链的道路，可分段分别编写数据库子程序，然后在主程序中添加一个路段选择的功能即可实现（可参照立交匝道程序中匝道的选择）。 程序的特点： 1．可进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写； 2．主程序通过调用数据库子程序，省却了使用时输入平面参数的繁琐； 3．使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。 二、道路示例项目基本资料 基本资料同《CASIO fx-5800P计算与道路坐标放样计算》第6章HY高速公路第2合同段（合同段起止桩号：K4+800~K9+600）。这里摘取直线、曲线及转角表资料如下（若图片不清晰，请参见参见教材P161附录1）： .

卡西欧5800路基测量程序讲课稿

卡西欧5800路基测 量程序

晋-测量-斐斐(532901847) 21:20:03 一、程序功能 本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序（SDYX）构成，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。 二、源程序 增加变量16→DimZ 1.主程序(ZHUCHENXU) "1.SZ → XY，2.XY → SZ，3.SDYX，4. BIANPO "？N： Lbl 1：”ZHUANGHAO=”?S： Prog "SUB3"：N≥2=>Goto 2： Abs(S- O)→W：”BIANZHU=”?→Z:Prog "SUB1"： "XS=”:X→X◢"YS=”:Y→Y◢"FS=”:(F-90) →F:F►DMS◢Prog "FA"：Goto 1: Lbl 2：”CX=”?X: X→I：”CY=”?Y: Y→J：”DMG=”?→Z[7]：Prog "SUB2"："S=":(O+W) →S◢"Z="Z→Z◢If N=3:Then Prog”SDYX”: IfEnd ：If N=4:Then Prog”BIANPO”:IfEnd:Goto 2 2. 正算子程序(SUB1) 0.1739274226 →Z[1]：0.3260725774→B：0.0694318442→K： 0.3300094782→L： (1-L) →F： (1-K)→M： U+W(Z[1]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW

CASIO fx-5800P计算器测量程序设计2.1版

CASIO fx-5800P计算器测量程序设计2.1版 一、程序功能 主要功能：采用线元法与交点法相结合计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。 新版本特点：1、建主程序合并原所有计算类型，在主程序中可选择操作类型。隧道欠超挖增加变量衬砌厚度，因有设计衬砌厚度根据石岩来定的。增加锥坡放样计算。 二、源程序 1.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入1~9数子则选择1至9的程序，返回时，在桩号输入-1,返回选择选择计算类型。输入-2,返回选择线路。坐标计算中输入-3,则显示本段曲线要素。 程序名：0ZCX LbI Q: 15→DimZ：Norm 2:1→A：＂A:XY=1，ZD=2 ，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9＂?A: A=1=>Goto 1:A=2=>Goto 2:A=3=>Goto 3:A=4=>Goto 4: A=5=>Goto 5:A=6=>Goto 6:A=7=>Goto 7:A=8=>Goto 8:

A=9=>Goto 9 LbI 1:Prog ＂DX＂:LbI A:Prog＂QX＂:90→B: ＂PJ1＂?B:B→C: ＂PJ2＂?C:B→Z[1]:C→Z[8]:LbI B:1→F: ＂KM＂?Z:Z= -1=>Goto 0:Z=-2=>Goto A:Z=-3=>Goto X:Prog＂KM＂:?D:Porg＂THB＂:O→L: ＂L0＂?L:Z[2]+Z[1]-Z[8] →E:X+L cos(E) →X:Y+Lsin(E) →Y:Prog＂XY＂:Prog＂JS＂:Goto B LbI 2:2→F:90→Z[1]:Prog＂QX＂:LbI C: ＂KM＂?Z: Z=-1=>Goto 0:Z=-2=>Goto 2:Z=-3=>Goto X:Prog＂KM＂: ＂X O＂?X: ＂Y0＂?Y:Prog＂THB＂:Porg＂ZD＂:Goto C: LbI 3:Prog＂QX＂:0→B: ＂H-B＂?B:B→Z[9]:LbI D: ＂KM＂?Z: Z=-1=>Goto 0:Z=-2=>Goto 3:?D:Porg＂H＂:Fix 3: ＂H=＂:Lc oate 6,4,H-Z[9] ◢ ＂I=＂:Locate 6,4,I◢Goto D LbI 4:Prog＂QX＂:LbI E: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto 4:?D:Prog＂GD＂:Fix 3: ＂SJGD=＂:Locate7,4,L◢Goto E LbI 5:Prog＂QX＂:0.5→B:＂TH-GD＂?B:B→Z[15]:LbI F:2→F:90→Z[1]:＂KM＂?Z:Z=-1 =>Goto 0:Z=-2 =>Goto 5:Prog＂KM＂: ＂X0＂?X: ＂Y0＂?Y:0→M:”M0”?M: M→Z[4]:Prog＂3FBZ＂Fix 2:Z[3] →D:Abs（D）-S→O: ＂L0=＂:Locate 6,4,O◢Prog＂ZD＂: Z[5]→T:＂TW=＂:Lcoate 6,4,T◢Goto F: LbI 6:Prog＂DX＂:LbI G:Prog＂QX＂:LbI H:1→F:90→Z[1]: ＂K M＂?Z:Z=-1=>Goto 0:Z=-2=>Goto G:Prog＂KM＂:?D:Prog＂TH

计算器编程(修改版5800)

FX5800计算器公路测量常用程序集2.3 版 一、程序功能 主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。 新版本优化：1、优化程序语句、2、取消原线元法计算，化线元法为交点法。 3、高程计算修改, 4、附计算坐标及高程参数设计要素输入实例 二、源程序（绿色为程序名；蓝色为输入计算器内容）红色为网友调试后修改笔误。 0.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。输入-2,返回选择线路。 程序名：0（数子0） ClrMat:ClrVar:12→DimZ：Norm 2:Do:＂(XY=1，ZD=2 ，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9)===>QING AN 1-9＂：Getkey→Z[3]:While Z[3]=35:Prog＂1XY”:WhileEnd:While Z[3]=36:Prog＂2ZD＂：WhileEnd: While Z[3]=37:Prog＂3GC＂：WhileEnd: While

Z[3]=21:Prog＂4GD＂：WhileEnd: While Z[3]=22:Prog＂5BP＂：WhileEnd: While Z[3]=23:Prog＂6FM＂：WhileEnd: While Z[3]=31:Prog＂7ZP＂：WhileEnd: While Z[3]=32:Prog＂8JS＂：WhileEnd: While Z[3]=33:Prog＂9SD＂：WhileEnd:LpWhile Z[3]≠25:”XIE XIE SHI YONG”: 1.主程序：一般坐标计算及放样程序 程序名:1XY Prog ＂DX＂:Prog＂QX＂:90→A: ＂PJ1＂?A:A→B: ＂PJ2＂?B:A→Z [1]:B→Z[9]: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ? D: 0→L: ＂L0＂?L:L→Z[10]: Porg＂A＂:Z[2]+Z[1] →A :A-Z[9]→E:I+Dcos(A)+Z[10]cos(E→X:J+Dsin(A)+Z[10]sin(E→Y:Prog＂XY＂: Prog＂JS＂:LpWhile Z≠-1 2.主程序：由大概桩号及坐标反算桩号及距离 程序名:2ZD Prog＂QX＂:Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ＂XO＂?X: ＂Y0＂?Y: Porg＂B＂: Prog＂ZD＂:LpWhile Z≠-1 3.主程序：任意点高程计算及横坡 程序名:3GC P rog＂QX＂:0→B: ＂H-B＂?B: B→Z[9]: Do: ＂KM＂?Z:Z=-1=>Stop: Z=-2=>Break:?D:Prog＂H＂:Fix 3: ＂ H=＂: Locate 6,4,H-Z [9]：＂ I=＂:Locate 6,4,I：LpWhile Z≠-1

卡西欧5800基本测量程序(完整版)

卡西欧 5800 程序 (完整版) 说明：本程序适用于公路、桥梁、隧道测量。本程序简单、方便、快捷、拓展功

能宽，使用时只需按曲线要素表输入一次就可以计算整条线路（包括高程、超高段横坡），能正、反算，在已知坐标下可以反算出该点桩号及相对宽度，拓展功能有，放边、仰坡、隧道断面测量、开挖轮廓线等。 主程序:MAIN ＂ZH（θ） F（１）＂?M↓ (0为正算、1为反算) If M=θ:Then ＂ZHUANG HAO＂?A：＂KUAN DU＂?W:Else＂Ｘ＝＂?H：＂Ｙ＝＂?W:＂Ｚ＝＂？Ｑ：IfEnd↓ (第一个交点参数) (交点桩号)…→P:(切线长度)…→T:(曲线总长)…→S:(圆半径)…→R=:(缓和曲线长)…→L:(第一方位角)…→U:(第二方位角)…→V:(交点X坐标)…→N:(交点Y坐标)…→E:(第一直线长、无为0)…→D:(第一坡度)…→Z〔8〕:(第二坡度)…→ Z〔9〕: (缓和曲线超高段长度)…→Z〔10〕:(曲线偏向,右偏为+1,左偏为-1)…→K ↓ If M=θ:Then If AP-T+S+D:Then Goto 1 :IfEnd:IfEnd↓

Prog＂ZFXZ＂↓ If K=θ:Then goto 2 :IfEnd↓ Lb1 1：＂NO TASK＂↓ Lb1 2：If M=1:Then If A=1:Then ＂ZHUANG HAO＂:Z◢＂SJ KUAN DU＂:B◢ IfEnd:IfEnd↓ ＂-------END-------＂ KUAN DU （拓展功能程序，用于反算） 1→Ｍ:Prog＂MAIN＂↓ Z→A:W→E:θ→W↓ Prog＂GAO CHENG＂↓ E→W↓ Q-F→P↓ If P≤……(从小至大):Then ……→D:Goto 1:IfEnd↓……(同上) Lb1 1↓ ＂……＂:D◢ (同上) ◢ ＂----------END---------＂ YUAN K(B÷(2R))→F↓

公路测量卡西欧5800万能程序

一、前言本程序是《CASIO fx-5800P计算与道路坐标放样计算》中道路坐标放样计算程序的升级改进版本。原道路坐标放样计算程序只基于道路的单个基本型曲线，有效计算范围仅包括平曲线部分和前后的两条直线段，使用时需要输入平曲线设计参数，无坐标反算桩号功能。改进后的程序名称为：道路中边桩坐标放样正反算程序（全线贯通），增加了可实现全线贯通的数据库功能和坐标反算桩号功能，主要是： 1．使用道路平面数据库子程序，可将一段或若干段道路的交点法格式平面参数（可容易从直线、曲线及转角表中获得）以数据库子程序形式输入计算器，程序在计算时省却了输入原始数据的麻烦； 2．坐标正算方面，输入桩号即可进行道路的中、边桩坐标计算，若输入了测站坐标，还可同时计算全站仪极坐标放样数据（拨角和平距）； 3．坐标反算方面，输入平面坐标，即可计算对应的桩号和距中距离（含左右信息）； 4．对于存在断链的道路，可分段分别编写数据库子程序，然后在主程序中添加一个路段选择的功能即可实现（可参照立交匝道程序中匝道的选择）。程序的特点： 1．可进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写； 2．主程序通过调用数据库子程序，省却了使用时输入平面参数的繁琐； 3．使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。二、道路示例项目基本资料基本资料同《CASIO fx-5800P计算与道路坐标放样计算》第6章HY高速公路第2合同段（合同段起止桩号： K4+800~K9+600）。这里摘取直线、曲线及转角表资料如下.

.

. 三、程序代码 .

. .

. .

5800计算器公路三维全能程序.(丢掉图纸轻松测量)(棋走四方超牛)!

请大家不要因为我的程序去买5800计算器了,建议买9860,我有时间了,就把这个程序改成9860 本程序比较复杂.测量原理不是很明白的朋友慎用 请大家经常关注程序B-H的更新 2009,5,10日修改见超高子程序B-H黄色部分,另超高数据库增加在超高缓和段输入超高为公路外侧超高说明 2009，5，8日正反算选择程序：ZS-FS 更改小错，详见紫色修改内容 2009,4,30日更改如下：把原来的４个子程序分解成５个子程序，解决了一个大的竖曲线不能包含几个超高变化段，另外程序内也有两处改变请看红色区域． 本程序经过综合考虑５８００的设计缺陷，计算速度较慢故只使用高斯四节点法为计算内核．支持多条线路正反算,中桩,边桩高程计算,超高计算,超高缓和计算,加宽计算,加宽缓和计算,边坡开口线计算,挡土墙坡脚线计算，考虑了中间绿化带的影响，适用与国家高速公路至乡村四级公路计算和放样，路基路面工程可以直接得出中边桩的设计三维坐标，去掉加宽和超高影响的计算困难，边坡和坡脚线计算可直接在边坡上提取坐标带入程序，经过所有设计因素的综合，得出更改边距并显示修改偏差后的坐标．反算速度明显提高,只需要3秒.程序无错，可放心输入，另本程序可以增加隧道超欠挖计算子程序,非常方便,因为每个隧道的断面数据不一样,所以在此没有明确写出,有需要的可以联系我.本人QQ76805071,只为交友. 计算器主程序：ZHU-CHENG-XU Lbi0:“1，ZS=FS，2ZS，3FS，4XY＝＞SG，5。。。。。。。”？U: U=1＝＞Prog”ZS-FS”:进入公路三维程序 U=2＝＞Porg”ZS”:进入坐标正算程序 U=3＝＞Porg”FS”:进入坐标反算程序 U=4＝＞Porg”XY ＝＞SG”:进入大地坐标转施工坐标程序 …………Goto0: 说明：计算器总的主程序，进入选择各种分支计算程序。1为公路三维计算，2为普通正算，3为普通反算，4为大地坐标转施工坐标。。。。。。。。选择错误重新选择。此程序可以不用输入，只为给大家一个思路,可以把计算器所有程序集中到一个主程序内管理. 公路三维部分 正反算选择程序：ZS-FS Deg: //设置角度模式 20→DimZ: //扩展变量 “1LZ＝＞XY，2XY＝＞LZ,3BIANPO-FY”？U：//正反算选择，正算选1，反算选2,坡口坡脚选3 If U=1: ThenProg”ZS-XH”:IfEnd://进入正算循环主程序 IfU=2:Then Prog”FS-XH”:IfEnd: //进入反算循环主程序 IfU=3:ThenProg”BP-FY”:IfEnd://进入边坡开挖主程序 正算循环主体程序ZS-XH “1PT-2SJ”？W：//普通计算和设计边距计算选择 “XL-XZ“？U：//选择线路1～N

CASIO fx—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：方位角 ２、坐标反算 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：方位角３、圆曲线 〝X0=〞?X: 〝Y0=〞?Y:〝FWJ=〞?D:〝QDHAO=〞?G: 〝ZDHAO=〞?C: 〝R=〞?R Lbl 1 〝DQHAO=〞?L L

【2019年整理】CASIO5800计算器测量计算程序

CASIO 5800计算器测量计算程序 来自: ritsing(祥瑞之士) 2009-08-17 14:51:21 简要介绍： 1. 新版程序把线元法和交点法已经集成在一个模块中了，用户只需修改JD程序和ZA程序中的数据部分即可,其余不需作任何的改动。 2. 因为每条路高程计算不尽相同，且比较复杂，现在可利用PC机EXCEL计算好打印成表格带到工地上使用，所以本版程序未对线路高程序进行专门的编程计算，而是利用统计计算模式中来输入桩号（第一列X）及左、右高程（第二、三列Y，Freq），这种输入数据的方式最为直观，易发现错误，也易修改，输入完毕后运行S程序对数据按桩号进行排序，在程序中通过调用GG 程序来进行内插计算，SG=-1得左标高，SG=1得右标高（若SG输入0,则可进行一般的线性内插计算）。 3. 在JD程序和XY程序中，先将一个计算单元的数据置入矩阵F中（1行8列或1行9列），这样程序可读性极好。 4．相比原CASIO4850程序操作习惯，作了一点小小的改动，测站坐标存在Z[10]，N中，X 坐标原存在M中容易被误操作修改，而设计标高存在M中，这样易于修改，因为CASIO5800没有IN，OUT功能，很不方便。 4. 程序利用Z[2]变量值来判断是采用交点法还是线元法模型计算，Z[2]＝0为线元法，否则为交点法。 一、PQX程序：计算中边桩坐标及近似的桩号反算，在运行模式直接调用。 ①Z[10]→S:”XO”?S:S→Z[10]:”YO”?N:Prog “AU” ②Lbl 2:?L:Prog “Z”:Prog “E”:1n→O:90→S ③Lbl 4:”JJ”?S:”YC”?O:SO=0 =>Goto 2‘原来lbl 后没有标号４的。 ④O=-1 =>Goto 6 ⑤“X,Y”:R+OCos(Z+S)→X▲U+OSin(Z+S)→Y▲Prog “D”:Goto 4 ⑥Lbl 6:Z[7]→X:Z[8]→Y:”XF”?X:”YF”?Y:XY=0 =>Goto 4 ⑦ X→Z[7]:Y→Z[8]:Pol(X-R,Y-U+1p):Z+S-J→J:”YC,DL,L”:ICos(J)→O▲ISin(J)→I▲L+I▲Goto 6二、P程序：在程序中提供一个自由运算的模式。 ①Lbl 1:”TMP”?I:If I≠0:Then“RST”:I▲Goto 1:IfEnd 二、LYC程序：进行桩号反算及边坡放样，在运行模式直接调用。 ①Prog “AU” ②Lbl 1:Z[7]→X: Z[8]→Y: Z[6]→S: ”XF”?X :X→Z[7]:”YF”?Y:Y→Z[8]: ”ZF”?S: S→Z[6] ③Lbl 2:Prog “Z”:Y=U =>Y+1p→Y ④Pol(X-R,Y-U):J-Z→J:Isin(J)→O:Icos(J)→I ⑤If Abs(I)≤0.1:Then Prog “E”:”L,YC”:L+I→L▲O▲Goto 3:IfEnd ⑥If Z[9]≠0:Then Pol(Z[9]-SO,I):πJZ[9]÷180→I:IfEnd ⑦”DL”:I▲L+I→L:Goto 2 ⑧Lbl 3: Z[6]→S:If S=0:Then Goto 1:IfEnd ⑧M→Z ⑨Lbl 4:”SG”?Z:Z→M:If Abs(Z)=1: Then Prog “GG”:Y→Z:If X=1:Then

5800计算机测量程序

5800计算机测量程序 1:主程序（TYQXJS） Lb1 4:”1.SZ=>XY”:”2.XY=>SZ”:?N:U:”X0”?U: V:”Y0”?V: O:”S0”?O :G:”F0”?G: H:”LS”?H:P:”R0”?P:R:”RN”?R:Q:”Q”?Q:↘ (1÷P)→C:(P-R)÷(2HPR)→D:(180÷Π)→E:N=1=>Goto 1:Goto 2↘ Lb1 1:?S:?Z:Abs(S-O)→W:Prog”SUB1”: ↘ “XS=”:X◢ “YS=”:Y◢ F-90→F:”FS=”:F▲DMS◢ Goto 1↘ Lb1 2:?X:?Y:X→I:Y→J:Prog”SUB2”:O+W→S:”S=”S◢ “Z=”:Z◢ Goto 2↘ 正算子程序（SUB1） 0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1-L→F：1-K→M：↘ U+W（Acos(G+QEKW（C+KWD）)+Bcos（G+QELW（C+LWD））+Bcos（G+QEFW（C+FWD））+Acos（G+QEMW（C+MWD）））→X：↘ V+W（Asin（G+ QEKW（C+KWD）)+ Bsin（G+QELW（C+LWD））

+Bsin（G+QEFW（C+FWD））+Asin（G+QEMW（C+MWD）））→Y：↘ G+QEW（C+WD）+90→F：X+Zcos(F)→X：Y+Zsin（F）→Y：反算子程序(SUB2) G-90→T：Abs(Y-V)cosT-(X-U)sinT) →W↘ 0→Z：Lbl 0：Prog "SUB1"↘ T+QEW(C+WD) →L：(J-Y)cos（L）-(I-X)sin（L）→Z：IF Abs（Z）<0.001：Then 0→Z:Prog "SUB1"：(J-Y)÷sin（F）→Z：Else W+Z→W:Goto0：IfEnd↘ 使用说明 U：“XO”起点的X坐标， V：“YO”起点的Y坐标， O：“SO”起点的里程桩号， G：“FO”起点的方位角， H：“LS”计算段线元的长度， P：“RO”线元起点的曲率半径， R：“RN”线元终点曲率半径， “Q ”线元图形信息（直线段Q=0，左偏Q=-1，右偏Q=1）以道路中线前进方向（即大里程方向）区分左右。：， S:“待求点的里程桩号， Z:“待求点的里程偏距（在中线上取零，左侧取负值，右侧取正值）。

工程测量中fx5800P计算器基本程序

工程测量中fx-5800P计算器基本程序 的编写及实际放线的应用 刘兵策刘杰 摘要在日常工程测量工作中，计算器是必不可少的工具。目前行业内用fx-5800P。 本文介绍测量工作中坐标正反算、大地转施工、施工转大地等常用程序的原理及编写，并 对其比较复杂的实际放线的灵活应用进行解析，为类似的测量工作提供借鉴。 关键词工程测量fx-5800P程序应用 1 引言 控制测量是施工的基础，为了便于施工，放线一般使用施工坐标系，坐标轴平行于建筑物主轴线。对于建筑物主轴线与坐标轴不平行的，为了方便放线，一般不再改变坐标系，用计算器程序进行计算，迅速判断需要定位的点。 利用fx-5800P计算器根据测出的坐标数据计算出与设计图纸上的差值，指挥棱镜进行移动，找到准确的设计位置。测量工作中主要用到坐标正反算，大地转施工，施工转大地等常用程序，下面介绍这几个程序的原理和编写，总结一些在实际工作中的应用。 2 Fx-5800计算器程序的原理与编写 2.1 大地坐标转换为施工坐标 大地坐标转换为施工坐标见图1。 Xp、Yp分别是P点在XOY坐标系中的纵横坐标，xp， yp分别是xo’y坐标系中的纵横坐标值，Xo，Yo分别是 xo’y坐标系的坐标原点o’在XOY坐标系中的纵、横坐 标值，Δα为两坐标系坐标纵轴的夹角。 将P点从XOY坐标系转换到xo’y坐标系中， 即大地转施工的公式如下：图1 大地坐标与施工坐标转换图 xp=（Yp-Yo）sinΔα+（Xp-Xo）cosΔα； yp=（Yp-Yo）cosΔα-（Xp-Xo）sinΔα； 用fx-5800P编制程序时，只要输入大地坐标的原点o’的坐标和要转换的点P点的大地坐标，即在坐标系XOY坐标系中的坐标，再用上述公式带入，输出P点的施工坐标。基本程序如下：

5800计算器程序5

FX5800计算器测量程序集2.0 版 一、程序功能 主要功能：计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。 新版本特点：1、优化原所有主程序，所有参变量（如导线点置仪点坐标、正反算选择、偏角、线路选择等），全部在程序头次显示一次，以后运行不需输入。运行中也可以返回再次选择线路、可以直接以矩阵形式调出线路参数。 2、坐标计算考虑了线元法与交点法相结合，即是一条线路也可以一段用线元法，一段用交点法。参数置放矩阵中，输入和可读性极好。 3、新增隧道断面欠超挖值放样计算 4、高程程序中考虑了初次输入线路选择、计算面与设计面高差，输出中加入显示本桩号路基标准宽度。 二、源程序 1.主程序1：一般放样正反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离) 程序名:1ZD-XY Lb1 Q: Norm 2:14→DimZ：1→F：Prog＂DX＂: Lb1 X：Prog＂QX＂：90→B：＂PJ＂？B：B→Z[1]：

Lb1 0: Norm 2 ：“KM”?Z：If Z=-1:Then Goto X:Else If Z=-2: Then 2→F :Goto 0: Else If Z=-3: Then Goto 9:IfEnd: Prog＂KM＂：If F=1:Then ?D:Else “X0”?X:“Y0”?Y: IfEnd: Prog＂THB＂:If F=1: Then Goto 1: Else Goto 2： Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢ ＂Ｙ＝＂：Locate 6,4,Ｙ◢ Ｐrog＂6JS”:Goto 0: Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢ ＂Ｄ＝＂：Locate 6,4,Ｄ◢ Ｇoto 0： Lbl 9:Mat F◢ Ｇoto Q ２．主程序２：高程、横坡、宽度程序(计算设计任意点高程、横坡及路基设计标准宽度) 程序名：2GC 14→DimZ：LbI 0:Norm 2: Prog＂QX＂：0→B:”H-B:”?B:B→Z[9]: LbI H: Norm 2: “KM”?Z:Z=-1=> Goto 0:?D:Prog”H”: Fix 3:”H=”:Loc ate 6,4,H◢ “I=”: Locate 6,4,I◢ Prog＂GD＂：“SJLG=”: Locate 6,4,L◢ Goto H

CASIO fx5800P公路施工放线测量公式及程序11.4.14

CASIO fx5800P公路施工放线测量公式及程序 一、已知座标，求平距和方位角(座标反算)：公式：D=√（Xp-Xo）2+（Yp-Yo） 2 α=arctg(Yp-Yo)/(Xp-Xo) 程序：“A”？→A：“B”？→B：Lbl 0:“X”？→X：“Y”？→Y：（X-A）→M：（Y-B）→N：“D=”：√（M2+N2）⊿ tan-1(N/M) →C:If M＜0:Then “Q=”：180+C →Q ⊿ Else If N＞0: Then “Q=”：C→Q ⊿ Else “Q=”：360+C→Q ⊿ If End : If End : Goto 0 说明：（A，B）为测站点坐标，（X，Y）为所求点坐标。输出：D为平距，Q为方位角。二、已知直线的坐标方位角Q和直线起点坐标（Xo,Yo），求直线上任一点的中桩坐标（X， Y），左右边桩坐标（XL，YL）、（XR，YR）：公式：X =Xo+LcosQ Y=Yo+LsinQ程序：“C”？→C：“D”？→D：“Q”？→Q：“Z”？→Z：“U”?→U：“T”？→T：“V”？→V：Lbl 1: “L”？→L：Abs（L-Z）→W：“X=”：C+W*cos(Q)→X ⊿“Y=”：D+W*sin(Q)→Y ⊿ If U≤0:Then Goto1:Else “XL=”:X+U*cos(Q-V)→A ⊿“YL=”： Y+U*sin(Q-V)→B⊿“XR=”:X+T*cos(Q+V)→E⊿“YR=”：Y+T*sin(Q+V)→F⊿ Goto 1 说明：（C，D）为直线起点坐标，Q为直线方位角，Z为起点桩号，L为所求坐标点桩号。“U”为左边距，“T”为右边距，“V”为偏角；U=0时不算边桩坐标。输出：（X，Y）为中桩坐标，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。三、已知圆曲线起点坐标（U，V），切线方位角Q，桩号Z和圆半径R，求圆曲线上桩号为 L的点中桩坐标（X，Y），左右边桩坐标（XL，YL）、（XR，YR）：公式：ψ=90L/(лR) (偏角公式）C=2Rsin ψ (对应弧的弦长公式）弦的方位角:Q=Qo±ψ （曲线左转时为“-”）程序：“U”？→U：“V”？→V：“Q”？→Q：“R”？→R：“Z”？→Z：“W=-1，1”：？→W：“ZJ=”：？→Z[1]：“YJ=”：？→Z[2]：“PIAN JIAO”：？→T：Lbl 2: “L”？→L：180*（L-Z）/（2π*R）→J：R*2sin(J)→K:If W=-1:Then “X=”:U+K*cos (Q-J）→X⊿ “Y=”：V+K*sin(Q-J)→Y ⊿“Q=”：Q-180*（L-Z）/（πR）→O⊿ Else If W=1:Then“X=”:U+K*cos(Q+J）→X⊿“Y=”：V+K*sin(Q+J)→Y ⊿ “Q=”：Q+180*（L-Z）/（πR）→O⊿ IfEnd:IfEnd:T=0=＞Goto 2： “XL=”:X+Z[1]*cos(O-T)→F⊿“YL=”：Y+Z[1]*sin(O-T)→P ⊿“XR=”:X+Z[2]*cos(O+T)⊿“YR=”：Y+Z[2]*sin(O+T) ⊿ Goto 2 说明：W=-1时曲线左转, W=1时曲线右转。“ZJ=”为左边距，“YJ=”为右边距，“PIAN JIAO”为偏角，偏角输0时不算边桩坐标。输出：（X，Y）为中桩坐标，“Q=”为所求点方位角，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。四、已知直缓点坐标（M，N）、方位角Q、桩号Z，缓和曲线全长S和连接圆半径R，求缓和曲线上任一点（桩号为L）的中桩坐标（X，Y），左右边桩坐标（XL，YL）、（XR，YR）：公式：θ=30L2/(πRLs) C=L-L5/(90R2Ls2) α=α±90Ls2/(πA2)程序：“M”？→M：“N”？→N：“R”→R：“A”？→A：“S”?→S：“Z”？→Z：“Q”？→Q：“W=-1，1”：？→W：“ZJ=”？→Z[1]：“YJ=”？→Z[2]：“PIAN JIAO”：？→ T：Lbl 3:“L”？→L：Abs (L-Z)→H:30*H2/(πRS)→D:H-H5/(90R2S2)→C:If W=-1:Then “X=”： M+C*cos(Q-D)→X⊿“Y=”：N+C*sin(Q-D)→Y ⊿ A =0 =＞Goto

CASIO 5800计算器测量计算程序

CASIO 5800计算器测量计算程序 上上月做这个东西的时候没仔细检查，有好几处输错了的地方，今天把它修改过来。 简要介绍： 1. 新版程序把线元法和交点法已经集成在一个模块中了，用户只需修改JD 程序和ZA程序中的数据部分即可,其余不需作任何的改动。 2. 因为每条路高程计算不尽相同，且比较复杂，现在可利用PC机EXCEL计算好打印成表格带到工地上使用，所以本版程序未对线路高程序进行专门的编程计算，而是利用统计计算模式中来输入桩号（第一列X）及左、右高程（第二、三列Y，Freq），这种输入数据的方式最为直观，易发现错误，也易修改，输入完毕后运行S程序对数据按桩号进行排序，在程序中通过调用GG程序来进行内插计算，SG=-1得左标高，SG=1得右标高（若SG输入0,则可进行一般的线性内插计算）。 3. 在JD程序和XY程序中，先将一个计算单元的数据置入矩阵F中（1行8列或1行9列），这样程序可读性极好。 4．相比原CASIO4850程序操作习惯，作了一点小小的改动，测站坐标存在Z[10]，N中，X坐标原存在M中容易被误操作修改，而设计标高存在M中，这样易于修改，因为CASIO5800没有IN，OUT功能，很不方便。 4. 程序利用Z[2]变量值来判断是采用交点法还是线元法模型计算，Z[2]＝0为线元法，否则为交点法。 一、PQX程序：计算中边桩坐标及近似的桩号反算，在运行模式直接调用。 ①Z[10]→S:”XO”?S:S→Z[10]:”YO”?N:Prog “AU” ②Lbl 2:?L:Prog “Z”:Prog “E”:1n→O:90→S ③Lbl 4:”JJ”?S:”YC”?O:SO=0 =>Goto 2…原来lbl 后没有标号４的。 ④O=-1 =>Goto 6 ⑤“X,Y”:R+OCos(Z+S)→X▲U+OSin(Z+S)→Y▲Prog “D”:Goto 4 ⑥Lbl 6:Z[7]→X:Z[8]→Y:”XF”?X:”YF”?Y:XY=0 =>Goto 4 ⑦X→Z[7]:Y→Z[8]:Pol(X-R,Y-U+1p):Z+S-J→J:”YC,DL,L”:ICos(J)→O▲ISin( J)→I▲L+I▲Goto 6 二、P程序：在程序中提供一个自由运算的模式。 ①Lbl 1:”TMP”?I:If I≠0:Then “RST”:I▲Goto 1:IfEnd 二、LYC程序：进行桩号反算及边坡放样，在运行模式直接调用。 ①Prog “AU” ②Lbl 1:Z[7]→X: Z[8]→Y: Z[6]→S: ”XF”?X :X→Z[7]:”YF”?Y:Y→Z[8]: ”ZF”?S: S→Z[6] ③Lbl 2:Prog “Z”:Y=U =>Y+1p→Y ④Pol(X-R,Y-U):J-Z→J:Isin(J)→O:Icos(J)→I ⑤If Abs(I)≤0.1:Then Prog “E”:”L,YC”:L+I→L▲O▲Goto 3:IfEnd ⑥If Z[9]≠0:Then Pol(Z[9]-SO,I):πJZ[9]÷180→I:IfEnd ⑦”DL”:I▲L+I→L:Goto 2 ⑧Lbl 3: Z[6]→S:If S=0:Then Goto 1:IfEnd ⑧M→Z ⑨Lbl 4:”SG”?Z:Z→M:If Abs(Z)=1: Then Prog “GG”:Y→Z:If X=1:Then