summaryrefslogtreecommitdiff
path: root/2219/CH11/EX11.10/Ex11_10.sce
blob: 88bf5b71dd389c76f91b7ac8eead3963fb7267e1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
// Chapter 11 example 10
//------------------------------------------------------------------------------
clc;
clear;
// Given data
e       = 0.5;      // orbit eccentricity
ae      = 14000;    // from fig. the distance from center of ellipse to the centre of earth

// Calculations
a       = ae/e;         // semi major axis
apogee  = a*(1 + e);    // Apogee in km
perige  = a*(1 - e);    // perigee in km

// output
mprintf('Apogee = %d km\n Perigee = %d km',apogee,perige);
//------------------------------------------------------------------------------