summaryrefslogtreecommitdiff
path: root/3689/CH17/EX17.6/17_6.sce
blob: ecd183c53ce359b2f317faae2a1b4da37ae3cdc6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
////
//Variable Declaration
eta = 227.                  //Viscosity of Ar, muP
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
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
nuavg = sqrt(8*R*T/(%pi*M*1e-3))
N = NA*P/(R*T)
m = M*1e-3/NA
labda = 3.*eta*1e-7/(nuavg*N*m)          //viscosity in kg m s units
sigm = 1./(sqrt(2)*N*labda)

//Results
printf("\n Collisional cross section %4.2e m2",sigm)