From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3773/CH24/EX24.6/Ex24_6.sce | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 3773/CH24/EX24.6/Ex24_6.sce

(limited to '3773/CH24/EX24.6/Ex24_6.sce')

diff --git a/3773/CH24/EX24.6/Ex24_6.sce b/3773/CH24/EX24.6/Ex24_6.sce
new file mode 100644
index 000000000..3b467a56f
--- /dev/null
+++ b/3773/CH24/EX24.6/Ex24_6.sce
@@ -0,0 +1,24 @@
+//Chapter 24: Space Wave Propagation
+//Example 24-12.1
+clc;
+
+//Variable Initialization
+gain = 10       //Gain of transmitting antenna (dB)
+P = 100         //Radiating power (W)
+f = 1e6        //Frequency (Hz)
+rx_gain = 15    //Gain of receiving antenna (dB)
+d = 20e3        //Distance (m)
+c = 3e8         //Speed of light (m/s)
+v = 1000        //Scattering volume (m^3)
+sigma = 0.1     //Effective scattering cross-section (m^2)
+
+//Calculations
+wl = c/f        //Wavelength (m)
+Pr_a = P*gain*rx_gain*(wl**2)/(4*%pi*(4*%pi*(d**2)))                //Received power in case (a) (W)
+F = (2*sqrt(sigma*v))/(d*sqrt(%pi))    //Attenuation Factor (unitless)
+Pr_b = Pr_a*F   //Received power in case (b) (W)
+
+
+//Result
+mprintf("The received power in case (a) is %.5f W", Pr_a)
+mprintf("\nThe received power in case (b) is %e W", Pr_b)
-- 
cgit