![`:=`(dat, [m = `/`(`*`(kg_), `*`(s_)), T1 = `+`(`*`(363, `*`(K_)))])](images/np22_1.gif){kind=small}
| > | restart:#"m05_p22" |
Calcular la exergía de un manantial geotérmico capaz de producir 1 kg/s de agua a 90 °C.
Datos:
| > | read"../therm_eq.m":read"../therm_proc.m":with(therm_proc): |
| > | su:="H2O":dat:=[m=1*kg_/s_,T1=(90+273)*K_]; |
|
Esquema:
| > | ![`:=`(Sistemas, [liq, amb])](images/np22_2.gif){kind=small} |
| > | ![`:=`(Estados, [1, 2])](images/np22_3.gif){kind=small} |
Eqs. const.:
| > | eqET:=eq1_15;eqEE:=eq1_17;ldat:=get_liq_data(su):dat:=[op(dat),Const,ldat,SI2,SI1]: |
![`:=`(eqET, rho = rho[0])](images/np22_4.gif){kind=small} |
 |
| > | Pmin:=m*(h1_h0-T0*s1_s0);Pmin_:=subs(dat,evalf(subs(dat,m*(c*(T1-T0)-T0*c*ln(T1/T0))))):'Pmin'=evalf(%/(1000*W_/kW_)); |
 |
 |
| > |