7 files changed, 68 insertions, 0 deletions
diff --git a/3814/CH1/EX1.1/Ex1_1.sce b/3814/CH1/EX1.1/Ex1_1.sce
new file mode 100644
index 000000000..6d987c9aa
--- /dev/null
+++ b/3814/CH1/EX1.1/Ex1_1.sce
@@ -0,0 +1,7 @@
+
+// determine the absolute pressure in the tank
+clc
+patom=47.2 // pressure of an atom 
+pg=40 // pressure at 40kpa from table
+pa=patom-pg
+mprintf('\n absoulte pressure in the tank is %f kPa',pa)
diff --git a/3814/CH1/EX1.2/Ex1_2.sce b/3814/CH1/EX1.2/Ex1_2.sce
new file mode 100644
index 000000000..e085cec83
--- /dev/null
+++ b/3814/CH1/EX1.2/Ex1_2.sce
@@ -0,0 +1,9 @@
+
+// determine the height that the water will rise to capillary action in the tube
+clc
+sigma=0.073 // sigma of pipe
+gamma1=9800 // gammma constant
+D=2e-3// diameter of the pipe
+h=(4*sigma)/(gamma1*D) // height of the water rise in capillary
+mprintf('\n height of water rise in capillary is given by %f meter',h)
+
diff --git a/3814/CH1/EX1.3/Ex1_3.sce b/3814/CH1/EX1.3/Ex1_3.sce
new file mode 100644
index 000000000..04760eb72
--- /dev/null
+++ b/3814/CH1/EX1.3/Ex1_3.sce
@@ -0,0 +1,14 @@
+// determine mach number
+clc
+Z=10000 //  altitude meter
+T=223.3 // temperature in kelvin
+k=1.4 // constant of 
+R=287 // constant
+d=800*1000 // speed of aircraft flies
+c1=3600 // minutes and second
+c=sqrt(k*T*R)
+mprintf('\n velocity of sound  C = %f m/s',c)
+v=d/c1
+mprintf('\n speed of aircraft  V = %f m/s',v)
+M=v/c
+mprintf('\n Mach number M =V/C = %f ',M)
diff --git a/3814/CH1/EX1.4/Ex1_4.sce b/3814/CH1/EX1.4/Ex1_4.sce
new file mode 100644
index 000000000..d851cfc76
--- /dev/null
+++ b/3814/CH1/EX1.4/Ex1_4.sce
@@ -0,0 +1,13 @@
+
+// to calculATE REYNOLD'S NUMBER IN SI UNITS
+clc
+S=0.91 // specfic gravity
+d=1000 // density of water
+d1=25e-3 //diameter of pipe 
+v=2.6 //volume 
+u=0.38 // viscosity Ns/m2
+p=(S*d)
+mprintf('\n fluid density specific gravity %f Kg/m3',p)
+Re=(p*d1*v)/u
+mprintf('\n Reynold s value Re= %f',Re)
+mprintf('Reynolds value is dimensionless,no unit')
diff --git a/3814/CH1/EX1.5/Ex1_5.sce b/3814/CH1/EX1.5/Ex1_5.sce
new file mode 100644
index 000000000..dcd63700f
--- /dev/null
+++ b/3814/CH1/EX1.5/Ex1_5.sce
@@ -0,0 +1,6 @@
+// to calculate pressure of air at the nozzle
+clc
+R=1e-3 // radius in meter
+sigma= 72.7e-3// N/m
+p=(2*sigma)/R
+mprintf('\n Excess pressure p= %f N/m2',p)
diff --git a/3814/CH1/EX1.6/Ex1_6.sce b/3814/CH1/EX1.6/Ex1_6.sce
new file mode 100644
index 000000000..4dfeaffe9
--- /dev/null
+++ b/3814/CH1/EX1.6/Ex1_6.sce
@@ -0,0 +1,5 @@
+//  to design  shear stress no calculations is there in this chapter only formula
+clc
+mprintf('\n shear stress t=u(dv/dr)=u.B/4u(-2r)')
+mprintf('\n for r=D/2; t=-BD/4')
+mprintf('\n r=D/4 ; t =-BD/8')
diff --git a/3814/CH1/EX1.7/Ex1_7.sce b/3814/CH1/EX1.7/Ex1_7.sce
new file mode 100644
index 000000000..46380635d
--- /dev/null
+++ b/3814/CH1/EX1.7/Ex1_7.sce
@@ -0,0 +1,14 @@
+
+// to determine density of air,weight of air in the tank
+clc
+p1=101.3 // absolute pressure in the tank in kpa
+Ab=(3*p1)+(p1)
+mprintf('\n Absolute pressure in the tank in kPa = %f kPa',Ab)
+R=287 // constant value
+T=288 // temperature in kelvin
+d=Ab/(R*T)
+mprintf('\n Density  p = %e Kg/m3',d*10^3)
+m=0.85 // mass in m3
+g=9.8 // gammma constant
+W=(d*m*g)
+mprintf('\n Weight of air W=mg= %f Kg',W*10^3)