1 files changed, 17 insertions, 0 deletions
diff --git a/2219/CH4/EX4.3/Ex4_3.sce b/2219/CH4/EX4.3/Ex4_3.sce
new file mode 100755
index 000000000..bce71ec1f
--- /dev/null
+++ b/2219/CH4/EX4.3/Ex4_3.sce
@@ -0,0 +1,17 @@
+// chapter 4 example 3
+//-----------------------------------------------------------------------------
+clc;
+clear;
+// given data
+CF      = 20;       // Coupling factor in dB
+I       = 50;       // Isolation in dB
+Pc      = 100*10^-6; // coupling power in W
+
+// calculations
+// D    = 10log(Pc/Piso)
+D       = I - CF;           // Directivity in dB
+Piso    = Pc/(10^(D/10))  // antilog conversion and coupling power
+
+// Output
+mprintf('Directivity = %d dB\n Power at isolated port = %d nW',D,Piso*10^9);
+//------------------------------------------------------------------------------