summaryrefslogtreecommitdiff
path: root/3773/CH7/EX7.2/Ex7_2.sce
diff options
context:
space:
mode:
Diffstat (limited to '3773/CH7/EX7.2/Ex7_2.sce')
-rw-r--r--3773/CH7/EX7.2/Ex7_2.sce15
1 files changed, 15 insertions, 0 deletions
diff --git a/3773/CH7/EX7.2/Ex7_2.sce b/3773/CH7/EX7.2/Ex7_2.sce
new file mode 100644
index 000000000..053f02a72
--- /dev/null
+++ b/3773/CH7/EX7.2/Ex7_2.sce
@@ -0,0 +1,15 @@
+//Chapter 7: Loop, Slot and Horn Antennas
+//Example 7-8.2
+clc;
+
+//Variable Initialization
+Rr = 197.0 //Self resistance of loop (ohm)
+Rm = 157.0 //Mutual resistance of two loops (ohm)
+theta = 2*%pi/10 //Angle of radiation (radians)
+
+//Calculation
+D = 1.5*(2*sqrt(Rr/(Rr-Rm))*sin(theta))**2 //Directivity (unitless)
+D_db = 10*log10(D) //Directivity (dBi)
+
+//Result
+mprintf("The directivity is %.1f or %.1f dBi",D,D_db)