diff options
Diffstat (limited to '2870/CH7/EX7.17/Ex7_17.sce')
| -rwxr-xr-x | 2870/CH7/EX7.17/Ex7_17.sce | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/2870/CH7/EX7.17/Ex7_17.sce b/2870/CH7/EX7.17/Ex7_17.sce new file mode 100755 index 000000000..9f6f5685d --- /dev/null +++ b/2870/CH7/EX7.17/Ex7_17.sce @@ -0,0 +1,16 @@ +clc;clear;
+//Example 7.17
+
+//given data
+Qin=1035;
+Tin=20+273;//in K
+Qout=Qin;
+Tout=5+273;//in K
+
+//calculations
+// Sin - Sout + Sgen = dSsystem/dt
+Sgen=(Qout/Tout)-(Qin/Tin);
+disp(Sgen,'entropy generation in the wall in W/K');
+Ts1=300;Ts2=273;//Boundary temperatures
+Sgen=(Qout/Ts2)-(Qin/Ts1);
+disp(Sgen,'total entropy generation in W/K');
|