summaryrefslogtreecommitdiff
path: root/2135/CH2/EX2.32/Exa_2_32.sce
blob: 3361dc69f57e1f979a894e17ad16387a2bb80c27 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Exa 2.32
clc;
clear;
close;
format('v',6);

//Given Data : 
p1=5;//bar
p2=50;//bar
V=0.001;//m^3/Kg
m_dot=10;//Kg/s
wsf=integrate('-V',"p",p1*10^5,p2*10^5);//J/kg
wsf=wsf/1000;//KJ/Kg
Wsf=abs(wsf)*m_dot;//KW(leaving -ve sign as it is to indiacte heat is supplied)
disp(Wsf,"Power required in KW : ");