diff options
Diffstat (limited to '689/CH17')
| -rw-r--r-- | 689/CH17/EX17.1/1.sce | 15 | ||||
| -rw-r--r-- | 689/CH17/EX17.2/2.sce | 11 | ||||
| -rw-r--r-- | 689/CH17/EX17.3/3.sce | 11 |
3 files changed, 37 insertions, 0 deletions
diff --git a/689/CH17/EX17.1/1.sce b/689/CH17/EX17.1/1.sce new file mode 100644 index 000000000..b3a0bd1c0 --- /dev/null +++ b/689/CH17/EX17.1/1.sce @@ -0,0 +1,15 @@ +clc; funcprot(0);
+//Example 17.1 Absolute and service ceilings
+//Variable Initialisation
+W = 4000;
+DelHp0 = 60;
+DelHp10K = 17;
+
+//Calculation
+RC0 = DelHp0*33000/W;
+RC10K = DelHp10K*33000/W;
+H = 10000/(1 - (RC10K/RC0));
+Hs = H*(RC0-100)/RC0;
+
+//Results
+disp(Hs,"Service Ceiling (ft) : ");
diff --git a/689/CH17/EX17.2/2.sce b/689/CH17/EX17.2/2.sce new file mode 100644 index 000000000..ea0ebc51e --- /dev/null +++ b/689/CH17/EX17.2/2.sce @@ -0,0 +1,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) : ");
diff --git a/689/CH17/EX17.3/3.sce b/689/CH17/EX17.3/3.sce new file mode 100644 index 000000000..40e274eec --- /dev/null +++ b/689/CH17/EX17.3/3.sce @@ -0,0 +1,11 @@ +clc; funcprot(0);
+//Example 17.2 Time to Climb Formula
+//Variable Initialisation
+h1 = 8000;
+h2 = 13600;
+
+//Calculation
+H = h1^2/(2*h1-h2);
+
+//Results
+disp(H,"Ceiling (ft) : ");
|