曲线任意里程中边桩坐标正反算casiofx-4800p计算器程序.doc

FX5800计算器公路测量常用程序集 ?一、程序功能????本程序?二、源程序1.主程序1(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离) 程序名:1ZD-XYLb1 0:Norm 2 F=1：(正反算判别，F=1正算，F=2反算) Z[1]=90（与路线右边夹角） Prog＂THB＂：F=1=Goto 1:F=2=Goto 2 Lb1 1:Ｆix 3:＂ Ｘ=＂：Locate 6,4,Ｘ◢ ＂ Ｙ＝＂：Locate 6,4,Ｙ◢ Ｐrog＂JS”:Goto 0: Lb1 2:Fix 3:＂　ＫＭ＝＂＂　＝＂(设计任意点高程及横坡) 程序名：2GC LbI 0:Norm 2 “KM”?Z:?D: Prog”H”:Fix 3:” H=”:Locate 6,4,H◢ “ I=”: Locate 6,4,I◢ Goto 0 3.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离) 程序名：3JS X：Y： 1268．123→K(置仪点X坐标) 2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦） Y-L→E：X-K→F：Pol(F,E):IF J0:Then J+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 3:” S=”:Locate 6,4,I◢ 4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离) 程序名：4JH-XY LbI 0:Norm 2 90→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量) 1→F:Prog”THB”:?L: Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: ＂ Ｘ=＂：Locate 6,4,Ｘ◢ ＂ Ｙ＝＂：Locate 6,4,Ｙ◢ Ｐrog＂JS”:Goto 0: 5．主程序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 D0:Then 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEnd LbI H:Prog”H”:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]0:Then –z[5] →G:Goto W:Else Z[5] →G:Goto T: LbI W:Prog “W0”:Z[10]+Z[11] →A: If GA:Then Goto 1:Else If GZ[10]:Then Goto 2:Else Goto 3:IfEnd: LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto Z: LbI 2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:Goto Z: LbI 3:L+Z[12]+G×Z[7]:Goto z: LbI T:L+0.5→N:If GZ[17]:Then (N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:Goto Z:Else (N+G×Z[15])→S:Goto z: LbI Z:Z[3]→D:Fix 2:Abs(D)-S→T:” L0=”:L Locate 6,4,T◢ ＂　ＫＭ＝＂＂　＝＂“ TW=”: Locate 6,4,Z[5]◢ Goto 0 6．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L) 程序名：6GD Prog “G0”Z-C→E:(B-A)×E/S+A→L:L: 7．坐标计算次程序（ＴＨＢ） 程序名：THB 18→DimZ：＂ＫＭ＂?Z：Prog ＂Ｘ０＂ 1÷P→Ｃ： (P-R)÷(2HPR)： 180÷π：=1=Goto 1：Goto 2←┘Lbl 1：?Ｄ： Abs(Ｚ－O) →W：Prog ：X 8. 正算子程序() 程序名：A0.1184634425→A： ： 0.046910077→K： 0.：： U+W