blob: 6f428e03b6e397a382fc5ab9392b33e14a793bb7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
clc;clear;
//Example 8.4
//given data
m=500;
T1=473;
T0=300;
Wu=0;
//from Table A-3
cavg=0.45;
//calculations
Wrev=integrate('(1-T0/T)*(-m*cavg)','T',T1,T0);//intergrant
Wrev=floor(Wrev);
disp(Wrev,'The reversible power in kJ');
I=Wrev-Wu;
disp(I,'the irreversiblity rate in kJ');
|
