summaryrefslogtreecommitdiff
path: root/3773/CH7/EX7.3/Ex7_3.sce
diff options
context:
space:
mode:
Diffstat (limited to '3773/CH7/EX7.3/Ex7_3.sce')
-rw-r--r--3773/CH7/EX7.3/Ex7_3.sce21
1 files changed, 21 insertions, 0 deletions
diff --git a/3773/CH7/EX7.3/Ex7_3.sce b/3773/CH7/EX7.3/Ex7_3.sce
new file mode 100644
index 000000000..760550a2e
--- /dev/null
+++ b/3773/CH7/EX7.3/Ex7_3.sce
@@ -0,0 +1,21 @@
+//Chapter 7: Loop, Slot and Horn Antennas
+//Example 7-11.1
+clc;
+
+//Variable Initialization
+c =%pi //Circumference (m)
+f1 = 1 //Frequency (MHz)
+f2 = 10 //Frequency (MHz)
+d = 10e-3 //Diameter of copper wire (m)
+
+//Calculation
+RL_Rr1 = 3430/((c**3)*(f1**3.5)*d)
+RL_Rr2 = 3430/((c**3)*(f2**3.5)*d) //Ratio of Loss resistance and radiation resistance (unitless)
+k1 = 1/(1+RL_Rr1) //Radiation efficiency (unitless)
+k_db1 = 10*log10(k1) //Radiation efficiency (in dB)
+k2 = 1/(1+RL_Rr2) //Radiation efficiency (unitless)
+k_db2 = 10*log10(k2) //Radiation efficiency (in dB)
+
+//Result
+mprintf("The radiation efficiency for 1 MHz is %.1ef or %.1f dB",k1, k_db1)
+mprintf("\nThe radiation efficiency for 10 MHz is %.2f or %.1f dB",k2, k_db2)