1 files changed, 17 insertions, 0 deletions
diff --git a/2219/CH7/EX7.2/Ex7_2.sce b/2219/CH7/EX7.2/Ex7_2.sce
new file mode 100755
index 000000000..3a8f569d5
--- /dev/null
+++ b/2219/CH7/EX7.2/Ex7_2.sce
@@ -0,0 +1,17 @@
+// chapter 7 example 2
+//-----------------------------------------------------------------------------
+clc;
+clear;
+// given data
+Rr      = 72;       // Radiation resistance in ohms
+Rl      = 8;        // Loss resistance in ohms
+Ap      = 27;       // power gain 
+
+// Calculations
+n       = Rr/(Rr + Rl);     // radiation efficiency
+D       = Ap/n;             // Directivity
+D_dB    = 10*log10(D);      // directivity in dB
+
+// Output
+mprintf('Directivity = %3.2f dB',D_dB );
+//------------------------------------------------------------------------------