5800p全功能程序

网上搜索来的

一、程序功能

本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型.

二、源程序

1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)

程序名:1ZD-XY

Lb1 0:Norm 2

F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)

Z[1]=90（与路线右边夹角）

Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2

Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢

＂Ｙ＝＂：Locate 6,4,Ｙ◢

Ｐrog＂3JS”:Goto 0:

Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢

＂Ｄ＝＂：Locate 6,4,Ｄ◢

Ｇoto 0

２．主程序２：高程序横坡程序(设计任意点高程及横坡)

程序名：2GC

LbI 0:Norm 2

“KM”?Z:?D:

Prog”H”:Fix 3:”H=”:Locate 6,4,H◢

“I=”: Locate 6,4,I◢

Goto 0

3.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)

程序名：3JS

X：Y：

1268．123→K(置仪点X坐标)

2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）

Y-L→E：X-K→F：Pol(F,E):IF J<0:Then J+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示)

Fix 3:”S=”:Locate 6,4,I◢

4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)

程序名：4JH-XY

LbI 0:Norm 2

90→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)

1→F:Prog”THB”:?L:

Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: ＂Ｘ=＂：Locate 6,4,Ｘ◢

＂Ｙ＝＂：Locate 6,4,Ｙ◢

Ｐrog＂3JS”:Goto 0:

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

程序名：5FBX

LbI 0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog “THB”:Z:D:”M0”?M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:If D<0:Then 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEnd

LbI H:Prog”H”:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]<0:Then –z[5] →G:Goto W:Else Z[5] →G:Goto T: LbI W:Prog “W0”:Z[10]+Z[11] →A: If G>A:Then Goto 1:Else If G>Z[10]:Then Goto 2:Else Goto 3:IfEnd:

LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto Z:

LbI 2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:Goto Z:

LbI 3:L+Z[12]+G×Z[7]:Goto z:

LbI T:L+0.5→N:If G>Z[17]:Then (N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:Goto Z:Else (N+G×Z[15])→S:Goto z:

LbI Z:Z[3]→D:Fix 2:Abs(D)-S→T:”L0=”:L Locate 6,4,T◢

＂ＫＭ＝＂：Locate 6,4,Ｚ◢

＂Ｄ＝＂：Locate 6,4,Ｄ◢

“TW=”: Locate 6,4,Z[5]◢

Goto 0

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

程序名：6GD

Prog “G0”Z-C→E:(B-A)×E/S+A→L:L:

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

程序名：THB

18→DimZ：＂ＫＭ＂?Z：Prog ＂Ｘ０＂

1÷P→Ｃ：(P-R)÷(2HPR) →Ｓ：180÷π→Ｅ：Ｆ=1=>Goto 1：Ｆ=2=>Goto 2←┘

Lbl 1：?Ｄ：Abs(Ｚ－O) →W：Prog "Ａ"：X：Ｙ：Ｇoto 3

LbI 2:Ｘ：Ｙ：Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 3

LbI 3:IF Ｆ＝１Then Ｘ：Ｙ：Else Ｚ：Ｄ

8. 正算子程序(Ａ)

程序名：A

0.25→A：0.52→B：0.44→N 0.0→K：0.49→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（Ｚ［２］）→Ｘ：Y+Ｄsin（Ｚ［２］）→Ｙ9. 反算子程序(Ｂ)

程序名：B

G-90→Ｔ：Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ：0→Ｄ：Lbl 0：Prog "Ａ"：T+QEW(C+WＳ) →Ｌ：(J-Y)cos(L)-(I-X)sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto1：Else W+Ｄ→W:Goto 0←┘

Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］) →D:

10．高程计算子程序（H）

程序名：H

Prog “S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:If T=O:Then Q+LI→H:Goto 0:Else If Z

LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I:H:I:

11.高程超高计算程序（I）

程序名：I

Prog”I0”:

W=1=> Goto 0:W=2=>Goto 1:

LbI 0:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷L+M)→V:Goto 2:IfEnd:

LbI 1:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×(((3((Z-C)÷L)2-2((Z-C)÷L)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:

LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V:

12．数据子程序(附后示例)

①程序名：X0（坐标计算要素程序）

If Z≥25900 And Z≤26615.555:Then 25900→O:11587.421→U:1847.983→V:101。09’23.1”→G:715.555→H:1×1045→P: 1×1045→R: 0→Q:Goto 0: IfEnd:

If Z≥26615.555 And Z≤26915.555:Then 26615.555→O:11448.97→U:2550.016→V:101。