5800计算器公路测量常用程序

5800计算器公路测量常用程序一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序构成。重要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型.二、源程序1.主程序1:一般放样反算程序(正算坐标、放样点至置仪点方位角及距离;反算桩号及距中距离)程序名:1Z-XYL 0：orm 2=1：(正反算鉴别,F1正算,F=反算，也可以改F前加?，改为变量)Z1=90（与路线右边夹角）ProgTH:F=Goo:F=2=oto b 1：ix3： X:Loce ,4， Y:Locate ,4，r3JS”:t:Lb :Fix3： KM:Locate ,4，：Locate 6,4,Doto0主程序:高程序横坡程序（设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D：rg”H”:Fix 3:”H”:Lcate 6，4,“ I=”: cate6,4,IGoto 03主程序3:极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：3JS:Y：2812K(置仪点X坐标)224354L(置仪点Y坐标,都是手工输入,也可以建导线点数据库子程序，个人觉得太麻烦）Y-LE:X-KF:Pol(，E):F0：Then J+6J:In()+.nt(0Fra（J)+0.006Fra（Fac(J) J：(不习惯小数点后四位为角度显示的，也可以用命令JDMS来直接显示) i 4:”WJ”:Lcte ,（不习惯小数点后四位为角度显示的，也可以用命令DS来直接显示)ix3:”=”:Lcte6,4,I.主程序4:涵洞放样程序(由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)(销售与维修 陀螺全站仪、超站仪全站仪经纬仪垂准仪 水准仪对讲机标线仪。 钢精扫描仪 测厚仪 电火花检测仪金属探测仪 gs系统 测距仪 罗盘 张博电话)程序名:JHXYLbI :Nr 20Z（涵洞中心桩与右边夹角,手工输入,也可以修改成前面加?后变为变量):Prg”TB”:?L:Z2-Z1 E:XLcos（E)X：Y+Lsin(E）Y:Fi 3: =:cae 6,4, Y=:Le ,4，rog3JS”:Got 0:5.主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度)程序名：5FBXLbI 0:Norm 2： 8imZ：2F:90Z1:Po “B”:”M0”？M:MZ4:DZ3:Prog”GD”:LZ：If D0:Then.75-LD:Goto H:Ele -.7:Goto H:IfEndLbI H：og”:H-0.03-4 Z5：Z6L:If Z5Z10：The Goto 2:Else ot3：Ifnd:LbI 1:L+Z12+Z3+Z14+(-A)Z911Z8Z10Z7:Gto :Lb :L+12+13+(-Z10)Z8Z17：Got :LI :L+Z1GZ7:Goo z:LbIT:L+0.5:I GZ7:The (N+Z18(G17)Z1+Z7Z5)S:o ：se (+15)S:ot z:LI Z:D：Fix ：Abs()-ST：”L0=”:L Locte 6,4,TKM：Lcate 6,4,Z D=：oce 6，4,“TW=”： Lcae 6,4，Z5oto0.主程序6:路基原则半幅宽度计算程序（对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L）程序名:6GPro “G0”CE:(-A)/+AL:L:坐标计算次程序（B）程序名：THB1imZ:K?Z：PrgP:(P-R)（P） S： 180：=1=Got 1:=2=Got 2Lbl 1：?： Abs(O):Prg :X：Y:Got 3LbI2:X:YJ:P ：:DD:Goo LbI 3:FF=1en X:Y：Ele ： . 正算子程序(）程序名：A0.A： 0.B：0.N 0.K： .L:0.5M: U+W(Aco(G+QKW(C+KWS)+Bco(+W(C+LW）)+Ncos(G+QEMW(C+WS)）+cs(QE(-L)W(+(1-L)WS）)+Aco(+QE(1-K)W(+(1-K）) :V+W(Asi(G+QKW(C+KS）)+Bsin(G+QEW（C+LW）+Nsin(G+QEW(CS)）Bsn(+QE（-)W（+（1L)S）)in（Q（1K)W(C+(1-）WS）)Y:G+QEW(C+WS)+Z2:XDco(2)X: Y+Din（Z2）9. 反算子程序(B)程序名:BG90T: Abs(Y-V）co(T）-(XU）sin（T）) W： D:l 0:Pro A： +E(C+W) ： (J-）s(L)-(I-X）sin(L)：IF Abs（D)0.01:The Goto1：Ese W:Got0Lbl 1：0:rog ：(JY）sin(Z2) D:0高程计算子程序（H)程序名:HPog“S0”：R:T:C:：CF:-FL:C+E:G-Q:ITO:e I:Goto 0:E IfZGto ：=2=Goto 1:LbI 0：If L=0：Tn bs()MV:Goto 2:ls Ab(D)（N-）(ZC)L+)V:Goto :Ifn:LbI1:If =0：TheAs(D)MV:Goto2：Else Ab()(（3（(Z-C)L)-（(Z-C)L)()）(N-M）)+M)V:Gt2:IfEnd:LbI 2:Abs(D)E:I(EK):.数据子程序(附后示例)程序名:X0(坐标计算要素程序）fZ259 Ad Z26155:Thn25900:157.421U:87.93V:101。093.”G：15.55：11045P： 11045: 0Q:Got 0：IfEnd:IfZ2615.55 A Z215.555:Then 26615.55O:1448.97:2550.6V:101。923.1”G:300:1045: 180:1Q:Goo0:IfEnd:If 915555 And Z2731.95:Then 26915555O：138.792:2842.531:105。51.8”G：401.396:80:100R:1Q:Gt0:fnd:LbI 0:O:U:V:G:H:：R:Q:程序字母阐明：-线元起点桩号;U-起点X坐标；V-起点坐标；G-线元起点桩号切线方位角; 线元长度，P-线元起点曲率半径,R线元终点曲率半径,Q线元鉴别(以道路中线的迈进方向(即里程增大的方向）辨别左右;当线元往左偏时，=-;当线元往右偏时,Q；当线元为直线时，=)。程序名：O(高程竖曲线要素子程序）f Z2500 And Z2615.8:Then-0R:15.8T:00C:37.1：0.0122I:Goto 0:IfEn：IZ2617.8 nd Z2741915:Then30000R:17.15T:275C:32.65G:.0056I:Got 0:IE：I Z7421915 And 279.9：hn 000000：134029：25:.64G:.079I:to 0:IfEnd:LI 0:R:T:G:I:程序字母阐明：C-竖曲线交点桩号；G交点桩号高程（未竖曲线调节的)；竖曲线切线长;-竖曲线半径（分正负:凹曲线为正，凸曲线为负);I-竖曲线前纵坡程序名:I0（高程超高参数子程序）1.:2:f D:ThenGoto L:eGo R:Id:LbI L：f590 Ad261.555:Then L：-.0:Gto :Ind:If Z26615.555 And 2673.555:hen 1L:2665.55:0.02：0.0N：Goto0:IfEnd:If Z23555 AndZ2795.55:Then 6L:2635.555:0.02M:0.4：oto 0:IfEdf Z6795.55 Ad Z27436.951:The0L：004M: Goto 0:fEndI R:I Z25900nd Z2735.555:The 0:-0M:Goto :fEnIf Z26735.555 And Z2679.5:Thn 6：6735.555C:-0M：-0.04N:oto 0:IdIfZ679555An2436.51:hen0L:-0.04: ot 0:IEdb 0 K:W:：C：M:N:字程序中字母表达阐明：(销售与维修 陀螺全站仪、超站仪 全站仪经纬仪 垂准仪 水准仪 对讲机 标线仪。 钢精扫描仪 测厚仪 电火花检测仪 金属探测仪 gs系统 测距仪 罗盘 张博电话)中央分隔带半幅宽(中桩标高至中桩中线距离，无分隔带则为0）;W-超高方式参数（W=1为一般直线方式超高，W为三次抛物线方式超高);L-超高渐变段距离(不是渐变段则输入0)；C-超高渐变段起点桩号(不是渐变段,无需输入）;M-超高段起点横坡，N-超高渐变段终点横坡(不是渐变段,无需输入)。程序名:（路基原则半幅宽度参数子程序)IDY.=2: Y = Z?选择计算方式，输入1表达进行由里程、边距计算坐标 ;输入表达由坐标反算里程和边距。Z为线元边桩与中线右夹角。KM？正算时所求点的里程(反算输入大概桩号) ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零） X0?反算时所求点的坐标(放样程序中实测X坐标）?反算时所求点的Y坐标（放样程序中实测坐标)显示部分:L?涵洞放样程序中涵距中心桩号前后距离,前为正，后为负M?边坡放样程序中原地面标高输入=*正算时,计算得出的所求点的坐标Y=*正算时，计算得出的所求点的Y坐标FJ=* 正算时,计算得出的所求点的至置仪点方位角（在3JS程序中应输入、Y坐标值于、L)S=* 正算时,计算得出的所求点的至置仪点距离KM=*反算时,计算得出的所求点的里程D*反算时，计算得出的所求点的边距H=*所求点位置设计路面顶标高*所求点位置设计路面横坡L0=* 边桩放样程序中实测点至设计边坡点距离，正向内移