blob: c4fc267107397a4e3a09980fad8b6ab95f19a8bf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
//clc()
P = 101.3;//kPa
Td = 303;//K
Tw = 288;//K
//using psychometric chart,
Y1 = 0.0045;//kg water/ kg dry air
PY = 18;//%
Theated = 356.7;//K
Cb = 1.005;
Ca = 1.884;
Cs = Cb + Y1 * Ca;
Q = 1 * Cs * (Theated - Td);
disp("kg water/ kg dry air",Y1,"(a)Humidity of the initial air = ")
disp("%",PY,"(b)Percent humidity = ")
disp("K",Theated,"(c)Temperature to which the air is heated = ")
disp("kJ",Q,"(d)Heat to be suppplied = ")
|
