FX5800P计算器坐标正反算程序.doc.doc

( 以下程序是专业人士编写,本店铺不对程序负责,仅供您参考使用。) 卡西欧 fx5800 p计算器坐标正反算程序一、程序功能本程序由 6个主程序、 5个次子程序及 5个参数子程序组成。主要用于公路测量中坐标正反算,设计任意点高程及横坡计算,桥涵放样,路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型. 二、源程序 1:一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离; ②反算桩号及距中距离) 程序名:1ZD-XY Lb1 0:Norm 2F=1 :(正反算判别,F=1 正算,F=2 反算,也可以改 F前加? ,改F为变量)Z[1]=90 (与路线右边夹角) Prog "THB ": F=1=>Goto 1:F=2=>Goto 2 Lb1 1:Fix3:"X=": Locate 6,4, X◢"Y=": Locate 6,4, Y◢ Prog "3JS ”:Goto 0: Lb1 2:Fix 3:"KM=": Locate 6,4, Z◢"D=": Locate 6,4, D◢ Goto :高程序横坡程序(设计任意点高程及横坡) 程序名: 2GC LbI 0:Norm 2“KM”?Z:?D: Prog ”H”:Fix 3:”H=”:Locate 6,4,H ◢“I=”:Locate 6,4,I ◢ Goto 3:极坐放样计算程序(计算放样点至置仪点方位角及距离) 程序名: 3JS X:Y: 1268 .123 →K(置仪点 X坐标) 2243 .545 →L(置仪点 Y坐标,都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦) Y-L →E:X-K →F:Pol(F,E):IF J<0:Then J+360 →J:Int(J)+(60Frac(J))+(60Frac(J)) →J:( 不****惯小数点后四位为角度显示的,也可以用命令 J◢DMS ◢来直接显示)Fix 4:” FWJ= ”:Locate 6,4,J ◢(不****惯小数点后四位为角度显示的,也可以用命令 J◢DMS ◢来直接显示)Fix 3:”S=”:Locate 6,4,I ◢ 4:涵洞放样程序(由涵中心桩号计算出各涵角坐标、在主程序 3中输入置仪点坐标后计算放样点至置仪点方位角及距离) 程序名: 4JH-XY LbI 0:Norm 290→Z[1]( 涵洞中心桩与右边夹角,手工输入,也可以修改成前面加?后变为变量)1→F:Prog ”THB ”:?L: Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3:"X=":Locate 6,4, X◢"Y=": Locate 6,4, Y◢ Prog "3JS ”:Goto 0: 5:路基开挖边线及填方坡脚线放样程序(输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度) 程序名: 5FBX LbI 0:Norm 2:18→DimZ:2 →F:90 →Z[1]:Prog “THB ”:Z:D: ”M0”?M:M →Z[4]:D →Z[3]:Prog ”6GD ”:L→Z[6]:If D<0:Then -L →D:Goto H:Else L- →D:Goto H:IfE