initial commit / add all books

1 files changed, 22 insertions, 0 deletions

diff --git a/2144/CH4/EX4.2/exa_4_2.sce b/2144/CH4/EX4.2/exa_4_2.sce
new file mode 100755
index 000000000..171553cdc
--- /dev/null
+++ b/2144/CH4/EX4.2/exa_4_2.sce
@@ -0,0 +1,22 @@
+// Example 4.2

+clc;

+clear;

+close;

+// Given data

+T1= 800+273;// in K

+T2= 400+273;// in K

+T3= 179+273;// in K

+T0= 25+273;// in K

+Q= 2018.4;// heat taken by water in kJ/kg

+// Formula mCp*(T1-T2)= Q

+mCp= Q/(T1-T2);

+delta_Qgas= mCp*integrate('1/T','T',T1,T2);// in kJ/K

+delta_Qwater= Q/T3;// in kJ/K

+delta_Qnet= delta_Qwater+delta_Qgas;//  in kJ/K

+disp(delta_Qnet,"Net entropy changes in kJ/K is : ")

+E1= T0*abs(delta_Qgas);// Original unavailable energy in kJ

+E2= T0*delta_Qwater;//unavailable energy after heat transfer in kJ

+E= E2-E1;// in increase in unavailable energy in kJ

+disp(E,"The increase in unavailable energy in kJ is : ")

+

+// Note: There is some difference in the value of increase in unavailable energy because in the book the value of change of entropy of the gas is not correct.