1 files changed, 24 insertions, 0 deletions
diff --git a/3739/CH6/EX6.2/EX6_2.sce b/3739/CH6/EX6.2/EX6_2.sce
new file mode 100644
index 000000000..86b665a3e
--- /dev/null
+++ b/3739/CH6/EX6.2/EX6_2.sce
@@ -0,0 +1,24 @@
+//Chapter 6, Example 6.2, page 223
+clc
+//Initialisation
+f=400                                       //frequency in MHz
+k=1.33                                       //k factor
+er=3                                         //dielectric conductivity
+sg=10**-4                                    //Earth effective conductivity
+eo=8.85*10**-12                             //permittivity of free space
+re1=8500                                     //Effective Earth radius in Km
+c=3*10**8                                    //speed of light
+B=1
+d=50
+
+
+//Calculation
+kh=1.6*10**-3                                 //horizontal polarization using Fig. 6.2
+kv=5*10**-3                                   //vertical polarization using Fig. 6.2
+X=2.2*B*f**(1*3**-1)*re1**(-2*3**-1)*d        //normalized length of the path
+FX=11+10*log10(X)-17.6*X                       //distance attenuation value
+
+//Results
+printf("(1) Kh = %.1f x 10**-3",(kh*10**3))
+printf("\n    Kv = %.1f x 10**-3",(kv*10**3))
+printf("\n(2) F(X) = %.2f dB",FX)