6 files changed, 74 insertions, 0 deletions
diff --git a/1709/CH9/EX9.1/9_1.sce b/1709/CH9/EX9.1/9_1.sce
new file mode 100755
index 000000000..d44dfd0fb
--- /dev/null
+++ b/1709/CH9/EX9.1/9_1.sce
@@ -0,0 +1,15 @@
+clc
+//Initialization of variables
+N0=6.025*10^26
+M=32
+k=1.38*10^-23
+T=300 //K
+//calculations
+m=M/N0
+vavg=sqrt(8*k*T/(%pi*m))
+vrms=sqrt(3*k*T/m)
+vm=sqrt(2*k*T/m)
+//results
+printf("Average velocity = %d m/sec",vavg)
+printf("\n RMS velocity = %d m/sec",vrms)
+printf("\n Most probable velocity = %d m/sec",vm)
diff --git a/1709/CH9/EX9.2/9_2.sce b/1709/CH9/EX9.2/9_2.sce
new file mode 100755
index 000000000..90bd3ec8a
--- /dev/null
+++ b/1709/CH9/EX9.2/9_2.sce
@@ -0,0 +1,14 @@
+clc
+//Initialization of variables
+T=300 //K
+dv=0.02
+vm=395 //m/s
+m=5.32*10^-26 //kg
+k=1.38*10^-23
+vrms=483 //m/s
+//calculations
+N1=sqrt(2/%pi) *(m/(k*T))^(3/2) *vm^2 *exp(-1) *dv*vm
+N2=sqrt(2/%pi) *(m/(k*T))^(3/2) *vrms^2 *exp(-3/2) *dv*vrms
+//results
+printf("Fraction of oxygen molecules at v most probable speed = %.4f ",N1)
+printf("\n Fraction of oxygen molecules at v rms speed = %.4f ",N2)
diff --git a/1709/CH9/EX9.3/9_3.sce b/1709/CH9/EX9.3/9_3.sce
new file mode 100755
index 000000000..e3ff858e9
--- /dev/null
+++ b/1709/CH9/EX9.3/9_3.sce
@@ -0,0 +1,13 @@
+clc
+//Initialization of variables
+p=1.013*10^5 //N/m^2
+k=1.38*10^-23
+T=300 //K
+v=445 //m/s
+A=0.001*10^-6 //m^2
+//calculations
+n=p/(k*T)
+J=n*v/4
+escaping=J*A
+//results
+printf("No. of molecules escaping per unit time = %.2e mol/sec",escaping)
diff --git a/1709/CH9/EX9.4/9_4.sce b/1709/CH9/EX9.4/9_4.sce
new file mode 100755
index 000000000..591e9da7e
--- /dev/null
+++ b/1709/CH9/EX9.4/9_4.sce
@@ -0,0 +1,11 @@
+clc
+//Initialization of variables
+d=3.5*10^-10 //m
+n=2.45*10^25
+//calculations
+sig=%pi*d^2
+lambda=1/(sqrt(2) *sig*n) 
+frac=exp(-2)
+//results
+printf("Mean free path = %.2e m",lambda)
+printf("\n fraction of molecules = %.3f",frac)
diff --git a/1709/CH9/EX9.5/9_5.sce b/1709/CH9/EX9.5/9_5.sce
new file mode 100755
index 000000000..8180dba09
--- /dev/null
+++ b/1709/CH9/EX9.5/9_5.sce
@@ -0,0 +1,12 @@
+clc
+//Initialization of variables
+P=1 //atm
+T=300 //K
+//calculations
+cv=4.97
+vavg=1580 //ft/s
+sig=4.13*10^-18 //ft^2
+N0=6.025*10^26 *0.4536
+K=vavg*3600*cv/(3*N0*sig)
+//results
+printf("Thermal conductivity  = %.2e B/hr ft F",K)
diff --git a/1709/CH9/EX9.6/9_6.sce b/1709/CH9/EX9.6/9_6.sce
new file mode 100755
index 000000000..a7f57a742
--- /dev/null
+++ b/1709/CH9/EX9.6/9_6.sce
@@ -0,0 +1,9 @@
+clc
+//Initialization of variables
+m=5.32*10^-26 //kg
+v=445 //m/s
+sigma=3.84*10^-19 //m^2
+//calculations
+mu=m*v/(3*sigma)
+//results
+printf("Dynamic viscosity of oxygen = %.2e newton sec/m^2",mu)