公路坐标计算(Casio4850程序).doc

CASIO4850公路平曲线坐标计算程序1、程序名:XLZB(路线坐标计算)Lb1 0:S:S:M“ANG”:PROG“DAT-0”:PROG“ZBJS-0”:M0=PROG“BX” PROG“XSZB”:PROG“ZBFS”:Goto 02、程序名:H (路线高程计算) PROG“HDAT”:PROG“SQX”3、程序名:QLC(求里程计算)Lb1 0:SDE:S:D“N”:E:M“ANG”: Z99=D: Z100=E:PROG“XH”4、程序名:FY(放样计算)Lb1 0:XY:X:Y:PROG“ZBFS”: Goto 05、程序名:TWBX(路基边坡放样计算)Lb1 0:PROG“QLC”:PROG“H”:VLI:H=V-(H+LI):S-10=L=P-(L-1.5H+3.5):Goto 1S-2=L=P-(L-1.5H+2.0):Goto 1S0=L=P-(L-1.5H):Goto 1S15=L=P-(L+H):Goto 1S22=L=P-(L+H+2):Goto 1S29=L=P-(L+H+4):Goto 1S36=L=P-(L+(H-29)1.5+29+6):Goto 1Lb1 1:“H=”:H“L=”:L6、程序名:JAOHUI(后方交会坐标计算) Lb1 0: XYNEABC:XYNEABC:Pol(N-X,E-Y):V=sin-1(BsinCI):F=J+V:W=F-180+C:W0=W=W+360“X0=”:Z1=X+Rec(A,F) “Y0=”:Z2=Y+J“FW=”:JDMS“HD=”:B7、程序名:ZBZS(坐标正算)Lb1 0:XYCD:X“X0”: Y“Y0”: C“HD”: D“FW”:“X=”:X+Rec(C,D)“Y=”:Y+J Goto 011、程序名:ZBJS-1(适用于对称缓和曲线的平曲线坐标计算)J=Z7-Z6:J=Arg(cosJ+isinJ):H=AbsJJ:P=R+G2(24R):Q=G2-G3(240R2):A=JH2:N=90(R):T=PtanA+Q:L=AN+G:U=Z5-T:SU=I=Z5-S:T=Z6:Goto 1SU+G=W=S-U: F=NW2G:I=T-W+W5(40R2G2)+iW3(6RG):T=Z6+HF:Goto 1SU+L-G=W=S-U-G:F=2NW+NG:I=T-RsinF-Q+(P-RcosF)i:T=Z6+HF:Goto 1SU+L=W=U+L-S:Z6=Z7+180:H=-H: F=NW2G:I=T-W+W5(40R2G2)+iW3(6RG):T=Z6+HF+180:Goto 1SU+L=I=S-U-L+T:T=Z7:Goto 2Lb1 1:X=Z3-cos(Z6-HArgI)AbsI:Y=Z4-sin(Z6-HArgI)AbsI: Goto 3Lb1 2:X=Z3+cosZ7AbsI:Y=Z4+sinZ7AbsI: Goto 3 Lb1 312、程序名:ZBJS-0(适用于无缓和曲线的单圆平曲线坐标计算)J=Z7-Z6:J=Arg(cosJ+isinJ):H=AbsJJ:T=Rtan(JH2):L= JHR180:SZ5-T=I=Z5-S:T=Z6:Goto 1SZ5-T+L=W=S-Z5+T:F=180W(R):I=T-RsinF+(R-RcosF)i:T=Z6+HF:Goto 1SZ5-T+L=I=S-Z5+2T-L:T=Z7:Goto 2Lb1 1: X=Z3-cos(Z6-HArgI)AbsI:Y=Z4-sin(Z6-HArgI)AbsI: Goto 3Lb1 2: X=Z3+cosZ7AbsI:Y=Z4+sinZ7AbsI: Goto 3Lb1 313、程序名:BX(边桩坐标计算)Z:Z:X=X+Zcos(T+M):Y=Y+Zsin(T+M)14、程序名:XSZB(显示坐标)“X=”:X“Y=”:Y15、程序名:SQX(高程计算)U=Abs(A-S):SA-T=H=H-JU:Goto 1SA=H=H-JU+F(S-A+T)2(2R):Goto 1SA+T=H=H+IU+F(A+T-S)2(2R):Goto 1SA+T= H=H+U:Goto 1Lb1 1:“H=”:H16、程序名:XH(坐标循环计算)Lb1 0:PROG“DAT-0”:PROG“ZBJS-0”:POL(Z99-X,Z100-Y):J0=J=J+360C=J-T:O=IcosC-IsinCtan(90-M):S=S+O:AbsO0.01=Goto 0:P=IsinCsinM:“FXJL=”:P“DYLC=”:S17、程序名:ZBFS(坐标反算)POL(X-Z1,Y-Z2):IJ:J0=J=J+360“FW=”:JDMS“HD=”:I18、程序名:ZBJS-2(适用于任何平曲线坐标计算)A=0.1184634425:B=0.2393143352:N=0.2844444444:K=0.0469100770:L=0.2307653449:Z5=0.5:X=U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Ncos(G+QEZ5W(C+Z5WD)+Bcos(G+QE(1-L)W(C+(1-L)WD)+Acos(G+QE(1-K)W(C+(1-K)WD):Y=V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Nsin(G+QEZ5W(C+Z5WD)+Bsin(G+QE(1-L)W(C+(1-L)WD)+Asin(G+QE(1-K)W(C+(1-K)WD):T=G+QEW(C+WD):19、程序名:DAT-2(适用于任何平曲线坐标计算) Lb1 0:PROG“DAT-2-1”:SZ18=N=1:Goto 1 SZ26=N=2:Goto 1SZ34=N=3:Goto 1SZ42=N=4:Goto 1SZ50=N=5:Goto 1Lb1 1:PROG“DAT-2-2”:20、程序名:DAT-2-2(适用于任何平曲线坐标计算)Lb1 1:U=Z8N:V=Z8N+1:O=Z8N+2:G=Z8N+3:H=Z8N+4:P=Z8N+5:R=Z8N+6:Q=Z8N+7:Lb1 2:U“X0”: V“Y0”:O“S0”:G“F0”:H“LS”:P“R0”:R“RN”:Q:C=1P:D=(P-R)(2HPR):E=180:21、平曲线数据库:DAT-1(全线平曲线交点要素)SHZ点桩号=Z3=本交点X坐标: Z4=本交点Y坐标: Z5=本交点桩号: Z6=前直线方位角: Z7=后直线方位角:R=曲线半径:G=缓和曲线长:Goto 0Lb1 022、平曲线数据库:DAT-0(全线单圆平曲线交点要素)SYZ点桩号=Z3=本交点X坐标:Z4=本交点Y坐标:Z5=本交点桩号:Z6=前直线方位角:Z7=后直线方位角:R=曲线半径:Goto 0Lb1 023、竖曲线数据库:HDAT(全线竖曲线交点要素)S终点桩号=A=变坡点桩号:H=变坡点高程:R=竖曲线半径:T=竖曲线切线长:J=变坡点前段坡比:I=变坡点后段坡比:F=竖曲线系数(凸为-1,凹为1):Goto 0Lb1 024、平曲线数据库:DAT-2-1(全线平曲线交点要素)Z8=19942.837:Z9=28343.561:Z