initial commit / add all books

18 files changed, 179 insertions, 0 deletions

diff --git a/3758/CH1/EX1.1/Ex1_1.sce b/3758/CH1/EX1.1/Ex1_1.sce
new file mode 100644
index 000000000..198c78b7f
--- /dev/null
+++ b/3758/CH1/EX1.1/Ex1_1.sce
@@ -0,0 +1,10 @@
+w=4000; //weight of certain oil in kg

+v=5; //volume of given oil in cubic metre

+g=9.81; //acceleration due to gravity in m/s^2

+r=1000; //specific weight of water in kg/cubic metre

+s=w/v; //calculating specific weight of oil in kg/cubic metre

+printf('specific weight of oil is %f kg/cubic metre\n',s);

+m=s/g //mass density of oil;

+printf('mass density of oil is %f kg/cubic metre\n',m);

+p=s/r // specific gravity of oil

+printf('specific gravity of oil is %f',p);

diff --git a/3758/CH1/EX1.10/Ex1_10.sce b/3758/CH1/EX1.10/Ex1_10.sce
new file mode 100644
index 000000000..9b94128ae
--- /dev/null
+++ b/3758/CH1/EX1.10/Ex1_10.sce
@@ -0,0 +1,12 @@
+clc;

+d1=0.3;//diameter of inner cylinder in meter

+d2=0.31; //diameter of outer cylinder in meter

+t=0.98; //torque in newton-meter

+w=2*3.14; //amgular veocity in radian/sec

+h=0.3; //height of both cylinder in meter

+v=((d1/2)*w); //calculating the tangential velocity in m/sec

+y=(d2-d1)/2; //calculating thickness of plate in meter

+s=t/((2*3.14*(d1/2)*h)*(d1/2)); //calculating shear resisitance in newton/m^2

+disp(s);

+u=(s*y)/v; //calculating viscosity of liquid

+printf('viscosity of liquid is %f newton-sec/m^2',u);

diff --git a/3758/CH1/EX1.13/Ex1_13.sce b/3758/CH1/EX1.13/Ex1_13.sce
new file mode 100644
index 000000000..9f2b6fdd4
--- /dev/null
+++ b/3758/CH1/EX1.13/Ex1_13.sce
@@ -0,0 +1,8 @@
+clc;

+p1=75; //intial pressure in kg/cm^2

+p2=140; //final pressure in kg/cm^2

+dp=(p2-p1); //calculating change in pressure

+dv=-0.147; //percentage  decrease in volume 

+v=100; //original volume in percentage

+k=dp/(dv/v); //calulating bulk modulus of elasticity

+printf('bulk modulus of elasticity of liquid is %f kg/cm^2',k);

diff --git a/3758/CH1/EX1.14/Ex1_14.sce b/3758/CH1/EX1.14/Ex1_14.sce
new file mode 100644
index 000000000..4633a5aeb
--- /dev/null
+++ b/3758/CH1/EX1.14/Ex1_14.sce
@@ -0,0 +1,8 @@
+v2=0.0112; //final volume in m^3

+v1=0.0113; //initial volume in m^3

+dv=v2-v1; // calculating change in volume

+p1=6.87*10^6; //initial pressure in N/m^2

+p2=13.73*10^6; //final pressure in N/m^2

+dp=p2-p1; //calculating change in pressure

+k=-dp/(dv/v1); //calculating bulk modulus of elasticity

+printf('bulk modulus of elasticity is %f N/m^2',k);

diff --git a/3758/CH1/EX1.15/Ex1_15.sce b/3758/CH1/EX1.15/Ex1_15.sce
new file mode 100644
index 000000000..6b6cadc9a
--- /dev/null
+++ b/3758/CH1/EX1.15/Ex1_15.sce
@@ -0,0 +1,10 @@
+clc;

+dp=840 ;// pressure in kg/cm^2

+w=1025; // specific weight of water in kg/m^3

+k=24*10^3; // bulk modulus of elasticity in kg/cm^2

+v=dp/k; //v =dv/v calculating change in volume

+s=1/w; // calculating specific volume of water at surface of ocean in m^3/kg

+dv=v/w; // calculating change in specific volume between surface and depth in m^3/kg

+v1=s-dv; // calculating specific volume at depth

+w1=1/v1; // calculating specific weight of water at depth

+printf('specific weight of water at depth is %f kg/m^3',w1);

diff --git a/3758/CH1/EX1.16/Ex1_16.sce b/3758/CH1/EX1.16/Ex1_16.sce
new file mode 100644
index 000000000..3d7429ffa
--- /dev/null
+++ b/3758/CH1/EX1.16/Ex1_16.sce
@@ -0,0 +1,7 @@
+clc;

+dp=0.0018*10^4; // difference in inside and outside surface of bubble in kg/mm^2

+T=0.0075*10^3; // surface tension of water in contact in kg/mm

+Temp=20; //temperature of air in degree

+r=(2*T)/dp // calculating radius of droplet of water

+d=2*r; // calculating diameter of droplet of water

+printf('diameter of droplet of water is %f mm',d);

diff --git a/3758/CH1/EX1.17/Ex1_17.sce b/3758/CH1/EX1.17/Ex1_17.sce
new file mode 100644
index 000000000..ba760736e
--- /dev/null
+++ b/3758/CH1/EX1.17/Ex1_17.sce
@@ -0,0 +1,8 @@
+clc;

+d=0.05*10^-1; // diameter of droplet of water in cm

+Pout=1.03; // pressure outside the droplet in kg/cm^2

+T=0.0075*10^-2; // surface tension in kg/cm

+r=d/2 // radius of droplet in cm

+Pin=(2*T)/r; //calcuating pressure inside droplet in kg/cm^2

+P=Pin+Pout; // pressure intensity within the droplet of water

+printf('pressure intensity within the droplet of water is %f kg/cm^2',P);

diff --git a/3758/CH1/EX1.18/Ex1_18.sce b/3758/CH1/EX1.18/Ex1_18.sce
new file mode 100644
index 000000000..d87620729
--- /dev/null
+++ b/3758/CH1/EX1.18/Ex1_18.sce
@@ -0,0 +1,17 @@
+clc;

+d=2; //diameter of glass tube in mm

+r=(d/2)*10^-1 // radius of glass tube in cm

+T=0.0075*10^-2; // surface tension of water in kg/cm

+T1=0.052*10^-2; // surface tension of mercury in kg/cm

+// calculating capillary rise for water

+w=1000*10^-6; // specific weight of water in kg/cm^3

+s=1; //specific gravity of water 

+theta=0; // angle of contact between liquid and tube

+h=(2*T*cos(theta))/(s*w*r); // calculating height of capillary rise

+printf('height of capillary rise in water is %f cm\n',h);

+// calculating capillary rise for mercury

+s=13.6; //specific gravity of mercury

+theta=130; // angle of contact between mercury and tube

+h=(2*T1*cos(theta*(3.14/180)))/(s*w*r); // calculating height of capillary rise

+printf('height of capillary rise in mercury is %f cm/n ',h);

+disp('negative sign indicates decrease in height of mercury');

diff --git a/3758/CH1/EX1.19/Ex1_19.sce b/3758/CH1/EX1.19/Ex1_19.sce
new file mode 100644
index 000000000..376606640
--- /dev/null
+++ b/3758/CH1/EX1.19/Ex1_19.sce
@@ -0,0 +1,8 @@
+clc;

+h=0.25; //height of capillary rise in cm

+t=0.0075*10^-2; //surface tension in kg/cm

+s=1; //specific gravity of water

+w=1000*10^-6; //soecific weight of water in kg/cm^3

+r=(2*t)/(s*w*h); //calculating radius of glass tube

+d=2*r; //diameter of glass tube

+printf('diameter of glass tube is %f cm',d);

diff --git a/3758/CH1/EX1.2/Ex1_2.sce b/3758/CH1/EX1.2/Ex1_2.sce
new file mode 100644
index 000000000..5d4ba74c3
--- /dev/null
+++ b/3758/CH1/EX1.2/Ex1_2.sce
@@ -0,0 +1,10 @@
+v=5; //volume of oil in cubic meter

+w=40; //weight of oil in kilo newton

+g=9.81; //acceleration due to gravity in meter per second square

+h=9810; //specific weight of water in newton per cubic meter

+s=(w*1000)/v; //specific weight of oil in newton per cubic meter

+printf('specific weight of oil is %f N/m^3\n',s);

+m=s/g; //mass density of oil in kilogram per cubic meter

+printf('mass density of oil is %f Kg/m^3\n',m);

+f=s/h; //specific gravity of oil

+printf('specific gravity of oil is %f ',f);

diff --git a/3758/CH1/EX1.20/Ex1_20.sce b/3758/CH1/EX1.20/Ex1_20.sce
new file mode 100644
index 000000000..9296d6ee4
--- /dev/null
+++ b/3758/CH1/EX1.20/Ex1_20.sce
@@ -0,0 +1,10 @@
+clc;

+s=0.85; //specific gravity of oil

+d=1.5*10^-3; //diameter of glass tube in meter

+r=d/2; //calculating radius of glass tube in meter

+h=1.25*10^-2; //height of capillary in meter

+p=15; //bubble pressure in kg/m^2

+w=1000; //specific weight of water in kg/m^3

+p1=p-(s*w*h); //effective pressure attributable to surface tensions

+t=(p1*r)/2; //calculating unit surface energy or surface tension in kg/m

+printf('unit surface energy is %f kg/m',t);

diff --git a/3758/CH1/EX1.21/Ex1_21.sce b/3758/CH1/EX1.21/Ex1_21.sce
new file mode 100644
index 000000000..59bf2fb42
--- /dev/null
+++ b/3758/CH1/EX1.21/Ex1_21.sce
@@ -0,0 +1,18 @@
+clc;

+d=3*10^-3; //diameter of glass tube in meter

+r=d/2; //calculating radius of glass tube in meter

+//capillary rise for water

+theta=0; //angle of contact between liquid and galss tube in degree

+t=0.0736; //surface tension of water in N/m

+w=9810; //specific weight of water in N/m^3

+s=1; //specific gravity of water

+h=(2*t*cos(theta*(3.14/180))*10^3)/(s*w*r); //calculating capillary rise

+printf('capillary rise for water is %f milimeter\n',h);

+//capillary rise for mercury

+theta=130;//angle of contact between liquid and galss tube in degree

+t=0.51; //surface tension of water in N/m

+w=9810; //specific weight of water in N/m^3

+s=13.6; //specific gravity of mercury

+h=(2*t*cos(theta*3.14/180)*10^3)/(s*w*r); //calculating capillary rise

+printf('capillary rise for mercury is %f milimeter\n',h);

+printf('negative sign indicate capillary depression');

diff --git a/3758/CH1/EX1.4/Ex1_4.sce b/3758/CH1/EX1.4/Ex1_4.sce
new file mode 100644
index 000000000..169220e40
--- /dev/null
+++ b/3758/CH1/EX1.4/Ex1_4.sce
@@ -0,0 +1,6 @@
+f=0.2; // shear stress in kg/m^2

+v=0.61; // velocity in m/sec

+y=0.0000254; // distance between two plate in m

+u=(f*y)/v; //calculating dynamic viscosity 

+printf('Dymanic viscosity of fluid between plates is %f kg sec/m^2',u);  

+

diff --git a/3758/CH1/EX1.5/Ex1_5.sce b/3758/CH1/EX1.5/Ex1_5.sce
new file mode 100644
index 000000000..5cb7c9779
--- /dev/null
+++ b/3758/CH1/EX1.5/Ex1_5.sce
@@ -0,0 +1,6 @@
+t=0.216; // shear stress in N/m^2

+v=0.216; // velocity gradient in sec^-1

+m=959.42; // mass density of castor oil in kg/m^3

+u=t/v; //determining dynamic viscosity of castor oil in N sec/m^2

+k=u/m; // calculating kinematic viscosity

+printf('kinematic viscosity of castor oil is %f m^2/sec',k); 

diff --git a/3758/CH1/EX1.6/Ex1_6.sce b/3758/CH1/EX1.6/Ex1_6.sce
new file mode 100644
index 000000000..bba6962c6
--- /dev/null
+++ b/3758/CH1/EX1.6/Ex1_6.sce
@@ -0,0 +1,8 @@
+clc;

+u=4.9*10^-4; //dynamic viscosity in kg sec/m^2

+k=3.49*10^-2; //kinematic viscosity in stokes 

+k=3.49*10^-6; //converting kinematic viscosity in stokes to m^2/sec

+w=102; // mass density of water in kg/m^3

+m=u/k; //calculating mass density in kg/m^3

+s=m/w; // calculating specific gravity of liquid

+printf(' specific gravity of liquid is %f',s);

diff --git a/3758/CH1/EX1.7/Ex1_7.sce b/3758/CH1/EX1.7/Ex1_7.sce
new file mode 100644
index 000000000..2bfd420ce
--- /dev/null
+++ b/3758/CH1/EX1.7/Ex1_7.sce
@@ -0,0 +1,12 @@
+clc;

+s=2; //specific gravity of liquid

+m=102; // mass density of water in msl/m^3

+m1=1000; // mass density of water in kg/m^3

+w=2*m; // mass density of liquid in msl/m^3

+w1=2*m1; // mass density of liquid in kg/m^3

+k=5.58; // kinematic viscosity in stokes

+k1=5.58*10^-4; //kinematic viscosity in m^2/sec

+u=k1*w; // dynamic viscosity of liquid 

+printf('dynamic viscosity in matric gravitational unit is %f kg sec/m^2\n',u);

+u=k1*w1; // dynamic viscosity of liquid

+printf('dynamic viscosity in S.I unit is %f N sec/m^2',u')

diff --git a/3758/CH1/EX1.8/Ex1_8.sce b/3758/CH1/EX1.8/Ex1_8.sce
new file mode 100644
index 000000000..ac514bcc7
--- /dev/null
+++ b/3758/CH1/EX1.8/Ex1_8.sce
@@ -0,0 +1,10 @@
+clc;

+l=25; //length of plate in centimeter

+b=5; //bredth of plate in centimeter

+a=(l*b)*10^-4; //calculating area of plate in m^2

+v=2; //velocity with which plate slides in meter/sec

+theta=30; //angle of plate with surface in degree

+y=0.002 //gap between plate and inclined surface

+r=l*sin(theta*(3.14/180));//viscous resistance in kg

+u=(r*y)/(v*a); //calculating viscosity of oil

+printf('viscosity of oil is %f kg-sec/m^2',u);

diff --git a/3758/CH1/EX1.9/Ex1_9.sce b/3758/CH1/EX1.9/Ex1_9.sce
new file mode 100644
index 000000000..e8ff2ac4f
--- /dev/null
+++ b/3758/CH1/EX1.9/Ex1_9.sce
@@ -0,0 +1,11 @@
+clc;

+l=20; //length of edge of cubical block in centimeter

+theta=20; //inclination of plane with horizontal in degree

+w=20; //weight of cubical block in kg

+y=0.025*10^-3; //thickness of film im meter

+u=0.22*10^-3; //viscosity of oil in kg-sec/m^2

+f=w*sin(theta*(3.14/180)); //calculating force causing downward motion of block 

+a=(l^2)*10^-4; //calculating area of one face of cube

+t=f/a; //calculating shear resistance

+v=(t*y)/u; //calculating terminal velocity

+printf('terminal velocity is %f meter/se',v);