summaryrefslogtreecommitdiff
path: root/3739/CH2/EX2.8/EX2_8.sce
diff options
context:
space:
mode:
Diffstat (limited to '3739/CH2/EX2.8/EX2_8.sce')
-rw-r--r--3739/CH2/EX2.8/EX2_8.sce21
1 files changed, 21 insertions, 0 deletions
diff --git a/3739/CH2/EX2.8/EX2_8.sce b/3739/CH2/EX2.8/EX2_8.sce
new file mode 100644
index 000000000..fa34aec73
--- /dev/null
+++ b/3739/CH2/EX2.8/EX2_8.sce
@@ -0,0 +1,21 @@
+//Chapter 2, Example 2.8, page 45
+clc
+//Initialisation
+Pt=10 //transmitter power in watt
+Gt=5 //antenna power in dBm
+Lt=2 //feeder loss in dB
+d=8000 //distance in meter
+pi=3.14 //pi
+no=120*pi
+
+//Calculation
+EIRP=Pt+Gt-Lt
+x=EIRP*10**-1
+EIRP2=10**x //Equivalent isotropic radiated power
+Ed=sqrt(30*EIRP2)/d //Electric Field Intensity
+W=(Ed**2)/(2*no) //power in watt
+
+//Result
+printf("EIRP = %.1f W",EIRP2)
+printf("\n|Ed| = %.2f mV/m",(Ed*10**3))
+printf("\n W = %.1f nW/m^2",(W*10**9))