4800P实用计算程序.doc

公路直线段转圆曲线段放样程序右转Lbl 0：XYH：XYHX353.432=Goto 1X381.585=Goto 2Lbl 1：D=(367.55-X)0.064502-270W=(H+D) 0.3L=Abs(Y) -(W+5.7)Goto 0Lbl 2：B=Pol(X-353.432,Y-150)：J0=N=J：N=J+360E=353.432+(N-270) 150180F=150-BD=(367.55-E) 0.064502-270W=(H+D) 0.3（适用于明挖边坡放样）L=Abs(F)-(W+5.7) （适用于明挖边坡放样）Goto 0 左转Lbl 0：XYH：XYHX205.430=Goto 1X234.757=Goto 2Lbl 1：D=(367.55-X)0.064502-270W=(H+D) 0.3L=Abs(Y) -(W+5.7)Goto 0Lbl 2：B=Pol(X-205.430,Y+200)：J0=N=J：N=J+360E=205.430+(90-N) 200180F=200-BD=(367.55-E) 0.064502-270W=(H+D) 0.3（适用于明挖边坡放样）L=Abs(F)-(W+5.7) （适用于明挖边坡放样）Goto 0方位角程序（FWJ）PQ：M“X1”：N“Y1”: P“X2”：Q“Y2”Pol(P-M,Q-N)J0=W=J：W=J+360大地坐标系转换施工坐标系(D-S)Lbl 1：XY：M“X1”：N“Y1”：X：YProg“FWJ”Z“XP”=（X-M）cos W+(Y-N)sin WZ“YP”=（Y-N）cos W-(X-M)sin WGoto 1施工坐标系转换大地坐标系(S-D)Lbl 1：XY：M“X1”：N“Y1”：X：YProg“FWJ”Z“XP”=M+Xcos W-Ysin WZ“YP”=N+Xsin W+Ycos WGoto 1坐标正算程序（ZBZS）Lbl 1：MNSW：M“X1”：N“Y1”：S：WC“XA”=M+Scos WL“YA”=N+Ssin WGoto 1坐标反算程序（ZBFS）Lbl 1：MN：M“X1”：N“Y1”Prog“FWJ”S=(P-M)2+（Q-N）2) Goto 1WKZDLbl 0：MNPQ：M“X1”：N“Y1”: P“X2”：Q“Y2”W=Pol(P-M,Q-N) J0=T=J：T=J+360Isin(T-G)Icos(T-G)Goto 1DZJCLbl 0：PQ:P“X”：Q“Y”Prog“ZBZS1” W=Pol(P-C,Q-L) J0=T=J：T=J+360G=W-45:T0=G=T+360Isin(G-T)Icos(T-G)Abs(Isin(G-T)-0.5Abs(Icos(T-G)-1.225Goto 1ZBZS1W:WC“XA”=36.2+8.4065cos WL“YA”=0+8.4065sin WSJJJCLbl 1：PQ:P“X”：Q“Y”Prog“ZBZS2” Pol(P-C,Q-L) J0=T=JT=J+360G=W-(8-sin-1（0.629.8）):T0=G=T+360Isin(G-