diff options
Diffstat (limited to '2870/CH7/EX7.4')
| -rwxr-xr-x | 2870/CH7/EX7.4/Ex7_4.sce | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/2870/CH7/EX7.4/Ex7_4.sce b/2870/CH7/EX7.4/Ex7_4.sce new file mode 100755 index 000000000..efee2a8cb --- /dev/null +++ b/2870/CH7/EX7.4/Ex7_4.sce @@ -0,0 +1,23 @@ +clc;clear;
+//Example 7.4
+
+//given data
+m=3;
+P1=20;
+T1=70+460;//in R
+Qin=3450;
+
+//from Table A-6E
+//at P1 and T1
+s1=0.07459;
+h1=38.08;
+
+//calculations
+//Ein - Eout = dEsystem
+//Qin = m*(h2 - h1)
+h2=Qin/m+h1;
+//from Table A-6E
+//At P2 and h2
+s2=1.7761;
+dS=m*(s2-s1);
+disp(dS,'entropy change in Btu/R');
|