summaryrefslogtreecommitdiff
path: root/779/CH9/EX9.11/9_11.sce
diff options
context:
space:
mode:
Diffstat (limited to '779/CH9/EX9.11/9_11.sce')
-rwxr-xr-x779/CH9/EX9.11/9_11.sce13
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