blob: b63796099ca31d16065d48e4c4b87d548f85479a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
// Implementation of example 7.6
// Basic and Applied Thermodynamics by P.K.Nag
clc
clear
T1 = 200; //K
T2 = 100; //K
function Cv = f(T)
Cv = 0.042*T^2;
endfunction
Q1 = intg(T1,T2,f);
function S = g(T)
S = f(T)/T;
endfunction
dS_sys = intg(T1,T2,g);
Wmax = dS_sys*T2 + abs(Q1);
printf("Maximum amount of work that can be recovered as system is cooled down to temperature of reservoir, Wmax = %d J",Wmax);
//end
|
