summaryrefslogtreecommitdiff
path: root/3773/CH25/EX25.1/Ex25_1.sce
blob: 04cf3d33fb261e8f1ce8f9d18d638951be2e94c5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//Chapter 25: Sky Wave Propagation
//Example 25-5.1
clc;

//Variable Initialization
muf = 10e6    //Maximum usable frequency (Hz)
h = 300    //Height of reflection (km)
n = 0.9      //Maximum value of refractive index (unitless)

//Calculations
Nmax = (1 - n**2)*(muf**2)/81    //Max. Number of electrons per cubic cm
fc = 9*sqrt(Nmax)    //Critical frequency (Hz)
dskip = 2*h*sqrt((muf/fc)**2 - 1)   //Skip distance (km)


//Result
mprintf("The skip distance is %.1f km",dskip)

//An error has been made in the calculation of sqrt((muf/fc)**2 - 1)