diff options
Diffstat (limited to '779/CH9/EX9.11/9_11.sce')
-rwxr-xr-x | 779/CH9/EX9.11/9_11.sce | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/779/CH9/EX9.11/9_11.sce b/779/CH9/EX9.11/9_11.sce new file mode 100755 index 000000000..4c2f1c6cf --- /dev/null +++ b/779/CH9/EX9.11/9_11.sce @@ -0,0 +1,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")
\ No newline at end of file |