blob: 86b665a3e6c68b9a2bc034bb647a4f9a8ec231dc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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)
|
