summaryrefslogtreecommitdiff
path: root/3788/CH2/EX2.1.3/Ex2_1_3.sce
blob: 503bb20b70290e5d72e3372924ab6a5d90f28991 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//Example 2.1.3
//Elliptical Orbit

//Variable Declaration
re=6378.14
hp=1000
ha=4000
u=3.98600*((10)^5)

//Calculation
a=(2*re+hp+ha)/2
T=sqrt((4*(%pi^2)*(a^3)/u))

e=1-((re+hp)/a)               //Eccentricity of orbit

//Result
printf("The period of  orbit is : %f seconds",T)
disp(e,'Eccentricity of orbit')