blob: 31c8c1f4d8c46e7b88248a228db7f38e10c5b2c8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
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=');
|
