summaryrefslogtreecommitdiff
path: root/3739/CH5/EX5.11/EX5_11.sce
blob: 09a758155cf9d30a71c2d0d709bf561cfae8d14e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//Chapter 5, Example 5.11, page 208
clc

//Initialisation
d=2500                                      //distance in Km
re=6370                                     //radius of earth in Km
dt=6                                        //elevation angle in degree
f1=15                                       //frequency in MHz
los1=42                                     //loss
pi=3.14

//Calculation
teta=d*(2*re)**-1                   //in radian
teta1=teta*180*pi**-1              //in degree
phi=90-dt-teta1
l=(2*re*sin(teta))/sin(phi*pi/180)
fsl=32.4+(20*log10(f1))+(20*log10(l))        //Free space loss
pr=57+6-fsl-los1                                    //receving power in dB
pr1=10**(pr/10)                                    //receving power in Watt

//Results
printf("Power = %.2f pW",(pr1*10**12))