initial commit / add all books

4 files changed, 62 insertions, 0 deletions

diff --git a/812/CH5/EX5.02/5_02.sce b/812/CH5/EX5.02/5_02.sce
new file mode 100755
index 000000000..bbf900b84
--- /dev/null
+++ b/812/CH5/EX5.02/5_02.sce
@@ -0,0 +1,8 @@
+//Rate of change//

+pathname=get_absolute_file_path('5.02.sce')

+filename=pathname+filesep()+'5.02-data.sci'

+exec(filename)

+//Rate of change of density with time(in kg/m^3-s):

+r=-d*V/L

+printf("\n\nRESULTS\n\n")

+printf("\n\nRate of change of density with time: %.1f kg/m^3-s\n\n",r)

diff --git a/812/CH5/EX5.07/5_07.sce b/812/CH5/EX5.07/5_07.sce
new file mode 100755
index 000000000..186042f6f
--- /dev/null
+++ b/812/CH5/EX5.07/5_07.sce
@@ -0,0 +1,15 @@
+//angular and rotation//

+pathname=get_absolute_file_path('5.07.sce')

+filename=pathname+filesep()+'5.07-data.sci'

+exec(filename)

+//At point b, u=3 mm/sec

+u=3;

+//Displacemet of b(in mm):

+xb=u*t

+//Rate of angular deformation(in s^-1):

+def=U/h

+//Rate of rotation(in s^-1):

+rot=-0.5*U/h

+printf("\n\nRSULTS\n\n")

+printf("\n\nRate of angular deformation: %.1f /sec\n\n",def)

+printf("\n\nRate of rotation: %.1f /sec\n\n",rot)

diff --git a/812/CH5/EX5.08/5_08.sce b/812/CH5/EX5.08/5_08.sce
new file mode 100755
index 000000000..f01cb0ced
--- /dev/null
+++ b/812/CH5/EX5.08/5_08.sce
@@ -0,0 +1,31 @@
+//Rates and area//

+pathname=get_absolute_file_path('5.08.sce')

+filename=pathname+filesep()+'5.08-data.sci'

+exec(filename)

+//Value of T:

+T=log(3/2)/A

+x0=1:2;

+y0=1:2;

+for i=1:2

+  for j=1:2

+  //For X coordinate:

+  X(i)(j)=x0(i)*%e^(A*T)

+  //For Y coordinate:

+  Y(i)(j)=y0(j)*%e^(-A*T)

+  end

+end

+plot(X,Y)

+//Rates of linear deformation in X direction:

+Ax=0.3;

+//Rate of linear deformation in the y direction:

+Ay=-0.3;

+//Rate of volume dilation(s^-1):

+v=A-A

+//Area of abcd:

+A1=1;

+//Area of a'b'c'd':

+A2=(3-3/2)*(4/3-2/3)

+printf("\n\nRESULTS\n\n")

+printf("\n\nRates of linear deformation in X and Y direction: %.1f /s , %.1f /s\n\n",Ax,Ay)

+printf("\n\nRate of volume dilation: %.0f /sec\n\n",v) 

+printf("\n\nArea of abcd and a,b,c,d:%.1f m^2, %.1f m^\n\n",A1,A2)

diff --git a/812/CH5/EX5.09/5_09.sce b/812/CH5/EX5.09/5_09.sce
new file mode 100755
index 000000000..f13da2f7a
--- /dev/null
+++ b/812/CH5/EX5.09/5_09.sce
@@ -0,0 +1,8 @@
+//Volume flow rate//

+pathname=get_absolute_file_path('5.09.sce')

+filename=pathname+filesep()+'5.09-data.sci'

+exec(filename)

+//Volume flow rate(in m^3/sec):

+Q=d*g*sind(theta)*b*(h/1000)^3*1000/u/3

+printf("RESULTS")

+printf("\n\nVolume flow rate: %.4f m^3/sec\n\n",Q)