1 files changed, 20 insertions, 0 deletions
diff --git a/3819/CH2/EX2.26/Ex2_26.sce b/3819/CH2/EX2.26/Ex2_26.sce
new file mode 100644
index 000000000..b4b63b578
--- /dev/null
+++ b/3819/CH2/EX2.26/Ex2_26.sce
@@ -0,0 +1,20 @@
+// A Textbook of Fluid Mecahnics and Hydraulic Machines - By R K Bansal
+// Chapter 2 - Pressure and its measurements
+// Problem 2.19
+
+//Given Data Set in the Problem
+dens=1000
+g=9.81
+Z=5000
+p0=10.143*10^4
+t0=15
+T0=t0+273.15
+dens0=1.285
+L=-0.0065
+
+//calculations
+R=p0/(dens0*T0)
+//we know L=dT/dZ=-g(k-1)/(Rk)
+k=g/(L*R+g)
+p=p0*(1-(k-1)/k*g*Z*dens0/p0)^(k/(k-1))
+mprintf("The pressure when air follows adiabatic law is %f N/cm^2\n",p*10^-4)