blob: 96665184aab8dadd4a1c3b8a6b864451be952009 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
clear;
clc;
printf("Example 10.3\n");
P=101.3e3; //pressure of the operating column
T=295; //Temperature of the operating column
P_A=7e3; //partial pressure of ammonia
x=1e-3; //=(y1-y2)Thickness of stationary gas film
D=2.36e-5; //Diffusivity of ammonia
C_A=(1/22.4)*(273/T)*(P_A/P);//=(C_A1-C_A2)Concentration of ammonia gas
//X=C_T/C_BM
X=P*log(P/(P-P_A))/(P-(P-P_A));
//From equation 10.33
N_A_=(D/x)*X*(C_A);
printf("\n The transfer rate per unit area = %.2f *10^-5 kmol/m^2*s",N_A_*1e5)
|
