From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001 From: priyanka Date: Wed, 24 Jun 2015 15:03:17 +0530 Subject: initial commit / add all books --- 2135/CH5/EX5.11/Exa_5_11.sce | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100755 2135/CH5/EX5.11/Exa_5_11.sce (limited to '2135/CH5/EX5.11') diff --git a/2135/CH5/EX5.11/Exa_5_11.sce b/2135/CH5/EX5.11/Exa_5_11.sce new file mode 100755 index 000000000..16408b726 --- /dev/null +++ b/2135/CH5/EX5.11/Exa_5_11.sce @@ -0,0 +1,22 @@ +//Exa 5.11 +clc; +clear; +close; +format('v',8); + +//Given Data : +T1=1200;//Kelvin +T2=400;//Kelvin +T0=300;//Kelvin +Qsource=-150;//KJ/s +Qsystem=150;//KJ/s +deltaS_source=Qsource/T1;//KJ/sK +deltaS_system=Qsystem/T2;//KJ/sK +deltaS_net=deltaS_source+deltaS_system;//KJ/sK +disp(deltaS_net,"Net change in entropy in KJ/sK : "); +A1=(T1-T0)*-deltaS_source;//KJ/s +disp(A1,"Available energy of heat source in KJ/s : "); +A2=(T2-T0)*deltaS_system;//KJ/s +disp(A2,"Available energy of system in KJ/s : "); +E_decrease=A1-A2;//KJ/s +disp(E_decrease,"Decrease in available energy in KJ/s : "); -- cgit