for commercial use
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
Lbl 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 :
Lbl 1:Prog＂DX＂:LbI A:Prog＂QX＂:90→B:＂PJ1＂?B:B→C:＂PJ2＂?C:B→
Z[1]:C→Z[8]:Lbl B:1→F:＂KM＂?Z:Z= -1=>Goto 0:Z=-2=>Goto A:Z=-3=>Goto X:Prog＂KM＂:?D:Porg＂THB＂:0→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
Lbl 2:2→F:90→Z[1]:Prog＂QX＂: Lbl C:＂DKLC＂?Z:
Z=-1=>Goto 0:Z=-2=>Goto 2:Z=-3=>Goto X:Prog＂KM＂: ＂X0＂?X: ＂Y0＂?Y:Prog＂THB＂:Porg＂ZD＂:Goto C
LbI 3:Prog＂QX＂:0→B:＂H-B＂?B:B→Z[9]:＂SXG＂?L:Lbl D:＂KM＂?Z: Z=-1=>Goto 0:Z=-2=>Goto 3:?D:＂ZS＂?P: Porg＂H＂:Fix 3:＂SJG=＂:Lcoate 6,4,H-Z[9]:＂SCG=＂:Lcoate 6,4,F:＂I=＂:Locate 6,4,I×100: If U<0:Then ＂W=＂: Locate 6,4, U: Else＂T=＂: Locate 6,4, U : IfEnd◢ Goto D Lbl 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
Lbl 5:Prog＂QX＂:0.5→B:＂TH-GD＂?B:B→Z[17]:Lbl 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
Lbl 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 Lbl 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 Lbl 8:Prog＂DX＂:Lbl K:?X:X=-1=>Goto 0:X=-2=> Goto 8:?Y:Prog＂JS＂:Goto K
Lbl 9:Porg＂DX＂:Lbl L:Prog”QX”:Lbl 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: Lbl 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:
Lbl H:Prog“H”:H-0.03-Z[4] →Z[4]: Prog “W-1”:If Z[4]<0:Then –Z[4] →G:Goto W:Else Z[4] →G:Goto T:
Lbl W:Z[8]+Z[9]→A: If G>A:Then Goto 1:Else If G>Z[8]:Then Goto 2:Else Goto 3:IfEnd:
Lbl 1:L+Z[10]+Z[11]+Z[12]+(G-A)×Z[7]+Z[9]×Z[6]+Z[8]×Z[5]→S:Goto Z: Lbl 2:L+Z[10]+Z[11]+(G-Z[8])×Z[6]+Z[8]×Z[5]→S:Goto Z: Lbl 3:L+Z[10]+G×Z[5] →S:Goto Z:
Lbl 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: Lbl 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:
Lbl R: √((Z[13]-Z[9]) 2+(Z[8]-Z[5]) 2 )- Z[4]-Z[15] →L:Goto L:Lbl S: Z[4]-Z[6] →S: √(S 2-(Z[7]-Z[5]) 2 )×S÷Abs(S)→T:Abs(Z[13]-Z[9])-T→T:√(T 2+(Z[8]-Z[7]) 2 )- Z[6]-Z[15] →L:Goto L:Lbl 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:“JL=”:Locate 6,4,I◢
JS(二式)
X：Y：Z[11]→K:Z[12]→L:Pol(X-K, Y-L):IF J<0:Then J+360→J:IFEnd Fix 3:“JL=”:Locate 6,4,I: J▲DMS◢
5．路基宽度子程序：
路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)
程序名： GD
1→S: Prog “G-1”:Z-C→E:(B-A) ×E/S+A→L:
6．坐标计算次程序
程序名：THB
If Q>1:Then Goto J: Else 1÷P→C:(P-R)÷(2HPR) →S:180÷π→E:If F=1:Then Abs(Z-O) →W:Prog \"A\":Ｇoto 2:Else X→I:Y→J:Prog ＂B＂:O＋Ｗ→Z:D→D:Ｇ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+KWS))+Bcos(G+QELW(C+LWS))+Ncos(G+QEMW(C+MWS))+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+KWS))+Bsin(G+QELW(C+LWS))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WS))) →Y:
G+QEW(C+WS)→Z[2]:X+Ｄcos（Z[2]+ Z[1]）→Ｘ: Y+Ｄsin（Z[2]+ Z[1]）→Ｙ
8. 线元法反算子程序(Ｂ)
程序名：B
G-90→T：Abs((Y-V)cos(T)-(X-U)sin(T))→W：0→D：Lbl 0：Prog \"A\"： T+QEW(C+WS)→L：(J-Y)cos(L)-(I-X)sin(L)→D：IF Abs(D)<0.01:Then Goto 1：Else W+D→W:Goto 0: IfEnd:
Lbl 1:0→D：Prog \"A\"：(J-Y)÷sin(Z[2]+90) →D
9. 交点法正算子程序(Z)
程序名：Z
H2÷R÷24-H∧(4)÷2688÷R∧(3)→A:H÷2-H∧(3)÷240÷R2→B:（（H2-N2）÷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÷R2+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
2
∧
(4)÷2688÷R∧(3))tan
(Abs(P)÷2)+N÷2-N∧(3)÷240÷R2+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: Lbl 4:U+(A-T)cos(G)-WBsin(G)→I:V+(A-T)Sin(G)+WBcos(G)→J: Goto 3: Lbl 2:U+Scos(Z[2])→I:V+Ssin(Z[2])→J: LbI 3:C→H
10. 交点法缓和段转化子程序(HX)
程序名：HX
S-S∧(5)÷40÷R2÷H2+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:90S2÷π÷R÷H→K:RH÷S→M
11. 交点法反算子程序(ZX)
程序名：ZX
Z:0→D:Lbl 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 “S-1”:N-I→A:A÷Abs(A→W:R×Abs(A÷2→T:If Z If Z[3]=1:Then Prog“I-1”:Goto 1:Else If Z[3]=2:Then Prog“I-2” :Goto1: Else If Z[3]=3:Then Prog“I-3” :Goto1: Else If Z[3]=4:Then Prog“I-4” :Goto1: Else If Z[3]=5:Then Prog“I-5” :Goto1: Else Prog“I-6”:Goto1: IfEnd: Lbl 1: If W=1:Then Goto Z:Else Goto X: IfEnd : Lbl Z:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷S+M)→V:Goto 2:IfEnd: Lbl X:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×(((3((Z-C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M)→V:Goto 2:IfEnd: Lbl 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:“LX:XX-1,AX-2,BX-3,CX-4,DX-5,EX-6”?A:A→Z[3]: If A=0:Then Goto 1:Else Goto 2: IfEnd: Lbl 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:Lbl 2 16．线路中线元段判别子程序（KM） 程序名：KM If Z[3]=0:Then Goto 0:Else If Z[3]=1:Then Prog “XX-1”:Goto 0: Else If Z[3]=2:Then Prog “AX-2”:Goto 0: Else If Z[3]=3:Then Prog “BX-3”:Goto 0: Else If Z[3]=4:Then Prog “CX-4”:Goto 0: Else If Z[3]=5:Then Prog “DX-5”:Goto 0: Else Prog “EX-6”: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=2=>H→N:Q=3=>Mat F[1,9]→N 18.桥梁锥坡放样子程序（ZP） 程序名：ZP √(Z[6]2（1-Y2/Z[7]2）) →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）和（ZD） ①程序名：XY Fix 3:＂XS=＂:Locate 6,4,Ｘ：＂YS=＂:Locate 6,4,Ｙ： ②程序名：ZD Fix 3:＂KM=＂:Locate 6,4,Z：＂ D=＂:Locate 6,4,Z： 20．数据子程序(附后示例) ①-1程序名：XX-1（线路1坐标计算要素程序） If Z≤26615.555:Then [[25900,11587.421,1847.983, 101。09’23.1”,715.555,1×1045, 1×1045, 0]]→Mat F:Goto 0: IfEnd: If Z≤26915.555:Then [[26615.555,11448.97,2550.016,101。09’23.1”,300,1×1045,1800,1]]→Mat F:Goto 0:IfEnd: LbI 0: Prog“F” ①-2程序名：AX-2（线路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: Lbl 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程序名：S-1(线路1高程竖曲线要素子程序) If Z[3]=1:Then Goto 1: Else If Z[3]=2:Then Prog “S-2”:Goto 0: Else If Z[3]=3:Then Prog “S-3”:Goto 0: Else If Z[3]=4:Then Prog “S-4”:Goto 0: Else If Z[3]=5:Then Prog “S-5”:Goto 0: Else Prog “S-6”:Goto 0: IfEnd: Lbl 1:If Z≤26157.8:Then 26000→C:37.1→G: 200000→R:0.01500→I:0.01222→N:Goto 0:IfEnd: If Z≤27421.915:Then 27250→C:32.65→G:300000→R: 0.01222→I:-0.00356→N:Goto 0:IfEnd: If Z≤27889.029:Then 27755→C:36.64→G:1000000→R:-0.00356→I:0.0079→N:Goto 0:IfEnd: Lbl 0 ②-2程序名：S-2(线路2高程竖曲线要素子程序) If Z≤183.007:Then 162.532→C:46.1→G:1365→R:-0.0015→I: 0.003→N:Goto 0:IfEnd: If Z≤321.264:Then 282.532→C:50.175→G:1200→R:0.033→I: -0.021→N:Goto 0:IfEnd: Lbl 0 程序字母说明:If Z≤本段竖曲线终点桩号(即为竖曲线交点桩号+切线长度)；C-竖曲线交点桩号；G-交点桩号高程（未竖曲线调整的）；R-竖曲线半径；I－竖曲线前纵坡；N－竖曲线后纵坡 ③-1程序名：I-1（线路1高程超高参数子程序） 1.5→K:2→W:If D<0:Then Goto L:Else Goto R:IfEnd: Lbl 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: Lbl 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: Lbl 0 ③-2程序名：I-2（线路2高程超高参数子程序） 0.5→K:1→W:If D<0:Then Goto L:Else Goto R:IfEnd: Lbl 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: Lbl 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: Lbl 0 字程序中字母表示说明： K－中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0）；W－超高方式参数（W=1为一般直线方式超高，W=2为三次抛物线方式超高）；S－超高渐变段距离（不是渐变段则输入0）；C-超高渐变段起点桩号（不是渐变段，无需输入）；M－超高段起点横坡，N-超高渐变段终点横坡（不是渐变段，无需输入）。 ④-1程序名：G-1(线路1路基标准半幅宽度参数子程序) If Z[3]=1:Then Goto 1:Else If Z[3]=2:Then Prog “G-2”:Goto 0: Else If Z[3]=3:Then Prog “G-3”:Goto 0: Else If Z[3]=4:Then Prog “G-4”:Goto 0: Else If Z[3]=5:Then Prog “G-5”:Goto 0: Else Prog “G-6”:Goto 0: IfEnd: Lbl 1:If D<0:Then Goto L:Else Goto R:IfEnd: Lbl 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: Lbl 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:Lbl 0 ④-2程序名：G-2(线路2路基标准半幅宽度参数子程序) If D<0:Then Goto L:Else Goto R:IfEnd: Lbl 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: Lbl 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: Lbl 0 字程序中字母表示说明： C－宽度渐变段起点桩号（不是渐变段C=Z）；A－宽度渐变段起点半幅宽度; B－宽度渐变段终点半幅宽度（不是渐变段，无需输入）；S-宽度渐变段距离（不是渐变段，无需输入）。 ⑤-1程序名：SD1(线路1隧道参数子程序) If Z[3]=1:Then Goto 1: Else Prog “SD2”:Goto 0:IfEnd: Lbl 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]: Lbl 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程序名：W-1(线路1路基填挖边坡参数子程序) If Z[3]=1:Then Goto 1: Else If Z[3]=2:Then Prog “W-2”:Goto 0: Else If Z[3]=3:Then Prog “W-3”:Goto 0: Else If Z[3]=4:Then Prog “W-4”:Goto 0: Else If Z[3]=5:Then Prog “W-5”:Goto 0: Else Prog “W-6”:Goto 0:IfEnd: Lbl 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程序名：W-2(线路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，特把字母O 加粗；√为根号。 2、输入与显示说明 (1)输入部分： ＂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？为置仪点X、Y坐标，第一次运行输一次，以下运行不需再输入，下次再运行此程序 调上次输值，如需改，则输入，不需改，则按确认键。 “LX:XX=1,AX=2,BX=3,CX=4,DX=5,EX=6”?选择经路，坐标计算中输入0值，变为输入线元段曲 线要素。输1为第一条线路,输2为第二条线路^.本程序暂设计实例为6条线路。 KM？ 正算时所求点的里程（反算输入大概桩号→ DKLC）输入-1，返回输入选择计算类型， 输入-2,返回选择线路，输入-3，调出本段线元参数，以矩阵显示，再运行从头开始 D ？ 正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零) X0？Y0？ 反算时所求点的X、Y坐标（放样程序中实测X、Y坐标） (2)显示部分: L0? 涵洞放样程序中,涵距中心轴线前后距离,前为正,后为负. M0? 边坡放样程序中原地面标高输入 H-B？ 计算面至路面高差（默认路面为0） SXG？ 水准仪输入视线高（全站仪输入0） ZS？ 水准仪输入放样点中视读数（全站仪输入放样点的实测高程）。 PJ1? PJ2? 涵洞计算中第一个夹角同PJ。第二夹角为涵洞中轴线线与涵洞边线前进方向夹角。 (同理适合在桥梁中斜交桥,平行布置中,桥台桩基坐标计算)默认值均为90度. TH-GH？ 边坡放样中填方超放宽值，默认值为0.5m. ＂LD:Z-,Y+＂? 桥梁锥坡向左右方向边长，左为负数，右为正数。 ＂LR＂? 锥坡向路线前进或向后退方向边长。 ＂Z0＂? 锥坡顶边桩号 (3)输出部分: XS=*** 正算时，计算得出的所求点的X坐标 YS=*** 正算时，计算得出的所求点的Y坐标 FWJ=*** 正算时，计算得出的所求点的至置仪点方位角 JL=*** 正算时，计算得出的所求点的至置仪点距离 KM=*** 反算时，计算得出的所求点的里程 D=*** 反算时，计算得出的所求点的边距 SJG=*** 所求点位置设计路面顶标高(设计高) SCG=*** 所求点位置实测标高（实测高） I=*** 所求点位置设计路面横坡（D输0时为，本段路基纵坡） T=***或 W=*** 所求点位置距设计标高填或挖高度 SJLG=*** 所求点位置路基设计半幅标准宽度 L0=*** 边桩放样程序中实测点至设计边坡点距离，正向内移，负向外移。 (隧道程序中为超欠挖值，正为超挖，负为欠挖) TW=*** 边桩放样程序中，实测放样边坡点至止桩号设计顶填挖高度值 H0=*** 隧道放样程序中测量点至设计面高度 四、结束语 1、本套程序实例线路给二条，如标段像匝道有多条线时，同理增加。 2、由于本人没做过隧道，隧道程序只是参照本项目另一个标的图纸所做，如有不同，可以调整参数。原理应是一样的。 3、为了更好的开发计算器程序，本人特建一QQ群，欢迎各位测友加入，QQ群号是：24817026。 4、所有对程序有建议或问题的，加本人QQ后可以直接留言，由于工作原因，可能不能马上给予答复，敬请谅解！(加QQ为好友时请注明:计算器程序) 五、附注 1、主程序名：0ZCX 2、次程序:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度） 程序名：3FBX 3.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖值） 程序名：5SD 4：极坐放样计算程序(计算放样点至置仪点方位角及距离) 程序名： JS(一式) 5．路基宽度子程序: 路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L) 程序名： GD 6．坐标计算次程序（THB） 7. 线元法正算子程序(A) 8. 线元法反算子程序(B) 9. 交点法正算子程序(Z) 10. 交点法缓和段转化子程序(HX) 11. 交点法反算子程序(ZX) 12．高程计算子程序（H） 13.高程超高计算程序（I） 14．导线点子程序（DX） 15．线路选择子程序(线路选择输0时。则输曲线参数)（QX） 16．线路中线元段判别子程序（KM） 17．坐标计算参数转化子程序（F） 18.桥梁锥坡放样子程序（ZP） 19．显示子程序 ①程序名：(XY) ②程序名：(ZD) 20．数据子程序 ①-1程序名：XX-1（线路1坐标计算要素程序） ①-2程序名：AX-2（线路2坐标计算要素程序） ②-1程序名：S-1 (线路1高程竖曲线要素子程序) ②-2程序名：S-2 (线路2高程竖曲线要素子程序) ③-1程序名：I-1 （线路1高程超高参数子程序） ③-2程序名：I-2 （线路2高程超高参数子程序） ④-1程序名：G-1 (线路1路基标准半幅宽度参数子程序) ④-2程序名：G-2 (线路2路基标准半幅宽度参数子程序) ⑤-1程序名：SD1 (线路1隧道参数子程序) ⑤-2程序名：SD2 (线路2隧道参数子程序) ⑥-1程序名：W-1 (线路1路基填挖边坡参数子程序) ⑥-2程序名：W-2 (线路2路基填挖边坡参数子程序) 仅供个人用于学习、研究；不得用于商业用途。 For personal use only in study and research; not for commercial use. Nur für den persönlichen für Studien, Forschung, zu kommerziellen Zwecken verwendet werden. Pour l 'étude et la recherche uniquement à des fins personnelles; pas à des fins commerciales. только для людей, которые используются для обучения, исследований и не должны использоваться в коммерческих целях. 以下无正文 仅供个人用于学习、研究；不得用于商业用途。 For personal use only in study and research; not for commercial use. Nur für den persönlichen für Studien, Forschung, zu kommerziellen Zwecken verwendet werden. Pour l 'étude et la recherche uniquement à des fins personnelles; pas à des fins commerciales. только для людей, которые используются для обучения, исследований и не должны использоваться в коммерческих целях. 以下无正文 For personal use only in study and research; not for commercial use 因篇幅问题不能全部显示，请点此查看更多更全内容