1 files changed, 8 insertions, 0 deletions
diff --git a/779/CH1/EX1.4/1_4.sce b/779/CH1/EX1.4/1_4.sce
new file mode 100755
index 000000000..97ff90a34
--- /dev/null
+++ b/779/CH1/EX1.4/1_4.sce
@@ -0,0 +1,8 @@
+Pr = 1.033e05; // Required Pressure in bar
+function y = pressure(p)
+  y = p^(-0.714);
+endfunction;
+g = 9.81; // Acceleration due to gravity in m/s2
+H = ((2.5e05^0.714)/g)*intg(0,Pr,pressure); // Depth of atmosphere required in m
+disp("Km",H/1000,"The depth of atmosphere required is ") 
+  
+\ No newline at end of file