1 0 U S I N G " # # # # . # # " 2 0 I N P U T " L O O P ( m ) " ; S 3 0 I N P U T " P I P E ( c m ) " ; D 4 0 I N P U T " ¼ ­ ³ Ê ½ ³ ( M h z ) " ; F 5 0 I N P U T " P o w e r = " ; P 6 0 A = ( ( S / P I ) / 2 ) ^ 2 * P I 7 0 P R I N T " Ò Ý ¾ · = " ; A ; " m 2 " 8 0 R R = F ^ 4 * A ^ 2 * 3 . 9 2 / 1 0 ^ 4 9 0 P R I N T " Î ³ ¼ ¬ Ã ² º ³ = " ; R R 1 0 0 R L = S Q R ( F ) * . 8 3 * S / D 1 1 0 P R I N T " ¿ Ý ¼ Â Ã ² º ³ = " ; R L 1 2 0 E = 1 0 0 * R R / ( R R + R L ) 1 3 0 P R I N T " º ³ Ø Â ( % ) = " ; E 1 4 0 P R I N T " º ³ Ø Â ( d B ) = " ; 1 0 * L O G ( E / 1 0 0 ) 1 5 0 L = ( 4 5 . 8 3 * L O G ( S / D ) + 7 0 . 7 6 ) * S / 1 0 0 1 6 0 P R I N T " Ù ° Ì ß ² Ý Ý À Þ ¸ À Ý ½ = " ; L 1 7 0 X L = 2 * P I * F * L 1 8 0 P R I N T " Õ ³ Ä Þ ³ Ø ± ¸ À Ý ½ = " ; X L 1 9 0 Q = 5 0 * X L / ( R R + R L ) 2 0 0 P R I N T " Q = " ; Q 2 1 0 P R I N T " Ê Þ Ý Ä Þ Ê Ê Þ ( K H z ) = " ; 1 0 0 0 * F / Q 2 2 0 P R I N T " Ê ¯ ¾ ² Ã Þ Ý ± Â ( K V ) = " ; S Q R ( P * X L * Q ) / 1 0 0 0 2 3 0 C T = . 1 5 9 2 * 1 0 ^ 6 / ( F * X L ) 2 4 0 P R I N T " Ä Þ ³ Á ® ³ Ö ³ Ø ® ³ = " ; C T 2 5 0 C D = 2 . 6 9 * S 2 6 0 P R I N T " Ì Þ Ý Ì ß Ö ³ Ø ® ³ = " ; 2 . 6 9 * S 2 7 0 P R I N T " Ê Þ Ø º Ý Ö ³ Ø ® ³ = " ; C T - C D