summaryrefslogtreecommitdiff
path: root/3689/CH17/EX17.5/17_5.sce
blob: 6d0fe9e142fd7904f637327cce1059ac1088e6ef (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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)