1 files changed, 21 insertions, 0 deletions
diff --git a/779/CH10/EX10.1/10_1.sce b/779/CH10/EX10.1/10_1.sce
new file mode 100755
index 000000000..56e142b96
--- /dev/null
+++ b/779/CH10/EX10.1/10_1.sce
@@ -0,0 +1,21 @@
+// Part (a)
+P1 = 100; P2 = 50;
+T1 = 273+300;
+T2 = (P2/P1)*T1;
+R = 0.287; cv = 0.718;
+V1 = 0.8;
+m = (P1*V1)/(R*T1);
+Q = m*cv*(T2-T1);
+disp("If the fluid is in the air")
+disp("K",T2,"The final temperature is ")
+disp("kJ/kg",Q,"The heat transferred is")
+// Part (b)
+t2 = 273+81.33; vf = 0.00103; vg = 3.24;
+v1 = 2.6388; u1 = 2810.4; 
+x2 = (v1-vf)/(vg-vf);
+u2 = 340.42+(x2*2143.4);
+m_ = V1/v1;
+Q_ = m_*(u2-u1);
+disp("If the fluid is in the steam")
+disp("K",t2,"The final temperature is ")
+disp("kJ/kg",Q_,"The heat transferred is")
+\ No newline at end of file