1 files changed, 13 insertions, 0 deletions
diff --git a/752/CH15/EX15.4.1/15_4_1.sce b/752/CH15/EX15.4.1/15_4_1.sce
new file mode 100755
index 000000000..31c8c1f4d
--- /dev/null
+++ b/752/CH15/EX15.4.1/15_4_1.sce
@@ -0,0 +1,13 @@
+clc;
+//page no 560
+//prob no. 15.4.1
+ht=200;//virtual height in km
+a=6370;//in km
+B_degree=20;
+B_rad=20*%pi/180;//angle of elevation in degree
+// The flat-earth approximation gives 
+d=2*ht/tand(B_degree);
+disp('km',d,'d=');
+// By using radian measures for all angles
+d=2*a*(((%pi/2)-B_rad)-(asin(a*cosd(B_degree)/(a+ht))));
+disp('km',d,'d=');
+\ No newline at end of file