summaryrefslogtreecommitdiff
path: root/689/CH17/EX17.2/2.sce
blob: ea0ebc51e3819e57d769a30dad2b40a135369232 (plain)
1
2
3
4
5
6
7
8
9
10
11
clc; funcprot(0);
//Example 17.2 Time to Climb Altitude
//Variable Initialisation
RC0 = 1000;             //Rate of climb at sea level
H = 15000;              //Absolute Ceiling
h = 7000;               // Height to climb

//Calculation
t = H*log(H/(H-h))/RC0;
//Results
disp(t,"Time to climb (min) : ");