blob: f6cc4549b43eb8712e8d341c7afa2d8cd3717ab6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
clc;
clear all;
disp("evaporation rate calculation")
U=2.8;// m/s
L=300/1000;//m
rho=1.205;//kg/m^3
v=15.06*10^(-6);//m^2/s
D=4.166*10^(-5);//m^2/s
Re=U*L/v;// Reynolds No.
Re
if Re<5*10^5
disp("flow is laminar")
end
Sc=v/D;// Schmidt No.
Sc
Sh=0.664*((Re)^0.5)*(Sc)^(0.33);
Sh
L=320/1000;//m
hm=Sh*D/L;// m/s
disp("m/s",hm,"mass transfer coefficient = ")
disp("mass transfer based on pressure difference ")
T=15+273;//K
R=287;
hmp=hm/(R*T);// m/s
A=0.32*0.42;//m^2
pw1=0.017*10^(5);
pw2=0.0068*10^(5);
mw=hmp*A*(pw1-pw2)*3600;
disp("kg/h",mw,"mass diffusion of water =")
|
