Exercício 8.46.47.48

Prévia do material em texto

//Exercício 8.48 referencia 8.47
//
p1=16000 //kPa
T1=560	//C
p2=12000	//kPa
p3=8	//kPa
p4=p3
p5=p2
p6=p5
p7=p1
m=120	//kg/s
ne=0.85
Cpc=4.179	//kJ/kg*K
Tc=18 	//C
h1=h_PT("Water/Steam", p1, T1)
s1=s_PT("Water/Steam", p1, T1)
s2s=s1
s2=s_Ph("Water/Steam", p2, h1)
h2s=h_Ps("Water/Steam", p2, s2s)
h2=h1-n*(h1-h2s)
s3s=s2
h3s=h_Ps("Water/Steam", p3, s3s)
h3=h2-ne*(h2-h3s)
h4=hsat_Px("Water/Steam", p4, 0)
v4=vsat_Px("Water/Steam", p4, 0)
h5s=h4+v4*(p5-p4)
h5=h4+(h5s-h4)/ne
h6=hsat_Px("Water/Steam", p6, 0)
v6=vsat_Px("Water/Steam", p6, 0)
h7s=h6+v6*(p7-p6)
h7=h6+(h7s-h6)/ne
Qe=m*(h1-h7s)
y=(h6-h5s)/(h2-h5)
Wt=m*((h1-h2)+(1-y)*(h2-h3))
Wb=m*((h7-h6)+(1-y)*(h5-h4))
Wciclo=Wt-Wb
n=Wciclo/Qe
Qs=m*(1-y)*(h3-h4)
mc=Qs/(Cpc*Tc)