|
FX5800计算器测量程序集2.0 版
新版本特点：1、优化原所有主程序，所有参变量（如导线点置仪点坐标、正反算选择、偏角、线路选择等），全部在程序头次显示一次，以后运行不需输入。运行中也可以返回再次选择线路、可以直接以矩阵形式调出线路参数。 2、坐标计算考虑了线元法与交点法相结合，即是一条线路也可以一段用线元法，一段用交点法。参数置放矩阵中，输入和可读性极好。 3、新增隧道断面欠超挖值放样计算 4、高程程序中考虑了初次输入线路选择、计算面与设计面高差，输出中加入显示本桩号路基标准宽度。 二、源程序 程序名:1ZD-XY 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:＂ ＂ Ｐ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:” Prog＂GD＂：“SJLG=”: Locate 6,4,L◢ 3．主程序3：涵洞放样程序（输入置仪点坐标。选择线路、输入路线右夹角、前进方向偏角、由涵中心桩号计算出各涵角坐标、计算放样点至置仪点方位角及距离) 程序名：3JH-XY 14→DimZ：Prog＂DX＂:LbI X:Norm 2: Prog＂QX＂：90→B：＂PJ1＂？B：B→C: ＂PJ2＂？C: B→Z[1]：C→Z[8]： LbI 0:Norm 2:1→F: “KM”?Z：If Z=-1:Then Goto X: ?D:Prog”THB”:0→L:“L0”?L:Z[2]+Z[1]-Z[8] →E: X+Lcos(E) →X:Y+Lsin(E) →Y: Fix 3:＂ ＂ Ｐrog＂6JS”:Goto 0: 4．主程序4:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度） 程序名：4FBX 17→DimZ：LbI B:Norm 2: Prog＂QX＂：0.5→B:“TH-GD”?B:B→Z[17]:LbI 0:Norm 2: 2→F:90→Z[1]: “KM”?Z：If Z=-1:Then Goto B: “X0”?X:“Y0”?Y: 0→M:“M0”?M:M→Z[4]:Prog”THB”:D→P:Prog”GD”:If D<0:then 0.75-l→d:goto="" h:else="" l-0.75→d:goto=""> 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=""> 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:Fix 2:Abs(P)-S→K:” Fix 3:＂ ＫＭ＝＂：Locate 6,4,Ｚ◢ ＂ Ｄ＝＂：Locate 6,4,P◢ Z[4]>0=>Z[4]+I(T-L) →Z[4]: “ Goto 0 5.主程序5.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入测量三维坐标，计算准确桩号及位置、计算欠超挖值） 程序名：5SD 15→DimZ：LbI B:Norm 2: Prog＂QX＂:LbI 0:Norm 2: 2→F:90→Z[1]: “KM”?Z：If Z=-1:Then Goto B: Prog“XD1”:” X0”?X:“Y0”?Y: 0→M:“M0”?M:M→Z[8]:Prog“THB”: D→Z[10]: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 S: Z[4]-Z[6] →S: √(S 2-(Z[7]-Z[5]) 2 ) →T:Abs(D-Z[9])-T→T:√(T 2+(Z[8]-Z[7]) 2 )- Z[6] →L:Goto L: LbI L: Fix 2:” Fix 3:＂ ＫＭ＝＂：Locate 6,4,Ｚ◢ ＂ Ｄ＝＂：Locate 6,4,Ｄ◢ Goto 0 6：极坐放样计算程序(计算放样点至置仪点方位角及距离) 程序名：6JS X：Y： Z[11]→K(置仪点X坐标) Z[12]→L（置仪点Y坐标） Pol(X-K, Y-L):IF J<0:then j+360→j:int(j)+0.01int(60frac(j))+0.006frac(60frac(j))="" →j:(不习惯小数点后四位为角度显示的，也可以用命令j◢dms◢来直接显示)="" fix="" 4:”="" fwj="”:" locate=""> Fix 3:” 7．路基宽度次程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L) 程序名： GD 1→S:If Z[3]=1:Then Prog “G1”:Goto 1:Else Prog “G2”:Goto 1: IfEnd LbI 1:Z-C→E:(B-A)*E/S+A→L: 8．坐标计算次程序（ＴＨＢ） 程序名：THB If Q=2:Then Goto J: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: 程序名：A 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]）→Ｙ 程序名：B 11. 交点法正算子程序(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: If Z If Z>L:Then 180(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]:Goto 4: IfEnd: Z-C→S:Prog “HX”:G+WK→Z[2]: 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: 12. 交点法缓和段转化子程序(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: 13. 交点法反算子程序(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=""> LbI 2: 14．高程计算子程序（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 Z LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:LbI 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-2((Z-C)÷S)∧(3))×(N-M))+M)→V:Goto 2:IfEnd: LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V: 16．导线点子程序（DX） 程序名：DX Z[11] →K:Z[12] →L:“XZ”?K:”YZ”?L:K→Z[11]:L→Z[12]: 17．线路选择子程序(线路选择输入0时。则手工输入曲线参数（QX） 程序名：QX 1→A:”QX:?=0,X1=1,X2=2”?A:A→Z[3]: If A=0:Then Goto 1:Else Goto 2: IfEnd: LbI 1:”ZO”?O:”XO”?U:”YO”?V:”FW”?G:”LS”?H:?P:?R:”J=2,X=(0,1,-1)”?Q:Goto 2: LbI 2: 18．线路中线元段判别子程序（KM） 程序名：KM If Z[3]=0:Then Goto 0:Else If Z[3]=1:Then LbI 0: 19．坐标计算参数转化子程序（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: 20．数据子程序(附后示例) ①-1程序名：X1（线路1坐标计算要素程序） If 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程序名：X2（线路2坐标计算要素程序） If If Z≤4050:Then[[3089.766,9708.017,5530.185,123。28’57.1”,300,-44。39’38”,2200,2]]→Mat F:Goto 0:IfEnd: …… LbI 0:Prog”F”: 程序字母说明：O-线元起点桩号(交点桩号)；U-起点X坐标（交点X）；V-起点Y坐标（交点Y）；G-线元起点桩号切线方位角（交点前一交点至现交点方位角）; Ｈ－线元长度（缓和曲线长度），Ｐ－线元起点曲率半径（偏角为正负，左偏为负，右偏为正），Ｒ－线元终点曲率半径（圆半径）,Q－线元判别(以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0)（交点法取值2）说明括内为交点法子母代表意思。。
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-竖曲线切线长；R-竖曲线半径（分正负：凹曲线为正，凸曲线为负）；I－竖曲线前纵坡 ③-1程序名：I1（线路1高程超高参数子程序） 1.5→K:2→W:If D<0:then goto="" l:else="" goto=""> 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=""> 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:IfEnd If 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 D<0:then goto="" l:else="" goto=""> 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=""> 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程序名：XD1(线路1隧道参数子程序) If Z[3]=1:Then Goto 1: Else Prog “XD2”: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程序名：XD2(线路2隧道参数子程序) 8.5→Z[4]:-1.15→Z[5]:4.5→Z[6]:1.52→Z[7]: 0.25→Z[9]: 55。20’51.6”→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[6]: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程序中增加变量。再如一标段有坡率及坡高不一样时，可以照其它参数程序一样，用判别语句。）
(7) Q值是判别用采用线元法还是交点法。交点法值为2。线元法，根据线元段取值，直线段取0，缓和段和圆曲线段，根据左偏取-1,右偏取1. 1．XZ？YZ？ 为置仪点坐标，第一次运行输一次，以下运行不需再输入，下次再运行此程序调上次输值，如需改，则输入，不需改，则按确认键。 2 .QX:X1=1,X2=2”?选择经路，坐标计算中输入0值，变为输入线元段曲线要素。输1为第一条线路。输2为第二条线路，本程序暂设计实例为2条线路。 3．PJ？路线中线与右边线夹角,默认为90度。 4．ＫＭ？正算时所求点的里程（反算输入大概桩号）输入-1，返回输入选择线路，输入-2,返回输入大概桩号、坐标反算桩号及距离，输入-3，调出本段线元参数，以矩阵显示，再运行从头开始。
L? M0? H-B？计算面至路面高差（默认路面为0） PJ1? PJ2? 涵洞计算中第一个夹角同PJ。第二夹角为边线至路前进方向夹角。 TH-GH？边坡放样中填方超放宽值，默认值为0.5m. 输出部分 FWJ=*** S=*** ＫＭ=*** H=*** I=*** SJLG=*** L0=*** TW=*** H0=*** |
|
|
