3 files changed, 56 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 ---! ");
+
diff --git a/689/CH4/EX4.2/2.sce b/689/CH4/EX4.2/2.sce
new file mode 100644
index 000000000..ef265620c
--- /dev/null
+++ b/689/CH4/EX4.2/2.sce
@@ -0,0 +1,19 @@
+clc; funcprot(0);
+//Example 4.2  Standard Pressure at Altitude After 35332 Feet 
+
+// Initialisation of variables
+P0 = 6.925;
+Z = 40000;
+R = 53.33;
+Z0 = 35332;
+T = 392.4;
+rho_0 = 0.002378;
+P0_SL = 29.92; // Pressure at sea level
+
+// Calculations
+P = P0*%e^((-Z+Z0)/(R*T));
+rho = rho_0 *P*T0/(P0_SL*T);
+
+//Results 
+disp(rho,"Density (slug per cu ft):",P,"Pressure (inch Hg):", "!---At an altitude of 40000 ft in standard altitude ---! ");
+
diff --git a/689/CH4/EX4.3/3.sce b/689/CH4/EX4.3/3.sce
new file mode 100644
index 000000000..31751d1b1
--- /dev/null
+++ b/689/CH4/EX4.3/3.sce
@@ -0,0 +1,18 @@
+clc; funcprot(0);
+//Example 4.3  Effect of Humidity 
+
+// Initialisation of variables
+Dry_Bulb = 80;
+Wet_Bulb = 76;
+Factor = 1.68;
+P = 29.92;
+T =  459.4+80;
+P = 29.30;
+Var3_by_8e = 0.30; // From Graph 
+
+// Calculations
+Dew_Point = Dry_Bulb - (Dry_Bulb-Wet_Bulb)*Factor;
+rho = 0.04120*(P - Var3_by_8e)/T; 
+//Results 
+disp(rho,"Density of the air when the temperature is 80 degree celcius(slug per cu ft):",Dew_Point,"Dew_Point :");
+