blob: 19e0b33811bd2f72ed2830b0e96f9e0c8124a994 (
plain)
1
2
3
4
5
6
7
8
9
|
clc;
close();
clear();
//page no 548
//prob no. 17.2
L=37; //latitude in degree
R=6400; H=36000; //from the text
del=atan(R*sin(L*%pi/180)/(H+R*(1-cos(L*%pi/180)))) //Declination angle
mprintf('The ange is %.2f degree\n',del*180/%pi);
|
