diff options
Diffstat (limited to '2144/CH4/EX4.1/exa_4_1.sce')
| -rwxr-xr-x | 2144/CH4/EX4.1/exa_4_1.sce | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/2144/CH4/EX4.1/exa_4_1.sce b/2144/CH4/EX4.1/exa_4_1.sce new file mode 100755 index 000000000..2748c44c7 --- /dev/null +++ b/2144/CH4/EX4.1/exa_4_1.sce @@ -0,0 +1,17 @@ +// Example 4.1
+clc;
+clear;
+close;
+// Given data
+Q= 1000;// in kJ
+T1= 1000;// in K
+T2= 400;// in K
+delta_Qsource= -Q/T1;// in kJ/K
+delta_Qsystem= Q/T2;// in kJ/K
+delta_Qnet=delta_Qsystem+delta_Qsource;// in kJ/K
+disp(delta_Qnet,"The entropy production accompanying the heat transfer in kJ/K is : ")
+T0= 300;// in K
+Q1= Q-T0*abs(delta_Qsource);// in kJ
+Q2= Q-T0*abs(delta_Qsystem);// in kJ
+LossOfEnergy= Q1-Q2;// in kJ
+disp(LossOfEnergy,"The decrease in available energy after heat transfer in kJ is : ")
|