summaryrefslogtreecommitdiff
path: root/2870/CH5/EX5.6/Ex5_6.sce
blob: 1c9435de4f2dadceea86537e54d4de81a9526e8e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
clc;clear;
//Example 5.6

//given data
T1=280;
P1=100;
m=0.02;
qout=16;
P2=600;
T2=400;

//from Table A-17
h1=280.13;
h2=400.98;

//calculations
// Ein - Eout = dEsystem / dt
Win=m*qout+m*(h2-h1);
disp(Win,'the input power of compressor in kW')