summaryrefslogtreecommitdiff
path: root/3739/CH7/EX7.11/EX7_11.sce
blob: 03939357bf517e407008e29db6176900e6e6d2ab (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//Chapter 7, Example 7.11, page 333
clc

//Initialisation
kq=2.6*10**-6                                 //geoclimatic coefficient
f=6                                           //frequency in GHz
d=45                                          //distance in Km
gc=0.098                                      //GC factor
ab=0.25                                       //geoclimatic factor

//Calculation
po=kq*f*gc*d**3                              //In country
po1=0.3*ab*(f*4**-1)*(d*50**-1)**3           //In mountainous area



//Results
printf("Fading occurrence probability")
printf("\n(1) In country = %.2f",po)
printf("\n(2) In mountainous area = %.3f",po1)