6 files changed, 58 insertions, 0 deletions
diff --git a/3856/CH21/EX21.1/Ex21_1.sce b/3856/CH21/EX21.1/Ex21_1.sce
new file mode 100644
index 000000000..12bb91d7f
--- /dev/null
+++ b/3856/CH21/EX21.1/Ex21_1.sce
@@ -0,0 +1,21 @@
+//How high will water rise in Xylem vessel of a plant
+
+//Examlpe 21.1
+
+clc;
+
+clear;
+
+gyma=0.07275; //Suface tension in N m^-1
+
+r=0.020*10^-2; //Radius of Xylem vessel in m
+
+g=9.81; //Acceleration due to gravity in m s^-1
+
+rho=1*10^3; //Density of water in kj m^-3
+
+costheta=1; //Beacause the contact angle is quite small we assume that theta=0
+
+h=(2*gyma*costheta)/(rho*g*r); //Height of the water that rise up in Xylem vessel in m (1 N=1 kg m s^-2 therefore N s^2 kg^-1=1 m)
+
+printf(" Hight of the  water that rise up in Xylem vessel of a plant = %.3f m",h); 
diff --git a/3856/CH21/EX21.1/Ex21_1.txt b/3856/CH21/EX21.1/Ex21_1.txt
new file mode 100644
index 000000000..f3f005f6b
--- /dev/null
+++ b/3856/CH21/EX21.1/Ex21_1.txt
@@ -0,0 +1 @@
+  Hight of the  water that rise up in Xylem vessel of a plant = 0.074 m
+\ No newline at end of file
diff --git a/3856/CH21/EX21.2/Ex21_2.sce b/3856/CH21/EX21.2/Ex21_2.sce
new file mode 100644
index 000000000..95c2bd937
--- /dev/null
+++ b/3856/CH21/EX21.2/Ex21_2.sce
@@ -0,0 +1,15 @@
+//Calculate the Root Mean Square distance traveled by a urea molucule
+
+//Example 21.2
+
+clc;
+
+clear;
+
+D=1.18*10^-9; //Diffusion coefficient of Urea in m^2 s^-1
+
+t=1*60*60; //Diffusion time in second
+
+meanx=sqrt(2*D*t)*1000; //Root mean square distance in mm
+
+printf("Root mean square distance traveled = %.1f mm",meanx); 
diff --git a/3856/CH21/EX21.2/Ex21_2.txt b/3856/CH21/EX21.2/Ex21_2.txt
new file mode 100644
index 000000000..e066e04c5
--- /dev/null
+++ b/3856/CH21/EX21.2/Ex21_2.txt
@@ -0,0 +1 @@
+ Root mean square distance traveled = 2.9 mm
+\ No newline at end of file
diff --git a/3856/CH21/EX21.3/Ex21_3.sce b/3856/CH21/EX21.3/Ex21_3.sce
new file mode 100644
index 000000000..7313e3d31
--- /dev/null
+++ b/3856/CH21/EX21.3/Ex21_3.sce
@@ -0,0 +1,19 @@
+//Estimate the Diffusion Coeffcient of a spherical molucule
+
+//Example 21.3
+
+clc;
+
+clear;
+
+KB=1.381*10^-23; //Boltzmann's constant in J K^-1
+
+T=300;  //Temperature in K
+
+eta=0.00101; //Viscosity of the solvent in N s m^-2
+
+r=1.5*10^-10; //Radius of molucule in m
+
+D=(KB*T)/(6*%pi*eta*r); //Diffusion cofficient of a molucule in m^2 s^-1 (1 J N^-1 m s^-1=1 m^2 s^-1)
+
+printf("Diffusion coeffcient of a spherical molucule = %.1f*10^-9 m^2 s^-1",D*10^9);
diff --git a/3856/CH21/EX21.3/Ex21_3.txt b/3856/CH21/EX21.3/Ex21_3.txt
new file mode 100644
index 000000000..9d1d6a0d3
--- /dev/null
+++ b/3856/CH21/EX21.3/Ex21_3.txt
@@ -0,0 +1 @@
+ Diffusion coeffcient of a spherical molucule = 1.5*10^-9 m^2 s^-1
+\ No newline at end of file