diff options
Diffstat (limited to '3739/CH3/EX3.13/EX3_13.sce')
| -rw-r--r-- | 3739/CH3/EX3.13/EX3_13.sce | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/3739/CH3/EX3.13/EX3_13.sce b/3739/CH3/EX3.13/EX3_13.sce new file mode 100644 index 000000000..0f675b1a2 --- /dev/null +++ b/3739/CH3/EX3.13/EX3_13.sce @@ -0,0 +1,20 @@ +//Chapter 3, Example 3.13, page 109
+clc
+
+//Initialisation
+eirp=800 //in KW
+d=24 //in Km
+a=0.03 //in radian
+d1=22 //in Km
+d2=2 //in Km
+h=0.4*10**-3 //wavelength in m
+Er=45 //in microvolt
+
+//Calculation
+E=104.8+10*log10(eirp)-20*log10(d) //field intensity
+V=a*sqrt((2*d2*d1)/((d1+d2)*h)) //knife edge obstacle attenuation
+Lke=23 //from table 3.4
+er=10**(Er*20**-1)
+
+//Results
+printf("(1) Electric field intensity = %.3f microV/m",er)
|