summaryrefslogtreecommitdiff
path: root/3739/CH5/EX5.3/EX5_3.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3739/CH5/EX5.3/EX5_3.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3739/CH5/EX5.3/EX5_3.sce')
-rw-r--r--3739/CH5/EX5.3/EX5_3.sce32
1 files changed, 32 insertions, 0 deletions
diff --git a/3739/CH5/EX5.3/EX5_3.sce b/3739/CH5/EX5.3/EX5_3.sce
new file mode 100644
index 000000000..66da61631
--- /dev/null
+++ b/3739/CH5/EX5.3/EX5_3.sce
@@ -0,0 +1,32 @@
+
+//Chapter 5, Example 5.3, page 191
+clc
+//Initialisation
+c=3*10**8 //speed of light
+f=10*10**6 //frequency in Hz
+e0=8.85*10**-12 //permitivity of free space
+er=10 //ground characteristics
+s=0.005
+d=30000
+pt=200 //transmitter power in watt
+gt=1 //gain of transmitter antenna
+gr=1 //gain of receiver antenna
+pi=3.14 //pi
+
+//Calculation
+h=c*f**-1 //wavelength
+e=er*e0 //epsilon
+b=s/(2*pi*f*e)
+b1=sqrt(er**2+b**2)
+p=(pi*d)/(h*b1) //The answer provided in the textbook is wrong
+i=((er*e0*2*3.14*f)/s)
+b2=atan(i)
+b3=b2*180/pi
+a1=((2+0.3*p)/(2+p+0.6*p**2))
+a2=sqrt(p/2)*(5*10**-82)*sin(-b3)
+As=a1-a2 //attenuation function
+pr=pt*gt*gr*h**2/(4*pi*d)**2
+pr1=pr*(2*As)**2 //The answer provided in the textbook is wrong
+
+//Results
+printf("Received signal power Pr = %.2f pW",(pr1*10**12)) //The answer provided in the textbook is wrong