1 files changed, 19 insertions, 0 deletions
diff --git a/689/CH4/EX4.1/1.sce b/689/CH4/EX4.1/1.sce
new file mode 100644
index 000000000..daa2a3ecd
--- /dev/null
+++ b/689/CH4/EX4.1/1.sce
@@ -0,0 +1,19 @@
+clc; funcprot(0);
+//Example 4.1  Standard Pressure at Altitude Below 35332 Feet 
+
+// Initialisation of variables
+Z = 18000;
+a = 0.003566;
+P0 = 29.92;
+T0 = 518.4;
+R = 53.33;
+rho_0 = 0.002378;
+
+// Calculations
+T = T0 - a*Z;
+P = P0*(T/T0)^(1/a/R);
+rho = rho_0*P*T0/(P0*T);
+
+//Results 
+disp(rho,"Density (slug per cu ft):",P,"Pressure (inch Hg):", T-459.4, "Temperature (Degree Farenheit):", "!---At an altitude of 18000 ft in standard altitude ---! ");
+