高行健灵山下载:X5800计算器公路测量常用程序集2.2 版

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

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

新版本优化：1、调整一次显示结果；2、交点法中考虑了不对称缓和曲线；3、修改原版本部分地方笔误.(红色为修改处)

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

程序名：0ZCX
LbI 0: 17→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＂: ＂XO＂?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=＂:Lcoate 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[17]: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＂3FBX＂

Fix 2: P→D ：Abs（D）-S→O: ＂  L0=＂:Locate 6,4,O：

Prog＂ZD＂: Z[4]→T:＂  TW=＂:Lcoate 6,4,T◢ Goto F:

LbI 6:Prog＂DX＂:LbI G:Prog＂QX＂:LbI H:1→F:90→Z[1]: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto G:Prog＂KM＂:?D:Prog＂THB＂:Prog＂XY＂:Prog＂JS＂:Prog＂H＂:0→M: ＂M0＂?M:Fix 2:H-M→T: ＂  TW=＂:Locate 6,4,T◢ Goto H:

LbI 7:Prog＂DX＂:LbI I:Prog＂QX＂:0→D: ＂LD:Z-,Y+＂? D:Abs(D) →R: ＂LR＂?R: ＂Z0＂?Z: D→Z[6]:R→Z[7]:Z→Z[8]:LbI J:0→Y: ＂L0:SZ+,DZ-＂?Y:Y=-1=>Goto 0:Y=-2=>Goto I:Prog＂ZP＂:Goto J:

LbI 8:Prog＂DX＂:LbI K:?X:X=-1=>Goto 0:X=-2=>

Goto 8:?Y:Prog＂JS＂:Goto K:

LbI 9:Porg＂DX＂:LbI L:Prog”QX”:LbI M:2→F:90→Z[1]: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto L:Z=-3=>Goto X: Prog＂SD1＂: 0.5→A:“CQHD＂?A:“X0＂?X:＂Y0＂?Y:0→M=＂M0＂?M:M→Z[8]:A→Z[15]:Prog＂5SD＂： Goto M:

LbI X:Mat F◢ Goto 0

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

程序名：3FBX

Prog”THB”:D→P:Prog”GD”: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[4]: Prog “W1”:If Z[4]<0:Then –Z[4] →G:Goto W:Else Z[4] →G:Goto T:

LbI W:Z[8]+Z[9]→A: If G>A:Then Goto 1:Else If G>Z[8]:Then Goto 2:Else Goto 3:IfEnd:

LbI 1:L+Z[10]+Z[11]+Z[12]+(G-A)×Z[7]+Z[9]×Z[6]+Z[8]×Z[5] →S:Goto Z:

LbI 2:L+Z[10]+Z[11]+(G-Z[8])×Z[6]+Z[8]×Z[5] →S:Goto Z:

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

LbI T:L+Z[17]→T:If G>Z[15]:Then (T+Z[16]+(G-Z[15])×Z[14]+Z[15]×Z[13])→S:Goto Z:Else (T+G×Z[13])→S:Goto Z:

LbI Z

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]:If Z[8]>Z[10]:Then Goto R:Else Goto S:IfEnd:
LbI R: √((Z[13]-Z[9]) ²+(Z[8]-Z[5]) ² )- Z[4]-Z[15] →L:Goto L:LbI S: Z[4]-Z[6] →S: √(S ²-(Z[7]-Z[5]) ² ) ×S÷Abs(S)→T:Abs(Z[13]-Z[9])-T→T:√(T ²+(Z[8]-Z[7]) ² )- Z[6]-Z[15] →L:Goto L:LbI L: Fix 2:”  L0=”: Locate 6,4,L：

Prog”ZD”:“    H0=”: Locate 6,4,Z[8]-H◢

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

程序名：JS

X：Y：Z[11]→K：Z[12]→L：Pol(X-K, Y-L):IF J<0:Then J+360→J:IFEnd:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J: Fix 4:” FWJ=”: Locate 6,4,J：

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

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

程序名： GD

1→S: Prog “G1”:Z-C→E:(B-A)*E/S+A→L:

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

程序名：THB

If Q>1:Then Goto J: Else 1÷P→Ｃ：(P-R)÷(2HPR) →Ｓ：180÷Π→E：If F=1:Then Abs(Ｚ－0) →W：Prog "Ａ"：Ｇoto 2:Else Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 2: IfEnd:

LbI J: If F=1:Then  Prog "Z"：Ｇoto 1:Else Prog ＂ZX＂：Ｇoto 2: IfEnd:

LbI 1:I+D×COS(Z[2]+Z[1]) →X: J+D×Sin(Z[2]+Z[1]) →Y: LbI 2

 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→Ｄ：Lbl 0：Prog "Ａ"： T+QEW(C+WＳ) →Ｌ： (J-Y)cos(L)-(I-X)sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto 1：Else W+Ｄ→W:Goto 0: IfEnd:←┘
Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］+90) →D

9. 交点法正算子程序(Z)

程序名：Z

H²÷R÷24-H^∧(4) ÷2688÷R^∧(3)→A:H÷2-H^∧(3) ÷240÷R²→B:（（H²-N²）÷24÷R）÷Sin(Abs(P))-((H^∧(4)-N^∧(4))/2688/R^∧(3)) ÷Sin(Abs(P))→E:(R+A)tan(Abs(P) ÷2)+B-E→T:P÷Abs(P) →W:0→M:H→C:

If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 2: IfEnd:

If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:Goto 4:IfEnd:

If Z≤O-T+ΠR×Abs(P) ÷180+H÷2-N÷2: Then 180(Z-O+T-0.5H) ÷R÷Π→S : A+R(1-Cos(S))→B H÷2-H^∧(3) ÷240÷R²+Rsin(S)→A:R→M:G+WS→Z[2]:Goto 4: IfEnd:

O-T+ΠR×Abs(P)÷180+H÷2+N÷2-Z→S:(R+N²÷R÷24-N^∧(4)÷2688÷R^∧(3))tan(Abs(P) ÷2)+N÷2-N^∧(3) ÷240÷R²+E→T :N→H: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:Goto 3:

LbI 4:U+(A-T)cos(G)-WBsin(G)→I:V+(A-T)Sin(G)+WBcos(G) →J: Goto 3:

LbI 2:U+Scos(Z[2])→I:V+Ssin(Z[2]) →J: LbI 3:C→H

10. 交点法缓和段转化子程序(HX)

程序名：HX

S-S^∧(5) ÷40÷R²÷H²+S^∧(9) ÷3456÷R^∧(4) ÷H^∧(4)→A:S^∧(3) ÷6÷R÷H-S^∧(7) ÷336÷R^∧(3) ÷H^∧(3)+S^∧(11) ÷42240÷R^∧(5) ÷H^∧(5)→B:90S²÷Π÷R÷H→K:RH÷S→M

11. 交点法反算子程序(ZX)

程序名：ZX

Z:0→D:LbI 0:Prog “Z”:Pol(X-I,Y-J):J-Z[2] →J:Isin(J) →S:Icos(J) →I:If Abs(I)<0.1:Then Z+I→Z:S→D:Goto 2:Else Goto 1: LbI 1:If M=0:Then Z+I→Z:Goto 0:Eles Pol(M-WS,I):(JMΠ)/180→I:Z+I→Z:Goto 0:IfEnd

LbI 2

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

程序名：H

Prog “S1”:C-T→F:Z-F→S:C+T→E:G-TI→Q:If T=O:Then Q+SI→H:Goto 0:Else If Z2÷2÷R→H:Goto 0:

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

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

程序名：I

If Z[3]=1:Then Prog “I1”:Goto 1:Else Prog “I2”:Goto1: IfEnd:

LbI 1: If W=1:Then Goto Z:Else Goto X: IfEnd

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

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

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

14．导线点子程序（DX）

程序名：DX

Z[11] →K:Z[12] →L:“XZ”?K:”YZ”?L:K→Z[11]:L→Z[12]

15．线路选择子程序(线路选择输0时。则输曲线参数（QX）

程序名：QX

1→A:”QX:X1=1,X2=2”?A:A→Z[3]:

If A=0:Then Goto 1:Else Goto 2: IfEnd:

LbI 1:”JDO”?O:”XO”?U:”YO”?V:”FW”?G:”LS”?H:?P:?R:”J=2,3;X=(0,1,-1)”?Q:If Q=2:Then H→N:Goto 2:Else If Q=3:Then “LS”?N:LbI 2

16．线路中线元段判别子程序（KM）

程序名：KM

If Z[3]=0:Then Goto 0:Else If Z[3]=1:Then  Prog “X1”:Goto 0:Else Prog “X2”:Goto 0: IfEnd: LbI 0

17．坐标计算参数转化子程序（F）

程序名：F

Mat F[1,1]→O: Mat F[1,2]→U: Mat F[1,3]→V: Mat F[1,4]→G: Mat F[1,5]→H: Mat F[1,6]→P: Mat F[1,7]→R: Mat F[1,8]→Q：Q=3=>Mat F[1,9]→N

18.桥梁锥坡放样子程序（ZP）

程序名：ZP

√(Z[6]²（1-Y²/Z[7]²）) →X：Z[8] →Z:Prog”GD”:If D<0:Then L+X→D:Else –L-X→D:IfEnd:Z[8]+Y→Z:D:1→F:90→Z[1]:Prog”KM”:Prog”THB”:Prog”XY”:Prog”JS”

19．显示子程序（XY）

程序名：XY

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

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

程序名：ZD

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

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

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

①-1程序名：X1（线路1坐标计算要素程序）

If  Z≤26615.555:Then [[25900,11587.421,1847.983, 101^。09’23.1”,715.555,1×10⁴⁵, 1×10⁴⁵, 0]]→Mat F:Goto 0: IfEnd:

If Z≤26915.555:Then [[26615.555,11448.97,2550.016,101^。09’23.1”,300,1×10⁴⁵,1800,1]]→Mat F:Goto 0:IfEnd:

LbI 0: Prog”F”

①-2程序名：X2（线路2坐标计算要素程序）

If  Z≤122269.856:Then [[121656.952, 2603848.019, 508351.147, 98°53′22.6″,660, 41°47′44.1″, 1415.097，3，300]]→Mat F:Goto 0: IfEnd:

If Z≤125115.9:Then [[123984.982, 2601974.464, 509885.441, 140°41′06.8″,700, －39°31′43.7″,2800，3，400]]→Mat F:Goto 0:IfEnd:

LbI 0: Prog”F”

说明：1、交点法：If Z≤交点HZ点桩号：Then[[交点桩号，交点X坐标，交点Y坐标，前交点至止交点方位角，交点前段缓和曲线长度，交点总偏角，圆半径，3，交点后段缓和曲线长度，]] →Mat F:Goto 0: IfEnd:（如对称缓和曲线，圆半径后输，2后不用输后段缓和长，总偏角分正负，左偏为负，右偏为正）

2、线元法：If Z≤本段线元终点桩号:Then [[本段线元起点桩号,线元起点X坐标, 线元起点Y坐标,线元起点切线方位角,线元长度，线元起点半径,线元终点半径, 线元判别]]→Mat F:Goto 0:IfEnd:

(线元判别及线元半径见后说明)
②-1程序名：S1(线路1高程竖曲线要素子程序)

If Z[3]=1:Then Goto 1: Else Prog “S2”:Goto 0: IfEnd:

LbI 1:If Z≤26157.8:Then -200000→R:157.8→T:26000→C:37.1→G:0.01222→I:Goto 0:IfEnd:

If Z≤27421.915:Then 300000→R:171.915→T:27250→C:32.65→G:-0.00356→I:Goto 0:IfEnd:

If Z≤27889.029:Then 1000000→R:134.029→T:27755→C:36.64→G:0.0079→I:Goto 0:IfEnd:

LbI 0

②-2程序名：S2(线路2高程竖曲线要素子程序)

If Z≤183.007:Then 1365→R:20.475→T:162.532→C:46.1→G:0.003→I:Goto 0:IfEnd:

If Z≤321.264:Then -1200→R:38.732→T:282.532→C:50.175→G:0.033→I:Goto 0:IfEnd:

LbI 0

程序字母说明：C-竖曲线交点桩号；G-交点桩号高程（未竖曲线调整的）；T-竖曲线切线长(标段结尾或开头没有竖曲线的输0)；R-竖曲线半径（分正负：凹曲线为正，凸曲线为负）；I－竖曲线前纵坡

③-1程序名：I1（线路1高程超高参数子程序）

1.5→K:2→W:If D<0:Then Goto L:Else Goto R:IfEnd:

LbI L:If Z≤26615.555:Then 0→S:-0.02→M:Goto 0:IfEnd:

If Z≤26735.555:Then 120→S:26615.555→C:-0.02→M:0.02→N:Goto 0:IfEnd:

If Z≤26795.555:Then 60→S:26735.555→C:0.02→M:0.04→N:Goto 0:IfEnd

LbI R: If Z≤26735.555:Then 0→S:-0.02→M: Goto 0:IfEnd

If Z≤26795.555:Then 60→S:26735.555→C:-0.02→M:-0.04→N:Goto 0:IfEnd

If Z≤27436.951:Then 0→S:-0.04→M: Goto 0:IfEnd

LbI 0

③-2程序名：I2（线路2高程超高参数子程序）

0.5→K:1→W:If D<0:Then Goto L:Else Goto R:IfEnd:

LbI L:If Z≤100:Then 0→S:-0.015→M:Goto 0:IfEnd:

If Z≤110:Then 10→S:100→C:-0.015→M:-0.02→N:Goto 0:IfEnd:If Z≤343.665:Then 0→S: -0.02→M: Goto 0:IfEnd

LbI R: If Z≤100:Then 0→S:-0.015→M: Goto 0:IfEnd

If Z≤110:Then 10→S:100→C:-0.015→M:-0.02→N:Goto 0:IfEndIf Z≤375.665:Then 0→S:-0.02→M: Goto 0:IfEnd

LbI 0

字程序中字母表示说明：

K－中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0）；W－超高方式参数（W=1为一般直线方式超高，W=2为三次抛物线方式超高）;S－超高渐变段距离（不是渐变段则输入0）；C-超高渐变段起点桩号（不是渐变段，无需输入）；M－超高段起点横坡，N-超高渐变段终点横坡（不是渐变段，无需输入）。

④-1程序名：G1(线路1路基标准半幅宽度参数子程序)

If Z[3]=1:Then Goto 1:Else Prog “G2”:Goto 0: IfEnd

LbI 1:If D<0:Then Goto L:Else Goto R:IfEnd:

LbI L:If Z≤28110.727:Then Z→C:17.25→A:Goto 0:IfEnd:

If Z≤28200.727:Then 28110.727→C:17.25→A:21.25→B:90→S:Goto 0:IfEnd

LbI R: Z≤27927.478:Then Z→C:17.25→A: Goto 0:IfEnd

If Z≤28172:Then 27927.478→C:17.25→A:27.031→B:244.522→S:Goto 0:IfEnd

LbI 0

④-2程序名：G2(线路2路基标准半幅宽度参数子程序)

If D<0:Then Goto L:Else Goto R:IfEnd:

LbI L:If Z≤69.998:Then Z→C:28.25→A:Goto 0:IfEnd:

If Z≤82.402:Then 69.998→C:28.25→A:25.545→B:12.404→S:Goto 0:IfEnd

LbI R: Z≤69.998:Then Z→C:17.45→A: Goto 0:IfEnd

If Z≤80.367:Then 69.998→C:17.45→A:16.787→B:10.369→S:Goto 0:IfEnd:LbI 0

字程序中字母表示说明：

C－宽度渐变段起点桩号（不是渐变段C=Z）；A－宽度渐变段起点宽度; B－宽度渐变段终点宽度（不是渐变段，无需输入）；S-宽度渐变段距离（不是渐变段，无需输入）。

⑤-1程序名：SD1(线路1隧道参数子程序)

If Z[3]=1:Then Goto 1: Else Prog “SD2”:Goto 0:IfEnd:

LbI 1:8.75→Z[4]:-1.1→Z[5]:4.77→Z[6]:1.47→Z[7]:-0.25→Z[9]: 51^。28’57.1”→Z[10]:

LbI 0

⑤-2程序名：SD2(线路2隧道参数子程序)

5.43→Z[4]:1.634→Z[5]:7.93→Z[6]:1.634→Z[7]: 0→Z[9]: 90→Z[10]

字程序中字母表示说明：

Z[4]－隧道上拱半径；Z[5]－隧道上拱圆心至设计面高度；Z[6]－隧道中腰部半径；Z[7]－中腰圆心至设计面高度；Z[9]－设计隧道中线与设计路基中线偏移值，左为负数，右为正数；Z[10]－上部拱跨隧道半幅角度；

⑥-1程序名：W1(线路1路基填挖边坡参数子程序)

If Z[3]=1:Then Goto 1: Else Prog “W2”:Goto 0:IfEnd:

LbI 1:0.75→Z[5]:1→Z[6]:1.25→Z[7]:10→Z[8]:10→Z[9]:2.6→Z[10]:2→Z[11]:2→Z[12]:1.5→Z[13]:1.75→Z[14]:8→Z[15]:2→Z[16]：LbI 0

⑥-2程序名：W2(线路2路基填挖边坡参数子程序)

1→Z[5]:1→Z[6]:1.25→Z[7]:10→Z[8]:10→Z[9]:2.6→Z[10]:1.5→Z[11]:1.5→Z[12]:1.5→Z[13]:1.75→Z[14]:8→Z[15]:2→Z[16]

字程序中字母表示说明：

Z[5]－挖方第一阶边坡边率；Z[6]－挖方第二阶边坡边率；Z[7]－挖方第三阶边坡边率；Z[8]－挖方第一阶高度；Z[9]－挖方第二阶高度；Z[10]－挖方路基碎落台及水沟宽度；Z[11]－挖方第二台阶平台宽度；Z[12]－挖方第三台阶平台宽度；

Z[13]－填方第一阶边坡边率；Z[14]－填方第二阶边坡边率; Z[15]－填方第一阶高度；Z[16]-填方第二台阶平台宽度。（注：本程序只做出挖方三个台阶，填方二个台阶，如需增加，先需在程序THB和4FBZ程序中增加变量。再如一标段有坡率及坡高不一样时，可以照其它参数程序一样，用判别语句。）

三、使用说明
1、规定
       (1) “KM”为所求点桩号，反算时为输入大概桩号 

       (2) 当所求点位于中线时，Ｄ=0；当位于中线左铡时，Ｄ取负值；当位于中线中线右侧时，Ｄ取正值。
       (3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。（在用交点法时，P子母代表偏角）
       (4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。（交点法为圆半径）
       (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。
    (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。

(7) Q值是判别用采用线元法还是交点法。交点法值为2或3，2为对称缓和曲线段交点法，3为不对称缓和段交点法。线元法，根据线元段取值，直线段取0，缓和段和圆曲线段，根据左偏取-1,右偏取1.
    (8) 为了区别字母O及数子0，特把字母0加粗。
2、输入与显示说明
       输入部分：

＂A:XY=1， ZD=2 ，GC=3， GD=4， BP=5， FM=6， ZP=7， JS=8， SD=9＂?   输入:1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序

XZ？YZ？ 为置仪点坐标，第一次运行输一次，以下运行不需再输入，下次再运行此程序调上次输值，如需改，则输入，不需改，则按确认键。

“QX:X1=1,X2=2”?选择经路，坐标计算中输入0值，变为输入线元段曲线要素。输1为第一条线路。输2为第二条线路，本程序暂设计实例为2条线路。

ＫＭ？正算时所求点的里程（反算输入大概桩号）输入-1，返回输入选择计算类型，输入-2,返回选择线路，输入-3，调出本段线元参数，以矩阵显示，再运行从头开始。
     Ｄ ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零)    

     X0 ？反算时所求点的X坐标（放样程序中实测X坐标）
     Y0 ？反算时所求点的Y坐标（放样程序中实测Y坐标）
显示部分：

L?  涵洞放样程序中涵距中心桩号前后距离,前为正,后为负.

M0?  边坡放样程序中原地面标高输入

H-B？计算面至路面高差（默认路面为0）

PJ1? PJ2? 涵洞计算中第一个夹角同PJ。第二夹角为边线至路前进方向夹角。(同理适合在桥梁中斜交桥,平行布置中,桥台桩基坐标计算)默认值均为90度.

TH-GH？边坡放样中填方超放宽值，默认值为0.5m.

＂LD:Z-,Y+＂? 桥梁锥坡向左右方向边长，左为负数，右为正数。

＂LR＂? 锥坡向路线前进或向后退方向边长。

 ＂Z0＂? 锥坡顶边桩号

输出部分
    X=***    正算时，计算得出的所求点的X坐标
    Y=***    正算时，计算得出的所求点的Y坐标

FWJ=***   正算时，计算得出的所求点的至置仪点方位角

S=***   正算时，计算得出的所求点的至置仪点距离

ＫＭ=***    反算时，计算得出的所求点的里程
      Ｄ=***    反算时，计算得出的所求点的边距

H=***      所求点位置设计路面顶标高

I=***      所求点位置设计路面横坡（D输0时为，本段路基纵坡）

SJLG=***    所求点位置路基设计半幅标准宽度

L0=***     边桩放样程序中实测点至设计边坡点距离，正向内移，负向外移。(隧道程序中为超欠挖值，正为超挖，负为欠挖)

TW=***     边桩放样程序中，实测放样边坡点至止桩号设计顶填挖高度值

H0=***      隧道放样程序中测量点至设计面高度

四、结束语

1、本套程序实例线路给二条，如标段像匝道有多条线时，同理增加。

2、由于本人没做过隧道，隧道程序只是参照本项目另一个标的图纸所做，如有不同，可以调整参数。原理应是一样的。