initial commit / add all books

10 files changed, 164 insertions, 0 deletions

diff --git a/3689/CH17/EX17.1/17_1.sce b/3689/CH17/EX17.1/17_1.sce
new file mode 100644
index 000000000..8ea5bc505
--- /dev/null
+++ b/3689/CH17/EX17.1/17_1.sce
@@ -0,0 +1,14 @@
+//////

+//Variable Declaration

+M = 0.040                  //Molecualar wt of Argon, kh/mol

+P = 101325.0    //Pressure and Temperature, Pa, K

+ T = 298.0 

+sigm = 3.6e-19  //

+R = 8.314                  //Molar Gas constant,  mol^-1 K^-1

+N_A = 6.02214129e+23       //mol^-1

+//Calculations

+DAr = (1./3)*sqrt(8*R*T/(%pi*M))*(R*T/(P*N_A*sqrt(2)*sigm))

+

+//Results

+printf("\n Diffusion coefficient of Argon %3.1e m2/s",DAr)

+

diff --git a/3689/CH17/EX17.11/17_11.sce b/3689/CH17/EX17.11/17_11.sce
new file mode 100644
index 000000000..a5c728aac
--- /dev/null
+++ b/3689/CH17/EX17.11/17_11.sce
@@ -0,0 +1,11 @@
+////Variable Declaration

+LMg = 0.0106                //Ionic conductance for Mg, S.m2/mol

+LCl = 0.0076                //Ionic conductance for Cl, S.m2/mol

+[nMg,nCl] = (1,2)

+

+//Calculations

+LMgCl2 = nMg*LMg + nCl*LCl

+

+//Results

+printf("\n Molar conductivity of MgCl2 on infinite dilution is %5.4f S.m2/mol",LMgCl2)

+

diff --git a/3689/CH17/EX17.2/17_2.sce b/3689/CH17/EX17.2/17_2.sce
new file mode 100644
index 000000000..444b12796
--- /dev/null
+++ b/3689/CH17/EX17.2/17_2.sce
@@ -0,0 +1,16 @@
+////

+//Variable Declaration

+DHebyAr = 4.0 

+MAr = 39.9       //Molecualar wt of Argon and Neon, kg/mol

+MHe = 4.0

+P  = 101325.0     //Pressure and Temperature, Pa, K

+T  =  298.0

+sigm = 3.6e-19  //

+R = 8.314                  //Molar Gas constant,  mol^-1 K^-1

+N_A = 6.02214129e+23       //mol^-1

+//Calculations

+sigHebyAr = (1./DHebyAr)*sqrt(MAr/MHe)

+

+//Results

+printf("\n Ratio of collision cross sections of Helium to Argon %4.3f",sigHebyAr)

+

diff --git a/3689/CH17/EX17.3/17_3.sce b/3689/CH17/EX17.3/17_3.sce
new file mode 100644
index 000000000..b8e9ca0e4
--- /dev/null
+++ b/3689/CH17/EX17.3/17_3.sce
@@ -0,0 +1,13 @@
+////

+//Variable Declaration

+D = 1.0e-5                 //Diffusion coefficient, m2/s 

+t1 = 1000                  //Time, s

+t10 = 10000                //Time, s

+

+//Calculations

+xrms1 = sqrt(2*D*t1)

+xrms10 = sqrt(2*D*t10)

+

+//Results

+printf("\n rms displacement at %4d and %4d is  %4.3f and %4.3f m respectively",t1,t10,xrms1,xrms10)

+

diff --git a/3689/CH17/EX17.4/17_4.sce b/3689/CH17/EX17.4/17_4.sce
new file mode 100644
index 000000000..876610348
--- /dev/null
+++ b/3689/CH17/EX17.4/17_4.sce
@@ -0,0 +1,10 @@
+////Variable Declaration

+D = 2.2e-5                 //Diffusion coefficient of benzene, cm2/s 

+x0 = 0.3                   //molecular diameter of benzene, nm

+

+//Calculations

+t = (x0*1e-9)**2/(2*D*1e-4)

+

+//Results

+printf("\n Time per random walk is %4.3e s or %4.2f ps",t,t/1e-12)

+

diff --git a/3689/CH17/EX17.5/17_5.sce b/3689/CH17/EX17.5/17_5.sce
new file mode 100644
index 000000000..6d0fe9e14
--- /dev/null
+++ b/3689/CH17/EX17.5/17_5.sce
@@ -0,0 +1,21 @@
+////

+//Variable Declaration

+P = 101325                  //Pressure, Pa

+kt = 0.0177                 //Thermal conductivity, J/(K.m.s)

+T = 300.0                   //Temperature, K

+k = 1.3806488e-23           //Boltzmanconstant,J K^-1

+sigm = 3.6e-19  //

+R = 8.314                  //Molar Gas constant,  mol^-1 K^-1

+NA = 6.02214129e+23        //mol^-1

+M = 39.9                   //Molecualar wt of Argon and Neon, kg/mol

+

+//Calculations

+CvmbyNA = 3.*k/2

+nuavg = sqrt(8*R*T/(%pi*M*1e-3))

+N = NA*P/(R*T)

+labda = 3*kt/(CvmbyNA*nuavg*N)

+sigm = 1/(sqrt(2)*N*labda)

+

+//Results

+printf("\n Mean free path %4.3e m and collisional cross section %4.2e m2",labda, sigm)

+

diff --git a/3689/CH17/EX17.6/17_6.sce b/3689/CH17/EX17.6/17_6.sce
new file mode 100644
index 000000000..ecd183c53
--- /dev/null
+++ b/3689/CH17/EX17.6/17_6.sce
@@ -0,0 +1,21 @@
+////

+//Variable Declaration

+eta = 227.                  //Viscosity of Ar, muP

+P = 101325                  //Pressure, Pa

+kt = 0.0177                 //Thermal conductivity, J/(K.m.s)

+T = 300.0                   //Temperature, K

+k = 1.3806488e-23           //Boltzmanconstant,J K^-1

+R = 8.314                   //Molar Gas constant,  mol^-1 K^-1

+NA = 6.02214129e+23         //mol^-1

+M = 39.9                    //Molecualar wt of Argon and Neon, kg/mol

+

+//Calculations

+nuavg = sqrt(8*R*T/(%pi*M*1e-3))

+N = NA*P/(R*T)

+m = M*1e-3/NA

+labda = 3.*eta*1e-7/(nuavg*N*m)          //viscosity in kg m s units

+sigm = 1./(sqrt(2)*N*labda)

+

+//Results

+printf("\n Collisional cross section %4.2e m2",sigm)

+

diff --git a/3689/CH17/EX17.7/17_7.sce b/3689/CH17/EX17.7/17_7.sce
new file mode 100644
index 000000000..9a37183c4
--- /dev/null
+++ b/3689/CH17/EX17.7/17_7.sce
@@ -0,0 +1,26 @@
+////

+//Variable Declaration

+m = 22.7                    //Mass of CO2, kg

+T = 293.0                   //Temperature, K

+L = 1.0                     //length of the tube, m

+d = 0.75                    //Diameter of the tube, mm

+eta = 146                   //Viscosity of CO2, muP

+p1 = 1.05                   //Inlet pressure, atm

+p2 = 1.00                   //Outlet pressure, atm

+atm2pa = 101325             //Conversion for pressure from atm to Pa 

+M = 0.044                   //Molecular wt of CO2, kg/mol

+R = 8.314                   //Molar Gas constant,  J mol^-1 K^-1

+

+//Calculations

+p1 = p1*atm2pa

+p2 = p2*atm2pa

+F = %pi*(d*1e-3/2)**4*(p1**2-p2**2)/(16.*eta/1.e7*L*p2)

+nCO2 = m/M

+v = nCO2*R*T/((p1+p2)/2)

+t = v/F

+

+//Results

+printf("\n Flow rate is %4.3e m3/s",F)

+

+printf("\n Cylinder can be used for %4.3e s nearly %3.1f days",t, t/(24*3600))

+

diff --git a/3689/CH17/EX17.8/17_8.sce b/3689/CH17/EX17.8/17_8.sce
new file mode 100644
index 000000000..7b568100a
--- /dev/null
+++ b/3689/CH17/EX17.8/17_8.sce
@@ -0,0 +1,14 @@
+////

+//Variable Declaration

+eta = 0.891                 //Viscosity of hemoglobin in water, cP

+T = 298.0                   //Temperature, K

+k = 1.3806488e-23           //Boltzmanconstant,J K^-1

+R = 8.314                   //Molar Gas constant,  mol^-1 K^-1

+D = 6.9e-11                 //Diffusion coefficient, m2/s 

+

+//Calculations

+r = k*T/(6*%pi*eta*1e-3*D)

+

+//Results

+printf("\n Radius of protein is %4.3f nm",r/1e-9)

+

diff --git a/3689/CH17/EX17.9/17_9.sce b/3689/CH17/EX17.9/17_9.sce
new file mode 100644
index 000000000..af0741829
--- /dev/null
+++ b/3689/CH17/EX17.9/17_9.sce
@@ -0,0 +1,18 @@
+////

+//Variable Declaration

+s = 1.91e-13                //Sedimentation constant, s

+NA = 6.02214129e+23         //mol^-1

+M = 14100.0                 //Molecualr wt of lysozyme, g/mol

+rho = 0.998                 //Density of water, kg/m3

+eta = 1.002                 //Viscosity lysozyme in water, cP

+T = 293.15                  //Temperature, K

+vbar = 0.703                //Specific volume of cm3/g

+

+//Calculations

+m = M/NA

+f = m*(1.-vbar*rho)/s

+r = f/(6*%pi*eta)

+

+//Results

+printf("\n Radius of Lysozyme particle is %4.3f nm",r/1e-9)

+