1 files changed, 21 insertions, 0 deletions
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)
+