FX5800计算器公路测量常用程序21版及详细说明.docx

FX5800计算器公路测量常用程序21版及详细说明.docx

《FX5800计算器公路测量常用程序21版及详细说明.docx》由会员分享，可在线阅读，更多相关《FX5800计算器公路测量常用程序21版及详细说明.docx（11页珍藏版）》请在冰豆网上搜索。

FX5800计算器公路测量常用程序21版及详细说明

FX5800计算器公路测量常用程序2.1版

及详细说明

 一、程序功能

    主要功能：

采用线元法与交点法相结合计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。

新版本特点：

1、建主程序合并原所有计算类型，在主程序中可选择操作类型。

隧道欠超挖增加变量衬砌厚度，因有设计衬砌厚度根据石岩来定的。

增加锥坡放样计算。

二、源程序

1.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入1~9数子则选择1至9的程序，返回时，在桩号输入-1,返回选择选择计算类型。

输入-2,返回选择线路。

坐标计算中输入-3,则显示本段曲线要素。

程序名：

0ZCX

LbIQ:

15→DimZ：

Norm2:

1→A：

＂A:

XY=1，ZD=2，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9＂?

A:

A=1=>Goto1:

A=2=>Goto2:

A=3=>Goto3:

A=4=>Goto4:

A=5=>Goto5:

A=6=>Goto6:

A=7=>Goto7:

A=8=>Goto8:

A=9=>Goto9

LbI1:

Prog＂DX＂:

LbIA:

Prog＂QX＂:

90→B:

＂PJ1＂?

B:

B→C:

＂PJ2＂?

C:

B→Z[1]:

C→Z[8]:

LbIB:

1→F:

＂KM＂?

Z:

Z=-1=>Goto0:

Z=-2=>GotoA:

Z=-3=>GotoX:

Prog＂KM＂:

?

D:

Porg＂THB＂:

O→L:

＂L0＂?

L:

Z[2]+Z[1]-Z[8]→E:

X+Lcos（E）→X:

Y+Lsin（E）→Y:

Prog＂XY＂:

Prog＂JS＂:

GotoB

LbI2:

2→F:

90→Z[1]:

Prog＂QX＂:

LbIC:

＂KM＂?

Z:

Z=-1=>Goto0:

Z=-2=>Goto2:

Z=-3=>GotoX:

Prog＂KM＂:

＂XO＂?

X:

＂Y0＂?

Y:

Prog＂THB＂:

Porg＂ZD＂:

GotoC:

LbI3:

Prog＂QX＂:

0→B:

＂H-B＂?

B:

B→Z[9]:

LbID:

＂KM＂?

Z:

Z=-1=>Goto0:

Z=-2=>Goto3:

?

D:

Porg＂H＂:

Fix3:

＂H=＂:

Lcoate6,4,H-Z[9]◢

＂I=＂:

Locate6,4,I◢GotoD

LbI4:

Prog＂QX＂:

LbIE:

＂KM＂?

Z:

Z=-1=>Goto0:

Z=-2=>Goto4:

?

D:

Prog＂GD＂:

Fix3:

＂SJGD=＂:

Locate7,4,L◢GotoE

LbI5:

Prog＂QX＂:

0.5→B:

＂TH-GD＂?

B:

B→Z[15]:

LbIF:

2→F:

90→Z[1]:

＂KM＂?

Z:

Z=-1=>Goto0:

Z=-2=>Goto5:

Prog＂KM＂:

＂X0＂?

X:

＂Y0＂?

Y:

0→M:

”M0”?

M:

M→Z[4]:

Prog＂3FBZ＂

Fix2:

Z[3]→D:

Abs（D）-S→O:

＂L0=＂:

Locate6,4,O◢

Prog＂ZD＂:

Z[5]→T:

＂TW=＂:

Lcoate6,4,T◢GotoF:

LbI6:

Prog＂DX＂:

LbIG:

Prog＂QX＂:

LbIH:

1→F:

90→Z[1]:

＂KM＂?

Z:

Z=-1=>Goto0:

Z=-2=>GotoG:

Prog＂KM＂:

?

D:

Prog＂THB＂:

Prog＂XY＂:

Prog＂JS＂:

Prog＂H＂:

0→M:

＂M0＂?

M:

Fix2:

H-M→T:

＂TW=＂:

Locate6,4,T◢GotoH:

LbI7:

Prog＂DX＂:

LbII:

Prog＂QX＂:

0→D:

＂LD:

Z-,Y+＂?

D:

Abs（D）→R:

＂LR＂?

R:

＂Z0＂?

Z:

D→Z[6]:

R→Z[7]:

Z→Z[8]:

LbIJ:

0→Y:

＂L0:

SZ+,DZ-＂?

Y:

Y=-1=>Goto0:

Y=-2=>GotoI:

Prog＂ZP＂:

GotoJ:

LbI8:

Prog＂DX＂:

LbIK:

?

X:

X=-1=>Goto0:

X=-2=>

Goto8:

?

Y:

Prog＂JS＂:

GotoK:

LbI9:

Porg＂DX＂:

LbIL:

Prog”QX”:

LbIM:

2→F:

90→Z[1]:

＂KM＂?

Z:

Z=-1=>Goto0:

Z=-2=>GotoL:

Z=-3=>GotoX:

Prog＂SD1＂:

0.5→A:

“CQHD＂?

A:

“X0＂?

X:

＂Y0＂?

Y:

0→M=＂M0＂?

M:

M→Z[8]:

A→Z[15]:

Prog＂5SD＂：

GotoM:

LbIX:

MatF◢Goto0

2、次程序:

路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）

程序名：

3FBX

Prog”THB”:

D→P:

Prog”GD”:

IfD<0:

Then0.75-L→D:

GotoH:

ElseL-0.75→D:

GotoH:

IfEnd

LbIH:

Prog“H”:

H-0.03-Z[4]→Z[4]:

Prog“W1”:

IfZ[4]<0:

Then–Z[4]→G:

GotoW:

ElseZ[4]→G:

GotoT:

LbIW:

Z[8]+Z[9]→A:

IfG>A:

ThenGoto1:

ElseIfG>Z[8]:

ThenGoto2:

ElseGoto3:

IfEnd:

LbI1:

L+Z[10]+Z[11]+Z[12]+（G-A）×Z[7]+Z[9]×Z[6]+Z[8]×Z[5]→S:

GotoZ:

LbI2:

L+Z[10]+Z[11]+（G-Z[8]）×Z[6]+Z[8]×Z[5]→S:

GotoZ:

LbI3:

L+Z[10]+G×Z[5]→S:

GotoZ:

LbIT:

L+Z[17]→T:

IfG>Z[15]:

Then（T+Z[16]+（G-Z[15]）×Z[14]+Z[15]×Z[13]）→S:

GotoZ:

Else（T+G×Z[13]）→S:

GotoZ:

LbIZ

3.次程序3.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖值）

程序名：

5SD

Prog”KM”:

Prog“THB”:

D→Z[13]:

0→D:

Prog“H”:

Cos（Z[10]）×Z[4]→E:

H+Z[5]→Z[5]:

H+Z[7]→Z[7]:

E+Z[5]→Z[10]:

IfZ[8]>Z[10]:

ThenGotoR:

ElseGotoS:

IfEnd:

LbIR:

√（（Z[13]-Z[9]）2+（Z[8]-Z[5]）2）-Z[4]-Z[15]→L:

GotoL:

LbIS:

Z[4]-Z[6]→S:

√（S2-（Z[7]-Z[5]）2）×S÷Abs（S）→T:

Abs（Z[13]-Z[9]）-T→T:

√（T2+（Z[8]-Z[7]）2）-Z[6]-Z[15]→L:

GotoL:

LbIL:

Fix2:

”L0=”:

Locate6,4,L◢

Prog”ZD”:

“H0=”:

Locate6,4,Z[8]-H◢

4：

极坐放样计算程序（计算放样点至置仪点方位角及距离）

程序名：

JS

X：

Y：

Z[11]→K：

Z[12]→L：

Pol（X-K,Y-L）:

IFJ<0:

ThenJ+360→J:

IFEnd:

Int（J）+0.01Int（60Frac（J））+0.006Frac（60Frac（J））→J:

Fix4:

”FWJ=”:

Locate6,4,J◢

Fix3:

”S=”:

Locate6,4,I◢

5．路基宽度子程序6：

路基标准半幅宽度计算程序（对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L）

程序名：

GD

1→S:

Prog“G1”:

Z-C→E:

（B-A）*E/S+A→L:

6．坐标计算次程序（ＴＨＢ）

程序名：

THB

IfQ=2:

ThenGotoJ:

Else1÷P→Ｃ：

（P-R）÷（2HPR）→Ｓ：

180÷Π→E：

IfF=1:

ThenAbs（Ｚ－0）→W：

Prog"Ａ"：

Ｇoto2:

ElseＸ→I：

Ｙ→J：

Prog＂Ｂ＂：

Ｏ＋Ｗ→Z：

Ｄ→Ｄ：

Ｇoto2:

IfEnd:

LbIJ:

IfF=1:

ThenProg"Z"：

Ｇoto1:

ElseProg＂ZX＂：

Ｇoto2:

IfEnd:

LbI1:

I+D×COS（Z[2]+Z[1]）→X:

J+D×Sin（Z[2]+Z[1]）→Y:

LbI2

7.线元法正算子程序（Ａ）

程序名：

A

0.1184634425→A：

0.2393143352→B：

0.2844444444→N：

0.046910077→K：

0.2307653449→L：

0.5→M：

U+W（Acos（G+QEKW（C+KWＳ））+Bcos（G+QELW（C+LWＳ））+Ncos（G+QEMW（C+MWＳ））+Bcos（G+QE（1-L）W（C+（1-L）WS））+Acos（G+QE（1-K）W（C+（1-K）WS）））→X：

V+W（Asin（G+QEKW（C+KWＳ））+Bsin（G+QELW（C+LWＳ））+Nsin（G+QEMW（C+MWS））+Bsin（G+QE（1-L）W（C+（1-L）WS））+Asin（G+QE（1-K）W（C+（1-K）WＳ）））→Y：

G+QEW（C+WＳ）→Ｚ［２］：

X+Ｄcos（Ｚ［２］+Z[1]）→Ｘ：

Y+Ｄsin（Ｚ［２］+Z[1]）→Ｙ

8.线元法反算子程序（Ｂ）

程序名：

B

G-90→Ｔ：

Abs（（Y-V）cos（T）-（X-U）sin（T））→Ｗ：

0→Ｄ：

Lbl0：

Prog"Ａ"：

T+QEW（C+WＳ）→Ｌ：

（J-Y）cos（L）-（I-X）sin（L）→Ｄ：

IFAbs（Ｄ）<0.01:

ThenGoto1：

ElseW+Ｄ→W:

Goto0:

IfEnd:

←┘

Lbl1:

0→D：

Prog"Ａ"：

（J-Y）÷sin（Ｚ［２］+90）→D

9.交点法正算子程序（Z）

程序名：

Z

H2÷R÷24-H∧（4）÷2688÷R∧（3）→A:

H÷2-H∧（3）÷240÷R2→B:

（R+A）tan（Abs（P）÷2）+B→T:

O-T→C:

C+H→L:

L+ΠR×Abs（P）÷180→N:

N-H→E:

P÷Abs（P）→W:

0→M:

IfZ

ThenZ-O→S:

G→Z[2]:

Goto2:

IfEnd:

IfZ≥N:

ThenZ-N+T→S:

G+P→Z[2]:

Goto2:

IfEnd:

IfZ≥E:

ThenN-Z→S:

Prog“HX”:

G+P→S:

S-WK→Z[2]:

U+（T-A）Cos（S）-WBSin（S）→I:

V+（T-A）Sin（S）+WBcos（S）→J:

Goto3:

IfEnd:

IfZ>L:

Then180（Z-L+0.5H）÷R÷Π→S:

H÷2-H∧（3）÷240÷R2+Rsin（S）→A:

H2÷R÷24-H∧（4）÷2688÷R∧（3）+R（1-Cos（S））→B:

R→M:

G+WS→Z[2]:

Goto4:

IfEnd:

Z-C→S:

Prog“HX”:

G