blob: 3632fa8f7211c1561b6e9106b215550ec4c81515 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
clear;
clc;
printf("\t Example 2_11_a\n");
ya1=0.2; //initial mole fraction
ya2=0.1; //final mole fraction
T=(298); //temperature in kelvin
pt=1*1.013*10^5; //total pressure in pascal
z=0.2*10^-2; //gas film thickness in m
Dab=.215*10^-4; //diffusion coefficient in m^2/s
R=8314; //universal gas constant
//part (i)when N2 is non diffusing
Na=Dab*pt*log((1-ya2)/(1-ya1))/(z*R*T); //diffusion flux in kmol/m^2*s
printf("\n diffusion flux if N2 is non diffusing :%f *10^-5 kmol/m^2*s ",Na/10^-5);
//end
|
