diff options
Diffstat (limited to '3773/CH25/EX25.1/Ex25_1.sce')
| -rw-r--r-- | 3773/CH25/EX25.1/Ex25_1.sce | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/3773/CH25/EX25.1/Ex25_1.sce b/3773/CH25/EX25.1/Ex25_1.sce new file mode 100644 index 000000000..04cf3d33f --- /dev/null +++ b/3773/CH25/EX25.1/Ex25_1.sce @@ -0,0 +1,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) |