单独的竖曲线程序

《单独的竖曲线程序》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、单独的竖曲线程序【SOX】O“P1”:P“P2”:W“GDZ”:G“GDG”:R←┚T=R(O-P)/2:T﹤0=>T=-T:≠=>T=T△L=R(O-P):L﹤0=>L=-L:≠=>L=L△E=T2/2R:T◢E◢←┚Lbl0:Fixm:｛k｝:M=W-T:U=W+T:N=G-OT:V=G+PT←┚P﹤O=>C=-1:≠=>C=1△←┚K≤M=>Z=N+(K-M)×O:≠=>Z=N+(K-M)×O+C((K-M)2/2R)△K≥U=>Z=V+(K-U)×P△←┚Z◢Goto 0←┚6程序说明：P1？：小里程纵坡坡度（1‰输0.001）P

2、2？：大里程纵坡坡度（1‰输0.001）GDZ？：竖曲线顶点桩号GDG？：竖曲线顶点高程R？：竖曲线半径显示：T：切线长E：外矢距长K？放样点桩号显示：Z：放样点所在桩号的高程（使用公式：X=Y2/2R）6直线正反算程序【ZX】X:Y:C”X1”:D”Y1”:E”X2”:F”Y2”:R”LS”:W:Z:R=0=>Prog“ZXFS”△Lbl0:Fixm:｛kZSPVQN｝:k:Z;S:P:V:Q:N←┚L=N-Q:L◢V:B=S(V+PL):L=0=>B=SV△B◢如果不用边坡放样可改为：Lbl0:Fixm:｛kB｝:I=E-C:J=F-

3、D:Prog“C”:U=J:O=K-W:G=cosU×O+C:H=sinU×O+D←┚M=J+Z:M＜0=>M=M+360:≠=>M=M△M＞360=>M=M-360△←┚6Z﹝1﹞=cosM×B+G:Z﹝1﹞◢Z﹝2﹞=sinM×B+H:Z﹝2﹞◢I=Z﹝1﹞-X:J=Z﹝2﹞-Y:Prog“C”:J◢Fix4:I◢Goto 0←┚【C】POL(I,J):J＜0=>J=J+360△【ZXFS】A”CX1”:G”CY1”←┚Lbl1:Fixm:｛A,G｝:I=E-C:J=F-D:Prog“C”:O=J:I=A-C:J=G-D:J=0=>J

4、=0.0000001:≠=>J=J△Prog“C”:U=J:N=I←┚M=U-O:M＜0=>M=M+360:≠=>M=M△M＞360=>M=M-360△←┚B=N×sinM:P=N×cosM:K=W+P:K◢B◢I=A-X:J=G-Y:Prog“C”:J◢Fix4I◢Goto 1←┚启动【ZX】正算X,Y？:测站坐标X1,Y1？:直线小里程直线小里程X2,Y2？:直线大里程或终点直线小里程LS？:等于0为反算,等于1为正算W？:直线起点或小里程X1,Y1所在桩号Z？:边桩与中线的右上夹角一般为90度6K？:所放样的桩号S?:等于1为右边桩

5、,等于-1为左边桩,等于0为中桩,P?:边坡坡度Q?:所放样的桩号的设计高程N?:所测的原地面高程L:显示高差V?:设计路面宽B:显示放样点的所在桩号的距离(左负,右正.中为0)改为：B？输入放样点的所在桩号的距离(左负,右正.中为0)Z﹝1﹞,Z﹝2﹞:显示放样点的X.Y坐标J:显示放样点至测站的方位角I:显示放样点至测站的平距（实用于一及边坡放样）AC/ON反算（按键再按EXE键X,Y？X2,Y2。X1,Y1，不变，LS=0。）6LS等于0CX1?:输入点的X坐标CY1?:输入点的Y坐标K:显示放样点所在直线的桩号B:显示放样点所在直

6、线的桩号距中桩的距离(左负,右正.中为0)J:显示放样点至测站的方位角I:显示放样点至测站的平距O为字母O，否则为数字0。ZGQ7046@126.com6