单独的竖曲线程序.doc

单独的竖曲线程序 【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◢←┚ Lbl 0 :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←┚ 程序说明： P1？： 小里程纵坡坡度（1‰输0.001））直线正反算程序 【ZX】 X:Y:C”X1”:D”Y1”:E”X2”:F”Y2”:R”LS”:W:Z:R=0= Prog“ZXFS” △ Lbl 0: Fixm:｛kZSPVQN｝: k:Z;S:P:V:Q:N←┚ L=N-Q:L◢ V:B=S(V+PL):L=0=B=SV△B◢ 如果不用边坡放样可改为： Lbl 0: Fixm:｛kB｝: I=E-C:J=F-D: Prog“C”:U=J:O=K-W:G= cosU×O+C:H =sin U×O+D←┚ M=J+Z:M＜0=M=M+360: ≠=M=M△ M＞360=M=M-360△←┚ Z﹝1﹞=cosM×B+G: Z﹝1﹞◢Z﹝2﹞= sin M×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” ←┚ Lbl 1: Fixm:｛A,G｝:I=E-C:J=F-D: Prog“C”:O=J:I=A-C:J=G-D:J=0=J=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◢ Fix4 I◢ Goto ?1←┚ 启动【ZX】 正算 X,Y？: 测站坐标 X1,Y1？: 直线小里程直线小里程 X2,Y2？: 直线大里程或终点直线小里程 LS？ : 等于0为反算,等于1为正算 W？: 直线起点或小里程X1,Y1所在桩号 Z？: 边桩与中线的右上夹角一般为90度 K？: 所放样的桩号 S?: 等于1为右边桩, 等于-1为左边桩,等于0为中桩, P?: 边坡坡度 Q?: 所放样的桩号的设计高程 N?: 所测的原地面高程 L: 显示高差 V?: 设计路面宽 B: 显示放样点的所在桩号的距离(左负,右正.中为0) 改为： B？ 输入放样点的所在桩号的距离(左负,右正.中为0) Z﹝1﹞,Z﹝2﹞: 显示放样点的X.Y坐标 J: 显示放样点至测站的方位角 I: 显示放样点至测站的平距 （实用于一及边坡放样） 反算（按键再按EXE键X,Y？X2,Y2。X1,Y1，不变，LS=0。） LS等于0 CX1?: 输入点的X坐标 CY1?: 输入点的Y坐标 K: 显示放样点所在直线的桩号 B: 显示放样点所在直线的桩号距中桩的距离(左负,右正.中为0) J: 显示放样点至测站的方位角 I: 显示放样点至测站的平距 O为字母O，否则为数字0。 ZGQ7046@126.com 6 AC/ON