From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 914/CH5/EX5.13/ex5_13.sce | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100755 914/CH5/EX5.13/ex5_13.sce

(limited to '914/CH5/EX5.13')

diff --git a/914/CH5/EX5.13/ex5_13.sce b/914/CH5/EX5.13/ex5_13.sce
new file mode 100755
index 000000000..adb2bf97a
--- /dev/null
+++ b/914/CH5/EX5.13/ex5_13.sce
@@ -0,0 +1,20 @@
+clc;
+warning("off");
+printf("\n\n example5.13 - pg184");
+// given
+l=4;  //[m] - length of the tube
+id=1.6*10^-3;  //[m] - inside diameter
+Nkn=10;  // - knudsen no.
+Ma=92;  // - molecular weight of gas
+mu=6.5*10^-4;  //[kg/m*sec] - viscosity
+T=300;  //[K] - temperature
+R=8314;  //[kPa*m^3*kmol^-1*K^-1] - gas constant
+lambdaA=Nkn*id;  //[m] mean free path
+// for calculating pressure using the formula lamdaA=32*(mu/p)*((R*T)/(2*pi*Ma))^(1/2)
+p=32*(mu/lambdaA)*((R*T)/(2*%pi*Ma))^(1/2);
+patm=p/(1.01325*10^5);
+printf("\n\n p=%fkg/m*sec^2=%fPa=%eatm",p,p,patm);
+printf("\n The value of 10 for the knudsen number is on the border between Knudsen diffusion and transition flow");
+
+
+
-- 
cgit