summaryrefslogtreecommitdiff
path: root/3773/CH25/EX25.5/Ex25_5.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3773/CH25/EX25.5/Ex25_5.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3773/CH25/EX25.5/Ex25_5.sce')
-rw-r--r--3773/CH25/EX25.5/Ex25_5.sce20
1 files changed, 20 insertions, 0 deletions
diff --git a/3773/CH25/EX25.5/Ex25_5.sce b/3773/CH25/EX25.5/Ex25_5.sce
new file mode 100644
index 000000000..295a1bacf
--- /dev/null
+++ b/3773/CH25/EX25.5/Ex25_5.sce
@@ -0,0 +1,20 @@
+//Chapter 25: Sky Wave Propagation
+//Example 25-9.1
+clc;
+clear;
+
+//Variable Initialization
+d = 200 //Height of layer (km)
+bet = 20 //Takeoff angle (degrees)
+R = 6370 //Earth's radius (km)
+
+//Calculations
+phi_0 = 90 - bet //Take off angle for flat earth (degrees)
+h = (d/2)/(sqrt((cos(phi_0*%pi/180)**-2) - 1)) //Skip distance for case (a) (km)
+
+phi_02 = 90 - bet - 57.2*d/(2*R) //Take off angle for spherical earth (degrees)
+h2 = (d/2)/(sqrt((cos(phi_02*%pi/180)**-2) - 1)) //Skip distance for case (b) (km)
+
+//Result
+mprintf("The skip distance for case (a) is %.3f km", h)
+mprintf("\nThe skip distance for case (b) is %.2f km", h2)