隧道放样计算程序实例

隧道放样计算程序实例 2008 12 23 03 52 25 1 1 LS1LS1 坐标反算坐标反算 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 2 LS2LS2 坐标反算坐标反算 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 3 YQXYQX 坐标反算坐标反算 Lbl 0 B ZYDX E ZYDY F F HR Prog AA D D HD V V V D 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 J 0 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 ZHZH 子程序子程序 H X Q W Y K Pol H W G J G H Icos G W Isin G HQHQ 子程序子程序 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 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 Q 0 S I Q SI NNNN 子程序子程序 M 1000 KD K Intg MK 0 5 M WB K Intg MQ 0 5 M AAAA 子程序子程序 IntF Int FracF 1E2 60 Frac Fra