From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3689/CH16/EX16.2/16_2.sce | 15 +++++++++++++++
 3689/CH16/EX16.4/16_4.sce | 15 +++++++++++++++
 3689/CH16/EX16.5/16_5.sce | 20 ++++++++++++++++++++
 3689/CH16/EX16.6/16_6.sce | 14 ++++++++++++++
 3689/CH16/EX16.7/16_7.sce | 26 ++++++++++++++++++++++++++
 5 files changed, 90 insertions(+)
 create mode 100644 3689/CH16/EX16.2/16_2.sce
 create mode 100644 3689/CH16/EX16.4/16_4.sce
 create mode 100644 3689/CH16/EX16.5/16_5.sce
 create mode 100644 3689/CH16/EX16.6/16_6.sce
 create mode 100644 3689/CH16/EX16.7/16_7.sce

(limited to '3689/CH16')

diff --git a/3689/CH16/EX16.2/16_2.sce b/3689/CH16/EX16.2/16_2.sce
new file mode 100644
index 000000000..dc07fb11c
--- /dev/null
+++ b/3689/CH16/EX16.2/16_2.sce
@@ -0,0 +1,15 @@
+////
+//Variable Declaration
+R = 8.314         //Ideal Gas Constant, J/(mol.K)
+T = 298           //Temperatureof Gas, K
+M = 0.040         //Molecular wt of Ar, kg/mol
+
+
+//Calculations
+vmp = sqrt(2*R*T/M)
+vave = sqrt(8*R*T/(M*%pi))
+vrms = sqrt(3*R*T/M)
+
+//Results
+printf("\n Maximum, average, root mean square speed of Ar\nat 298 K are %4.0f, %4.0f, %4.0f m/s",vmp,vave,vrms)
+
diff --git a/3689/CH16/EX16.4/16_4.sce b/3689/CH16/EX16.4/16_4.sce
new file mode 100644
index 000000000..a4ad51f85
--- /dev/null
+++ b/3689/CH16/EX16.4/16_4.sce
@@ -0,0 +1,15 @@
+////
+//Variable Declaration
+R = 8.314         //Ideal Gas Constant, J/(mol.K)
+T = 298           //Temperature of Gas, K
+M = 0.040         //Molecular wt of Ar, kg/mol
+P = 101325        //Pressure, N/m2
+NA = 6.022e23     //Number of particles per mol
+V = 1.0           //Volume of Container, L
+
+//Calculations
+Zc = P*NA/sqrt(2*%pi*R*T*M)
+Nc = Zc
+//Results
+printf("\n Number of Collisions %4.2e  per s",Nc)
+
diff --git a/3689/CH16/EX16.5/16_5.sce b/3689/CH16/EX16.5/16_5.sce
new file mode 100644
index 000000000..bc703d58d
--- /dev/null
+++ b/3689/CH16/EX16.5/16_5.sce
@@ -0,0 +1,20 @@
+////
+//Variable Declaration
+R = 8.314         //Ideal Gas Constant, J/(mol.K)
+T = 298           //Temperature of Gas, K
+M = 0.040         //Molecular wt of Ar, kg/mol
+P0 = 1013.25      //Pressure, N/m2
+NA = 6.022e23     //Number of particles per mol
+V = 1.0           //Volume of Container, L
+k = 1.38e-23      //Boltzmann constant, J/K
+t = 3600          //time of effusion, s
+A = 0.01          //Area, um2
+
+//Calculations
+A = A*1e-12
+V = V*1e-3
+expo = (A*t/V)*(k*T/(2*%pi*M/NA))
+P = P0*exp(-expo)
+//Results
+printf("\n Pressure after 1 hr of effusion is %4.3e Pa",P/101325)
+
diff --git a/3689/CH16/EX16.6/16_6.sce b/3689/CH16/EX16.6/16_6.sce
new file mode 100644
index 000000000..28839b33d
--- /dev/null
+++ b/3689/CH16/EX16.6/16_6.sce
@@ -0,0 +1,14 @@
+////
+//Variable Declaration
+R = 8.314         //Ideal Gas Constant, J/(mol.K)
+T = 298           //Temperature of Gas, K
+M = 0.044         //Molecular wt of CO2, kg/mol
+P  = 101325       //Pressure, N/m2
+NA = 6.022e23     //Number of particles per mol
+sigm = 5.2e-19    //m2
+
+//Calculations
+zCO2 = (P*NA/(R*T))*sigm*sqrt(2)*sqrt(8*R*T/(%pi*M)) 
+//Results
+printf("\n Single particle collisional frequency is %4.1e per s",zCO2)
+
diff --git a/3689/CH16/EX16.7/16_7.sce b/3689/CH16/EX16.7/16_7.sce
new file mode 100644
index 000000000..dc85dd54f
--- /dev/null
+++ b/3689/CH16/EX16.7/16_7.sce
@@ -0,0 +1,26 @@
+////
+//Variable Declaration
+R = 8.314         //Ideal Gas Constant, J/(mol.K)
+T = 298           //Temperature of Gas, K
+MAr = 0.04        //Molecular wt of Ar, kg/mol
+MKr = 0.084       //Molecular wt of Kr, kg/mol
+pAr  = 360        //Partial Pressure Ar, torr
+pKr  = 400        //Partial Pressure Kr, torr
+rAr = 0.17e-9     //Hard sphere radius of Ar, m
+rKr = 0.20e-9     //Hard sphere radius of Kr, m
+NA = 6.022e23     //Number of particles per mol
+k = 1.38e-23      //Boltzmann constant, J/K
+
+//Calculations
+pAr = pAr*101325/760
+pKr = pKr*101325/760
+p1 = pAr*NA/(R*T)
+p2 = pKr*NA/(R*T)
+sigm = %pi*(rAr+rKr)**2
+mu = MAr*MKr/((MAr+MKr)*NA)
+p3 = sqrt(8*k*T/(%pi*mu)) 
+zArKr = p1*p2*sigm*p3
+
+//Results
+printf("\n Collisional frequency is %4.2e m-3s-1",zArKr)
+
-- 
cgit