DADOS DA QUESTÃO

[pic 1]

/*

[pic 2]

*/

//DADOS DA QUESTÃO

p1=40 //bar p2=1 //bar p3=1 //bar p4=40 //bar T1=440 //°C

Q41= 13000 //KW

pa=16 //bar pb=9 //bar pc=9 //bar pd=16 //bar Ta=100 //°C

//CICLO DA AGUA

//PARA PONTO 1:                                   

h1 = h_PT("Water/Steam", p1, T1) s1 = s_PT("Water/Steam", p1, T1)

PARA PONTO 2:

s2=s1

h2 = h_Ps("Water/Steam", p2, s2) //

//PARA PONTO 3:

x3=0 //liquido saturado

hsat3 = hsat_Px("Water/Steam", p3, x3) vsat3 = vsat_Px("Water/Steam", p3, x3)

//PARA PONTO 4:

h4=hsat3+vsat3*(p4-p3)

//Ciclo R134a

//PARA PONTO a:

ha = h_PT("R134A", pa, Ta) sa = s_PT("R134A", pa, Ta)

//PARA PONTO b:

sb=sa

hb = h_Ps("R134A", pb, sb)

//PARA PONTO c:

xc=0 //liquido saturado

hsatc = hsat_Px("R134A", pc, xc) vsatc = vsat_Px("R134A", pc, xc)

//PARA PONTO d:

hd=hsatc+vsatc*(pd-pc)

//Alternativa a)

mvapor=Q41/(h1-h4) //Kg/s

//Alternativa b)

m134a=(mvapor*(h2-hsat3))/(ha-hd) //Kg/s

//Alternativa c)

Wvapor=mvapor*((h1-h2)-(h4-hsat3)) //KW Wr134a=m134a*((ha-hb)-(hd-hsatc)) //KW Wciclo=Wvapor+Wr134a //KW Pvapor=Wvapor/Wciclo Pr134a=Wr134a/Wciclo

//Alternativa d)

Qprocesso=m134a*(hsatc-hb) //KW

/*

Valores Obtidos

h2	2505
h4	418
ha	327,5
hb	312,7
hd	99,57
hsat3	417,9
hsatc	99,56
m134a	41,22

mvapor 4,5

Pr134a 0,1442

Pvapor 0,8558

Qprocesso        -8786

s1        6,903

s2        6,903

sa        1,047

sb        1,047

vsat3        0,001043

vsatc        0,0008576

Wciclo 4214 Wr134a607,8

Wvapor 3606 p1        40

p2        1

p3        1

p4        40

pa        16

pb        9

pc        9

pd        16

Q41        1,3E4

T1        440

Ta        100

x3        0

xc        0

*/