summaryrefslogtreecommitdiff
path: root/3773/CH6/EX6.3/Ex6_3.sce
diff options
context:
space:
mode:
Diffstat (limited to '3773/CH6/EX6.3/Ex6_3.sce')
-rw-r--r--3773/CH6/EX6.3/Ex6_3.sce35
1 files changed, 35 insertions, 0 deletions
diff --git a/3773/CH6/EX6.3/Ex6_3.sce b/3773/CH6/EX6.3/Ex6_3.sce
new file mode 100644
index 000000000..68bdcb38a
--- /dev/null
+++ b/3773/CH6/EX6.3/Ex6_3.sce
@@ -0,0 +1,35 @@
+//Chapter 6: Electric Dipoles, Thin Linear Antennas and Arrays of Dipoles and Apertures
+//Example 6-12.1
+clc;
+
+//Variable Initialization
+s1 = 0.4 //Spacing 1(lambda)
+s2 = 0.5 //Spacing 2(lambda)
+s3 = 0.6 //Spacing 3(lambda)
+R_21_1 = 6.3 //Mutual resistance for s1 (ohm)
+R_21_2 = -12.691 //Mutual resistance for s2 (ohm)
+R_21_3 = -23.381 //Mutual resistance for s3 (ohm)
+Z = 73.13 //Self impedance of lambda/2 dipole (ohm)
+
+//Calculation
+gain_1 = sqrt(2*(Z/(Z+R_21_1))) //Gain in field for s1 (unitless)
+gain_iso1 = 1.64*(gain_1**2) //Power gain over isotropic (unitless)
+gain_iso_db1 = 10*log10(gain_iso1) //Power gain (in dBi)
+
+gain_2 = sqrt(2*(Z/(Z+R_21_2))) //Gain in field for s2 (unitless)
+gain_iso2 = 1.64*(gain_2**2) //Power gain over isotropic (unitless)
+gain_iso_db2 = 10*log10(gain_iso2) //Power gain (in dBi)
+
+gain_3 = sqrt(2*(Z/(Z+R_21_3))) //Gain in field for s3 (unitless)
+gain_iso3 = 1.64*(gain_3**2) //Power gain over isotropic (unitless)
+gain_iso_db3 = 10*log10(gain_iso3) //Power gain (in dBi)
+
+//Result
+mprintf( "The gain in field over half wave antenna for s1 is %.2f",gain_1)
+mprintf( "\nThe power gain over isotropic for s1 is %.2f or %.1f dBi",gain_iso1,gain_iso_db1)
+
+mprintf( "\n\nThe gain in field over half wave antenna for s2 is %.2f",gain_2)
+mprintf( "\nThe power gain over isotropic for s2 is %.2f or %.2f dBi ", gain_iso2,gain_iso_db2)
+
+mprintf( "\n\nThe gain in field over half wave antenna for s3 is %.2f",gain_3)
+mprintf( "\nThe power gain over isotropic for s3 is %.2f or %.2f dBi ",gain_iso3,gain_iso_db3)