1 files changed, 16 insertions, 0 deletions
diff --git a/3773/CH21/EX21.5/Ex21_5.sce b/3773/CH21/EX21.5/Ex21_5.sce
new file mode 100644
index 000000000..89bc80c2c
--- /dev/null
+++ b/3773/CH21/EX21.5/Ex21_5.sce
@@ -0,0 +1,16 @@
+//Chapter 21: Antenna Measurements
+//Example 21-4.2
+clc;
+
+//Variable Initialization
+pat_lev1 = -22.3    //Pattern level maximum (dB)
+pat_lev2 = -23.7    //Pattern level minimum (dB)
+
+//Calculations
+S = abs(pat_lev2-pat_lev1)  //Amplitude ripple (dB)
+a = (pat_lev1+pat_lev2)/2   //Pattern level (dB)
+
+R = a + 20*log10((10**(S/20) - 1)/(10**(S/20) + 1))                    //Reflectivity (dB)
+
+//Result
+mprintf("The reflectivity is %.1f dB", R)