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

1、fx-5800计算器公路测量常用程序 一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型.二、源程序1.主程序1：一般放样反算程序(正算坐标、放样点至置仪点方位角及距离；反算桩号及距中距离)程序名:1zd-xylb1 0:norm 2f=1：(正反算判别，f=1正算，f=2反算,也可以改f前加？，改f为变量)z1=90（与路线右边夹角）progthb：f=1=goto 1:f=2=goto 2lb1 1:ix 3: =：locate 6,4, ：locate

2、6,4,rog3js”:goto 0:lb1 2:fix 3:：locate 6,4,：locate 6,4,oto 0主程序：高程序横坡程序(设计任意点高程及横坡)程序名：2gclbi 0:norm 2“km”?z:?d:prog”h”:fix 3:” h=”:locate 6,4,h“ i=”: locate 6,4,igoto 03.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：3jsx：y：1268123k(置仪点x坐标)2243545l（置仪点y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）y-le：x-kf：pol(f,e):if j0:th

3、en j+360j:int(j)+0.01int(60frac(j)+0.006frac(60frac(j) j:(不习惯小数点后四位为角度显示的，也可以用命令jdms来直接显示) fix 4:” fwj=”: locate 6,4,j(不习惯小数点后四位为角度显示的，也可以用命令jdms来直接显示)fix 3:” s=”:locate 6,4,i4主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名：4jh-xylbi 0:norm 290z1(涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)1f:prog”

4、thb”:?l:z2-z1 e:x+lcos(e) x:y+lsin(e) y:fix 3: =：locate 6,4, ：locate 6,4,rog3js”:goto 0:5主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5fbxlbi 0:norm 2: 18dimz:2f:90z1:prog “thb”:z:d:”m0”?m:mz4:dz3:prog”6gd”:lz6:if d0:then 0.75-ld:goto h:else l-0.75d:goto h:ifendlbi h:prog”h”:h-0.03

5、-z4 z5:z6 l:if z5a:then goto 1:else if gz10:then goto 2:else goto 3:ifend:lbi 1:l+z12+z13+z14+(g-a)z9+z11z8+z10z7:goto z:lbi 2:l+z12+z13+(g-z10)z8+z10z7:goto z:lbi 3:l+z12+gz7:goto z:lbi t:l+0.5n:if gz17:then (n+z18+(g-z17)z16+z17z15)s:goto z:else (n+gz15)s:goto z:lbi z:z3d:fix 2:abs(d)-st:”l0=”:l l

6、ocate 6,4,t：locate 6,4,：locate 6,4,“tw=”: locate 6,4,z5goto 06主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至l)程序名：6gdprog “g0”z-ce:(b-a)e/s+al:l:7坐标计算次程序（）程序名：thb18dimz：?z：prog 1p： (p-r)(2hpr) ： 180：=1=goto 1：=2=goto 2lbl 1：?： abs(o) w：prog ：x：oto 3lbi 2:：i：j：prog ：z：oto 3lbi 3:if then ：els

7、e ：8. 正算子程序()程序名：a0.1184634425a： 0.2393143352b：0.2844444444n 0.046910077k： 0.2307653449l：0.5m： 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(

8、g+qe(1-k)w(c+(1-k)w) y：g+qew(c+w)+：x+cos（）： y+sin（）9. 反算子程序()程序名：bg-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 0lbl 1:0d：prog ：(j-y)sin() d:10高程计算子程序（h）程序名：hprog “s0”:r:t:c:g:i:c-tf:z-fl:c+te:g-tiq:if t=o:then q+lih:goto

9、 0:else if z goto 0:w=2=goto 1:lbi 0:if l=0:then abs(d)mv:goto 2:else abs(d)(n-m)(z-c)l+m)v:goto 2:ifend:lbi 1:if l=0:then abs(d)mv: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:vei:i(e-k)v:12数据子程序(附后示例)程序名：x0（坐标计算要素程序）if z25900 and z26615.555:then 25900o:11587.421u:18

10、47.983v:101。0923.1”g:715.555h:11045p: 11045r: 0q:goto 0: ifend:if z26615.555 and z26915.555:then 26615.555o:11448.97u:2550.016v:101。0923.1”g:300h:11045p: 1800r:1q:goto 0:ifend:if z26915.555 and z27316.952:then 26915.555o:11382.792u:2842.531v:105。5551.83”g:401.396h:1800p: 1800r:1q:goto 0:ifend:lbi 0:

11、o:u:v:g:h:p:r:q:程序字母说明：o-线元起点桩号；u-起点x坐标；v-起点y坐标；g-线元起点桩号切线方位角; 线元长度，线元起点曲率半径，线元终点曲率半径,q线元判别(以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，q=-1；当线元往右偏时，q=1；当线元为直线时，q=0)。程序名：so(高程竖曲线要素子程序)if z25900 and z26157.8:then -200000r:157.8t:26000c:37.1g:0.01222i:goto 0:ifend:if z26157.8 and z27421.915:then 300000r:171.915t

12、:27250c:32.65g:-0.00356i:goto 0:ifend:if z27421.915 and z27889.029:then 1000000r:134.029t:27755c:36.64g:0.0079i:goto 0:ifend:lbi 0:r:t:g:c:i:程序字母说明：c-竖曲线交点桩号；g-交点桩号高程（未竖曲线调整的）；t-竖曲线切线长；r-竖曲线半径（分正负：凹曲线为正，凸曲线为负）；i竖曲线前纵坡程序名：i0（高程超高参数子程序）1.5k:2w:if d0:then goto l:else goto r:ifend:lbi l:if z25900 and z2

13、6615.555:then 0l:-0.02m:goto 0:ifend:if z26615.555 and z26735.555:then 120l:26615.555c:-0.02m:0.02n:goto 0:ifend:if z26735.555 and z26795.555:then 60l:26735.555c:0.02m:0.04n:goto 0:ifendif z26795.555 and z27436.951:then 0l:0.04m: goto 0:ifendlbi r: if z25900 and z26735.555:then 0l:-0.02m: goto 0:ife

14、ndif z26735.555 and z26795.555:then 60l:26735.555c:-0.02m:-0.04n:goto 0:ifendif z26795.555 and z27436.951:then 0l:-0.04m: goto 0:ifendlbi 0 k:w:l:c:m:n:字程序中字母表示说明：k中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0）；w超高方式参数（w=1为一般直线方式超高，w=2为三次抛物线方式超高）;l超高渐变段距离（不是渐变段则输入0）；c-超高渐变段起点桩号（不是渐变段，无需输入）；m超高段起点横坡，n-超高渐变段终点横坡（不是渐变段，无需输入）。程序名：go(路基标准半幅宽度参数子程序)if d xy2.： xy = ?选择计算方式，输入1表示进行由里程、边距计算坐标 ；输入2表示由坐标反算里程和边距。为线元边桩与中线右夹角。？正算时所求点的里程（反算输入大概桩号） ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零) x0 ？反算时所求点的x坐标（放样程序中实测x坐标）y0 ？反算时所求点的y坐标（放样程序中实测y坐标）显示部分：l?涵洞放样程序中涵距中心桩号前后距离,前为正,后为负.m0?边坡放样程