1 files changed, 19 insertions, 0 deletions
diff --git a/2339/CH4/EX4.40.1/Ex4_40.sce b/2339/CH4/EX4.40.1/Ex4_40.sce
new file mode 100755
index 000000000..5bb0a7912
--- /dev/null
+++ b/2339/CH4/EX4.40.1/Ex4_40.sce
@@ -0,0 +1,19 @@
+clc
+clear
+
+Ms=3;               //in kg
+Tf=30;              //in C
+P=8;                //in bar
+Tsup=210+273;       //in K
+Cps=2.1;            //in kJ/kg K
+Cpw=4.186;          //in kJ/kg K
+
+H1=Cpw*Tf;
+
+//At 8 bar pressure
+Tsat=170.4+273;         //in K
+Hg=2769.1;              //in kJ/kg
+H2=Hg+(Cps*(Tsup-Tsat));
+Q=Ms*(H2-H1);
+printf('Amount of heat required: %2.2f kJ',Q);
+printf('\n');