>	restart:#"m03_p02"

Calcular el trabajo máximo obtenible de un cuerpo (incompresible) de masa m y capacidad térmica c, a temperatura T1, en presencia de una atmósfera a To. Calcular el rendimiento energético y hacer aplicación para To=300 K y T1=3000 K.

Datos:

>	read"../therm_eq.m":read"../therm_proc.m":with(therm_proc):

Esquema:

>

>

Eqs. const.:

>	eqET:=eq1_15;eqEE:=eq1_17;

Calcular el trabajo máximo obtenible de un cuerpo (incompresible) de masa m y capacidad térmica c, a temperatura T1, en presencia de una atmósfera a To.

>

eqBE:=eq1_5;eqBE:=subs(eqBE,subs(DE[m]=0,eq1_9));eqEvol:=DSuniv=0;DSuniv:=DS+DSamb;eq1:=subs(T2=T0,eq2_15);eq2:=DSamb=Q0/T0;;eqEvol_:=subs(eq1,eq2,eqEvol);eqBEuniv:=eqBEsist+eqBEamb+eqBEDMR;eqBEsist:=m*c*(T0-T1)=Q;eqBEuniv_:=Q+Q0+Wmin=0;sol1:=collect(solve({eqEvol_,eqBEuniv_,eqBEsist},{Wmin,Q0,Q}),{c,m});

b) Calcular el rendimiento energético y hacer aplicación para To=300 K y T1=3000 K.

>	eta:=Wmin/(-Q);eta_:=subs(sol1,eta);eta__:=evalf(subs(T0=300,T1=3000,eta_),2);

>