隧道放样计算程序实例.docVIP

隧道放样计算程序实例 2008-12-23 03:52:25 Lbl 0 B“ZYDX”:E“ZYDY”:{F}:F“HR”: Prog“AA”:{D}:D“HD”:{V}:V“VD”:Fixm R=700 M=75 N=-1 X=B+Dcos F◢ Y=E+Dsin F◢ Q=2638.352-Rec(329.256,153°20′07″):K=5472.743-J:G=153°20′07″-90 Prog“ZH” K=N:U=M Prog“HQ” K=58467.65+O Prog“NN” Q=Abs (6.3-Q) ◢ Prog“GC”◢ Goto 0 ? 2． LS2坐标反算 Lbl 0 B“ZYDX”:E“ZYDY”:{F}:F“HR”: Prog“AA”:{D}:D“HD”:{V}:V“VD”:Fixm R=700 L=75 N=1 X=B+Dcos F◢ Y=E+Dsin F◢ Q=2638.352-Rec(329.256,198°34′07″):K=5472.743+J G=198°34′07″+90 Prog“ZH” K=N:U=L Prog“HQ” K=58467.65+627.628-O:Q=-Q Prog“NN” Q=Abs (6.3-Abs Q) ◢ Prog“GC”◢ Goto 0 ? 3． YQX坐标反算 Lbl 0 B“ZYDX”:E“ZYDY”:{F}:F“HR”:Prog“AA”:{D}:D“HD”:{V}:V“VD”:Fixm R=700 M=75 N=-1 X=B+Dcos F◢ Y=E+Dsin F◢ Q=2638.352-Rec(392.256,198°34′07″):K=5472.743+J:G=198°34′07″+90 Pol (2584.7952-X，4715.9561-Y) J0=C=J≠=C=J+360 K=58467.65+75+Abs (246°24′16.9″-C)Rπ÷180 Q=N(I-R) Prog“NN” Q=Abs (6.3-Abs Q) ◢ Prog“GC”◢ Goto 0 ? ZH? 子程序 H=X-Q W=Y-K Pol (H，W) G=J-G H=Icos G W=Isin G HQ? 子程序 A=K÷46080÷R^6÷U^6 P=H÷3840÷R^5÷U^5 C=13K÷5760÷R^4÷U^4 T=KW÷384÷R^4÷U^4 G=H÷48÷R^3÷U^3 I=K÷(15RRUU) J=KW÷(8RRUU) L=H÷(2RU) N=KW S=W Lbl 7 M=AS^13+PS^10-CS^9+TS^8-GS^6+IS^5-JS^4+LSS-KS+N Q=13AS^12+10PS^9-9CS^8+8TS^7-6GS^5+5IS^4-4JS^3+2LS-K O=S-M÷Q Abs (O-S)1E-5=Goto 8△ S=O Goto 7 Lbl 8 T=KOOO÷6÷U÷R P=O-O^5÷40÷(RRUU) T=H=P=W=Q=O:Goto 9△△ Pol (H-T,W-P) Q=sin (J+90KOO÷π÷R÷U-90) S=-1 Q0=S=I△ Q=SI ? NN? 子程序 M=1000 “KD=”:K=Intg (MK+0.5)÷M◢ “WB=”:K=Intg (MQ+0.5)÷M◢ ? AA 子程序 IntF+( Int(FracF×1E2)÷60+Frac(Frac(F×1E2)÷36) ? GC? 子程序 5.45-√（QQ+（694.052+1.337+V-691.18-1.5-(59080-K)×0.03）2） ?