公路坐标计算(Casio4850程序)

《公路坐标计算(Casio4850程序)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、CASIO4850公路平曲线坐标计算程序1、程序名:XLZB(路线坐标计算)Lb10:｛S｝:S:M“ANG”:PROG“DAT-0”:PROG“ZBJS-0”:M≠0=>PROG“BX”⊿PROG“XSZB”:PROG“ZBFS”:Goto02、程序名:H(路线高程计算)PROG“HDAT”:PROG“SQX”3、程序名:QLC(求里程计算)Lb10:｛SDE｝:S:D“N”:E:M“ANG”:Z[99]=D:Z[100]=E:PROG“XH”4、程序名:FY(放样计算)Lb10:｛XY｝:X:Y:PROG“ZBFS”:Go

2、to05、程序名:TWBX(路基边坡放样计算)Lb10:PROG“QLC”:PROG“H”:｛VLI｝:H=V-(H+LI):S≤-10=>L=P-(L-1.5H+3.5):Goto1⊿S≤-2=>L=P-(L-1.5H+2.0):Goto1⊿S≤0=>L=P-(L-1.5H):Goto1⊿S≤15=>L=P-(L+H):Goto1⊿S≤22=>L=P-(L+H+2):Goto1⊿S≤29=>L=P-(L+H+4):Goto1⊿S≤36=>L=P-(L+(H-29)×1.5+29+6):Goto1⊿…………Lb11:“△H=”

3、:H◢“△L=”:L◢6、程序名:JAOHUI(后方交会坐标计算)Lb10:｛XYNEABC｝:XYNEABC:Pol(N-X,E-Y):V=sin-1(BsinC÷I):F=J+V:W=F-180+C:W＜0=>W=W+360⊿“X0=”:Z[1]=X+Rec(A,F)◢“Y0=”:Z[2]=Y+J◢“FW=”:J←DMS◢“HD=”:B◢7、程序名:ZBZS(坐标正算)Lb10:｛XYCD｝:X“X0”:Y“Y0”:C“HD”:D“FW”:“X=”:X+Rec(C,D)◢“Y=”:Y+J◢Goto0第4页共4页11、程序名

4、:ZBJS-1(适用于对称缓和曲线的平曲线坐标计算)J=Z[7]-Z[6]:J=Arg(cosJ+isinJ):H=AbsJ÷J:P=R+G2÷(24R):Q=G÷2-G3÷(240R2):A=JH÷2:N=90÷(πR):T=PtanA+Q:L=A÷N+G:U=Z[5]-T:S＜U=>I=Z[5]-S:T=Z[6]:Goto1⊿S＜U+G=>W=S-U:F=NW2÷G:I=T-W+W5÷(40R2G2)+iW3÷(6RG):T=Z[6]+HF:Goto1⊿S＜U+L-G=>W=S-U-G:F=2NW+NG:I=T-RsinF

5、-Q+(P-RcosF)i:T=Z[6]+HF:Goto1⊿S＜U+L=>W=U+L-S:Z[6]=Z[7]+180:H=-H:F=NW2÷G:I=T-W+W5÷(40R2G2)+iW3÷(6RG):T=Z[6]+HF+180:Goto1⊿S≥U+L=>I=S-U-L+T:T=Z[7]:Goto2⊿Lb11:X=Z[3]-cos(Z[6]-HArgI)AbsI:Y=Z[4]-sin(Z[6]-HArgI)AbsI:Goto3⊿Lb12:X=Z[3]+cosZ[7]AbsI:Y=Z[4]+sinZ[7]AbsI:Goto3⊿Lb

6、1312、程序名:ZBJS-0(适用于无缓和曲线的单圆平曲线坐标计算)J=Z[7]-Z[6]:J=Arg(cosJ+isinJ):H=AbsJ÷J:T=Rtan(JH÷2):L=JHRπ÷180:S＜Z[5]-T=>I=Z[5]-S:T=Z[6]:Goto1⊿S＜Z[5]-T+L=>W=S-Z[5]+T:F=180W÷(πR):I=T-RsinF+(R-RcosF)i:T=Z[6]+HF:Goto1⊿S≥Z[5]-T+L=>I=S-Z[5]+2T-L:T=Z[7]:Goto2⊿Lb11:X=Z[3]-cos(Z[6]-HArg

7、I)AbsI:Y=Z[4]-sin(Z[6]-HArgI)AbsI:Goto3⊿Lb12:X=Z[3]+cosZ[7]AbsI:Y=Z[4]+sinZ[7]AbsI:Goto3⊿Lb1313、程序名:BX(边桩坐标计算)｛Z｝:Z:X=X+Zcos(T+M):Y=Y+Zsin(T+M)14、程序名:XSZB(显示坐标)“X=”:X◢“Y=”:Y◢15、程序名:SQX(高程计算)U=Abs(A-S):S＜A-T=>H=H-JU:Goto1⊿S＜A=>H=H-JU+F(S-A+T)2÷(2R):Goto1⊿S＜A+T=>H=H+I

8、U+F(A+T-S)2÷(2R):Goto1⊿S≥A+T=>H=H+U:Goto1⊿Lb11:“H=”:H◢16、程序名:XH(坐标循环计算)Lb10:PROG“DAT-0”:PROG“ZBJS-0”:POL(Z[99]-X,Z[100]-Y):J＜0=>J=J+360⊿C=