5800道路全程序.doc

一、程序功能   本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算,设计任意点高程及横坡计算,桥涵放样,路基开挖口及填方坡脚线放样。、:一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离;②反算桩号及距中距离)程序名:1ZD-XYLb10:Norm2↙F=1:(正反算判别,F=1正算,F=2反算,也可以改F前加?,改F为变量)Z[1]=90(与路线右边夹角)↙Prog"THB":F=1=>Goto1:F=2=>Goto2↙Lb11:Fix3:"  X=":Locate6,4,X◢↙"  Y=":Locate6,4,Y◢↙Prog"3JS”:Goto0:↙Lb12:Fix3:" KM=":Locate6,4,Z◢↙" D=":Locate6,4,D◢↙Goto0↙:高程序横坡程序(设计任意点高程及横坡)程序名:2GCLbI0:Norm2↙“KM”?Z:?D:↙Prog”H”:Fix3:”  H=”:Locate6,4,H◢↙“  I=”:Locate6,4,I◢↙ Goto0↙:极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名:3JSX:Y:↙→K(置仪点X坐标)→L(置仪点Y坐标,都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦)↙Y-L→E:X-K→F:Pol(F,E):IFJ<0:ThenJ+360→J:Int(J)+(60Frac(J))+(60Frac(J))→J:(不****惯小数点后四位为角度显示的,也可以用命令J◢DMS◢来直接显示)Fix4:”FWJ=”:Locate6,4,J◢(不****惯小数点后四位为角度显示的,也可以用命令J◢DMS◢来直接显示)↙Fix3:”  S=”:Locate6,4,I◢:涵洞放样程序(由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名:4JH-XYLbI0:Norm2↙90→Z[1](涵洞中心桩与右边夹角,手工输入,也可以修改成前面加?后变为变量)1→F:Prog”THB”:?L:↙Z[2]-Z[1]→E:X+Lcos(E)→X:Y+Lsin(E)→Y:Fix3:"  X=":Locate6,4,X◢"  Y=":Locate6,4,Y◢Prog"3JS”:Goto0:↙:路基开挖边线及填方坡脚线放样程序(输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度)程序名:5FBXLbI0:Norm2:18→DimZ:2→F:90→Z[1]:Prog“THB”:Z:D:”M0”?M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:IfD<0:-L→D:GotoH:ElseL-→D:GotoH:IfEnd↙LbIH:Prog”H”:H--Z[4]→Z[5]:Z[6]→L:IfZ[5]<0:Then–z[5]→G:GotoW:ElseZ[5]→G:GotoT:↙LbIW:Prog“W0”:Z[10]+Z[11]→A:IfG>A:ThenGoto1:ElseIfG>Z[10]:ThenGoto2:Els