summaryrefslogtreecommitdiff
path: root/3739/CH7/EX7.12/EX7_12.sce
blob: 388cfe8eae9b3b91809c94bf5164fc7a7141fce7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//Chapter 7, Example 7.12, page 340
clc

//Initialisation
dn=70                                       //dN = 70
d1=1000                                     //height from sea level in m
d2=1400                                     //height from sea level in m
d=45                                        //radio link distance in km

//Calculation
K=10**(-4.2-0.0029*-dn)                      //Climate factor
ep=(d2-d1)/d                                 //magnitude of the path inclination
po=K*d**3*(1+ep)**(-1.2)*10**(0.033*6-1)      //Fading occurrence probability


//Results
printf("(1) Climate factor K = %.4f = 10^-4",K)
printf("\n(2) Fading occurrence probability Po = %.2f percent",po)