1 files changed, 18 insertions, 0 deletions
diff --git a/3773/CH8/EX8.2/Ex8_2.sce b/3773/CH8/EX8.2/Ex8_2.sce
new file mode 100644
index 000000000..e56ba6995
--- /dev/null
+++ b/3773/CH8/EX8.2/Ex8_2.sce
@@ -0,0 +1,18 @@
+//Chapter 8: Helical Antennas
+//Example 8-5.2
+clc;
+
+//Variable Initialization
+n = 16.0        //Number of turns (unitless)
+C = 1       //Circumference (lambda)
+S = 0.25        //Turn Spacing (lambda)
+
+//Calculation
+hpbw = 52/(C*sqrt(n*S)) //Half power beamwidth (degrees)
+ax_rat = (2*n + 1)/(2*n)    //Axial ratio (unitless)
+gain = 12*(C**2)*n*S        //Gain of antenna (unitless)
+gain_db = 10*log10(gain)    //Gain of antenna (in dBi)
+
+mprintf("The half power beam width is %d degrees", hpbw)
+mprintf("\nThe axial ratio is %.2f",ax_rat)
+mprintf("\nThe gain is %d or %.1f dBi",gain,gain_db)