1 files changed, 26 insertions, 0 deletions
diff --git a/2339/CH4/EX4.16.1/Ex4_16.sce b/2339/CH4/EX4.16.1/Ex4_16.sce
new file mode 100755
index 000000000..5c9eff104
--- /dev/null
+++ b/2339/CH4/EX4.16.1/Ex4_16.sce
@@ -0,0 +1,26 @@
+clc
+clear
+
+//Conditions at 10 bar
+P=10;               //in bar
+Tsat=179.9+273;     //in K
+Hf=762.8;           //in kJ/kg
+Hfg=2015.3;         //in kJ/kg
+Hg=2778.1;          //in kJ/kg
+Vg=0.194;           //in m^3/kg
+x=0.7;              //Dryness Fraction
+V=x*Vg;
+m=0.2/V;            //mass in kg
+mf=2/V;            //mass in kg
+H=Hf+(x*Hfg);
+H_tot=H*mf;
+printf('The total enthalpy: %3.1f kJ',H_tot);
+printf('\n');
+U=H-(P*100*V);
+U_tot=U*mf;
+printf('The internal energy: %3.1f kJ',U_tot);
+printf('\n');
+W=P*100*V;
+W_tot=W*mf;
+printf('The external work of evaporation: %3.1f kJ',W_tot);
+printf('\n');