blob: 4c2f1c6cfbfc86ec9322706b2249e1fd8c9cbb0c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
// P = 1MPa
vf = 0.001127; vg = 0.1944;
hg = 2778.1; uf = 761.68;
ug = 2583.6; ufg = 1822;
// Initial anf final mass
Vis = 5; Viw = 5;
Vfs = 6 ; Vfw = 4 ;
//
ms = ((Viw/vf)+(Vis/vg)) - ((Vfw/vf)+(Vfs/vg)) ;
U1 = ((Viw*uf/vf)+(Vis*ug/vg));
Uf = ((Vfw*uf/vf)+(Vfs*ug/vg));
Q = Uf-U1+(ms*hg)
disp("kJ",Q,"The heat transfer during the process is")
|
