> restart:#"m09_p42"

> read`../therm_eq.m`:read`../therm_chem.m`:with(therm_chem);with(therm_proc):

[Ateo, Mf, PCI, PCS, eqEQ, eqMIX, eq_fit, get_hgs_data, hgs_r25, nulist, seqEBE]

Para enviar a una estación espacial el oxígeno necesario para la respiración de los astronautas, resulta más económico mandar agua y generar allí el oxígeno por electrólisis con energía solar en lugar de mandar depósitos de gas a presión. El hidrógeno así generado tiene poca utilidad y se suele tirar al espacio (es poca la masa que se tira). En la respiración, la mayoría del O2 se convierte en CO2, que hay que eliminar también (aunque a diferencia del H2 que ya aparece puro, el CO2 hay que separarlo del aire respirado). Suponiendo que la respiración puede aproximarse por la reacción de oxidación completa de la glucosa, C6H12O6+6O2=6CO2+6H2O, se pide:

a) Determinar el poder calorífico de la glucosa, la energía disipada por persona y día suponiendo que el calor metabólico típico de un adulto sedentario es de 100 W, y la masa de oxígeno necesaria por persona y día.

b) Determinar la masa de agua necesaria por persona y día, para generar por electrólisis el oxígeno necesario, y las masas de H2 y de CO2 a eliminar (por persona y día).

c) Determinar la disminución de masa a eliminar si, en lugar de tirar el H2 y el CO2, se usara la reacción de Sabatier, CO2+4H2=CH4+2H2O, para recuperar agua (el CH4 se tira).

d) Determinar la disminución de masa a eliminar si, en lugar de la reacción de Sabatier, se usara la reacción de Bosch, CO2+2H2=C+2H2O, indicando el significado del signo de las funciones termoquímicas estándar de esta reacción.

Datos:

> su0:="Aire":su1:="H2":su2:="O2":su3:="H2O":su4:="CO2":su5:="CH4":su6:="C6H12O6":dat:=[Qdot_met=100*W_];eqRes:=C6H12O6+6*O2=6*CO2+6*H2O;eqSab:=CO2+4*H2=CH4+2*H2O;

[Qdot_met = `+`(`*`(100, `*`(W_)))]
`+`(C6H12O6, `*`(6, `*`(O2))) = `+`(`*`(6, `*`(CO2)), `*`(6, `*`(H2O)))
`+`(CO2, `*`(4, `*`(H2))) = `+`(CH4, `*`(2, `*`(H2O)))

Eqs. const.:

> dat:=op(subs(g=g0,[Const])),op(dat),SI2,SI1:Adat:=get_gas_data(su0):dat1:=get_gas_data(su1):dat2:=get_gas_data(su2):Wdat:=get_gas_data(su3),get_liq_data(su3):dat4:=get_gas_data(su4):dat5:=get_gas_data(su5):M_H2_O2_H2O_CO2_CH4_C6H12O6:=subs(dat1,M),subs(dat2,M),subs(Wdat,M),subs(dat4,M),subs(dat5,M),rhs(Mf(su6));

`+`(`/`(`*`(0.2e-2, `*`(kg_)), `*`(mol_))), `+`(`/`(`*`(0.32e-1, `*`(kg_)), `*`(mol_))), `+`(`/`(`*`(0.18e-1, `*`(kg_)), `*`(mol_))), `+`(`/`(`*`(0.44e-1, `*`(kg_)), `*`(mol_))), `+`(`/`(`*`(0.16e-1, ...

a) Determinar el poder calorífico de la glucosa, la energía disipada por persona y día suponiendo que el calor metabólico típico de un adulto sedentario es de 100 W, y la masa de oxígeno necesaria por persona y día.

Con los datos de la Tabla:

> eqRes;PCS=6*h[f,CO2]+6*h[f,H2O]-h[f,C6H12O6]-6*h[f,O2];PCS_:=PCS(eqRes);'PCS_'=%/rhs(Mf(su6));Qdot_met=subs(dat,Qdot_met);Qmet=Qdot_met*86400*s_;Qmet_:=subs(dat,Qdot_met*86400*s_);nO2need:=6/'PCS';nO2need_:=6/PCS_;'nO2need_'=%*1e6*J_/MJ_;nO2day='nO2need*Qmet';nO2day_:=nO2need_*Qmet_;mO2day_:=%*subs(dat2,M);

`+`(C6H12O6, `*`(6, `*`(O2))) = `+`(`*`(6, `*`(CO2)), `*`(6, `*`(H2O)))
PCS = `+`(`*`(6, `*`(h[f, CO2])), `*`(6, `*`(h[f, H2O])), `-`(h[f, C6H12O6]), `-`(`*`(6, `*`(h[f, O2]))))
`+`(`/`(`*`(2808100.00, `*`(J_)), `*`(mol_)))
PCS_ = `+`(`/`(`*`(15600555.56, `*`(J_)), `*`(kg_)))
Qdot_met = `+`(`*`(100, `*`(W_)))
Qmet = `+`(`*`(86400, `*`(Qdot_met, `*`(s_))))
`+`(`*`(8640000, `*`(J_)))
`+`(`/`(`*`(6), `*`(PCS)))
`+`(`/`(`*`(0.2136676044e-5, `*`(mol_)), `*`(J_)))
nO2need_ = `+`(`/`(`*`(2.136676044, `*`(mol_)), `*`(MJ_)))
nO2day = `*`(nO2need, `*`(Qmet))
`+`(`*`(18.46088102, `*`(mol_)))
`+`(`*`(.5907481926, `*`(kg_))) (1)

i.e. la glucosa da un PCS=2,8 MJ/mol=15,6 MJ/kg. Un adulto genera un calor de 100·86400=8,64 MJ/día. Como cada mol de glucosa libera 2,8 MJ/mol, se necesitan 2,14 mol de O2 por cada MJ, y como el metabolismo por persona y día es de 8,64 MJ, hay que generar 0,60 kg de O2 por persona y día, aunque estos valores se refieren a personas con una actividad mínima; la NASA considera un consumo medio de 0,84 kg de O2 por persona y día para la estación espacial (promedio para adultos y para actividad usual promediada día/noche); en actividades extravehiculares suele consumirse el triple (el máximo para una persona trabajando duro las 24 h podría alcanzar unos 6 kg/día de O2).

b) Determinar la masa de agua necesaria por persona y día, para generar por electrólisis el oxígeno necesario, y las masas de H2 y de CO2 a eliminar (por persona y día).

> eqEle:=H2O=H2+(1/2)*O2;nH2O:=2*nO2;mH2Oday_:=2*nO2day_*subs(Wdat,M);mH2day:='mH2Oday-mO2day';mH2day_:=mH2Oday_-mO2day_;nCO2=nO2;mCO2day:='mO2day*M_CO2/M_O2';mCO2day_:=mO2day_*44/32;

H2O = `+`(H2, `*`(`/`(1, 2), `*`(O2)))
`+`(`*`(2, `*`(nO2)))
`+`(`*`(.6645917168, `*`(kg_)))
`+`(mH2Oday, `-`(mO2day))
`+`(`*`(0.738435242e-1, `*`(kg_)))
nCO2 = nO2
`/`(`*`(mO2day, `*`(M_CO2)), `*`(M_O2))
`+`(`*`(.8122787648, `*`(kg_))) (2)

i.e. por persona y día hay que electrolizar 0,66 kg de agua, y eliminar 0,074 kg de H2 (36.9 mol) y 0,81 kg de CO2 (18,5 mol). (El aire debe tener xCO2<0,01 para que sea respirable.)

Nótese que se sube 0,66 kg/pdia y se tira 0,88 kg/pdia; la diferencia se debe a que no se ha contabilizado el alimento sólido que también hay que subir (ni otros residuos metabólicos).

c) Determinar la disminución de masa a eliminar si, en lugar de tirar el H2 y el CO2, se usara la reacción de Sabatier, CO2+4H2=CH4+2H2O, para recuperar agua (el CH4 se tira).

Esta reacción consume 4 veces más cantidad de sustancia de H2 que de CO2, luego solo se podrá procesar una parte del CO2 generado (con todo el H2 generado):

> eqSab;nCO2day_:=mCO2day_/subs(dat4,M);nH2day_:=mH2day_/subs(dat1,M);nCO2react:=nH2react/4;nCO2reactday_:=nH2day_/4;mCO2reactday_:=nCO2reactday_*subs(dat4,M);nH2Oprodday:='nH2day/2';nH2Oprodday_:=nH2day_/2;mH2Oprodday_:=nH2Oprodday_*subs(Wdat,M);nCH4prod:='nH2Oprod/2';nCH4prodday_:=nH2Oprodday_/2;nCH4prodday_:=nCH4prodday_*subs(dat5,M);

`+`(CO2, `*`(4, `*`(H2))) = `+`(CH4, `*`(2, `*`(H2O)))
`+`(`*`(18.46088102, `*`(mol_)))
`+`(`*`(36.92176210, `*`(mol_)))
`+`(`*`(`/`(1, 4), `*`(nH2react)))
`+`(`*`(9.230440525, `*`(mol_)))
`+`(`*`(.4061393831, `*`(kg_)))
`+`(`*`(`/`(1, 2), `*`(nH2day)))
`+`(`*`(18.46088105, `*`(mol_)))
`+`(`*`(.3322958589, `*`(kg_)))
`+`(`*`(`/`(1, 2), `*`(nH2Oprod)))
`+`(`*`(9.230440525, `*`(mol_)))
`+`(`*`(.1476870484, `*`(kg_))) (3)

i.e. con  la reacciónn de Sabatier, en lugar de tirar 0,88 kg/pdia (0,074 kg=36.9 mol de H2 más 0,81 kg=18,5 mol de CO2), se tiraría solo 0,55 kg/pdia (0,15 kg de CH4 y los 0,81-0,41=0,40 kg de CO2 no reciclados). Este proceso supone un ahorro de 0,33 kg/pdia de agua (que no hay que subir).

d) Determinar la disminución de masa a eliminar si, en lugar de la reacción de Sabatier, se usara la reacción de Bosch, CO2(g)+2H2(g)=C(s)+2H2O(l), indicando el significado del signo de las funciones termoquímicas estándar de esta reacción.

Esta reacción consume solo 2 veces más cantidad de sustancia de H2 que de CO2, luego, como había 18,5 mol de CO2 y 36.9 mol de H2, puede reaccionar todo (si la producción de CO2 era igual a la de O2, y esta era la mitad de la de H2, es lógico que coincidan), por tanto, en lugar de tirar los 0,88 kg/pdia iniciales (0,074 kg de H2 y 0,81 kg de CO2), ya sólo se tirarían 0,22 kg de polvo de carbono por persona y día, ahorrándose 0,66 kg/pdia de agua, i.e. ya no haría falta subir agua para la respiración. (Como casi toda el agua de boca y de higiene también se recicla (e.g. destilando la orina), ya solo quedaría aprender a reciclar los residuos sólidos para poder emprender grandes viajes interplanetarios.)

> eqBosch:=CO2+2*H2=C+2*H2O;nCprodday:=nCO2day;nCprodday_:=nCO2day_;mCprodday_:=nCO2day_*(0.012*kg_/mol_);nH2Oprod_:=nH2day_;mH2Oprod_:=%*subs(Wdat,M);d:=[hgs_r25(eqBosch)]:eqSab,'hr'=d[1],'gr'=d[2],'sr'=d[3];gr_:=d[2]:

`+`(CO2, `*`(2, `*`(H2))) = `+`(C, `*`(2, `*`(H2O)))
nCO2day
`+`(`*`(18.46088102, `*`(mol_)))
`+`(`*`(.2215305722, `*`(kg_)))
`+`(`*`(36.92176210, `*`(mol_)))
`+`(`*`(.6645917178, `*`(kg_)))
`+`(CO2, `*`(4, `*`(H2))) = `+`(CH4, `*`(2, `*`(H2O))), hr = `+`(`-`(`/`(`*`(178140.00, `*`(J_)), `*`(mol_)))), gr = `+`(`-`(`/`(`*`(79980.00, `*`(J_)), `*`(mol_)))), sr = `+`(`-`(`/`(`*`(329.17, `*`(... (4)

La reacción de Bosch es exotérmica (hr<0), liberando una energía de 178 kJ/mol, normalmente en forma de calor pues se trata de un reactor químico a p=cte; gr<0 indica que es una reacción espontánea, aunque si no hay catalizador casi no progresa (suele usarse Fe, Co, o Ni). El hecho de ser sr<0 indica que la rotura de las 3 moléculas gaseosas para dar 1 átomo sólida y 2 moléculas líquidas (o aunque también fuesen gaseosas), disminuye la entropía. Obviamente la entropía del universo siempre aumentará, porque el incremento de entropía del ambiente será mayor (178/288=618 J/(mol·K) > 329 J/(mol·K)).  

ADICIONAL.

Los valores de las funciones termoquímicas estándar de la reacción de Sabatier son:

d:=[hgs_r25(eqSab)]:eqSab,'hr'=d[1],'gr'=d[2],'sr'=d[3];gr_:=d[2]:

`+`(CO2, `*`(4, `*`(H2))) = `+`(CH4, `*`(2, `*`(H2O))), hr = `+`(`-`(`/`(`*`(252990.00, `*`(J_)), `*`(mol_)))), gr = `+`(`-`(`/`(`*`(130770.00, `*`(J_)), `*`(mol_)))), sr = `+`(`-`(`/`(`*`(409.89, `*`... (5)

i.e. la reacción de Sabatier es exotérmica (hr<0), liberando una energía de 253 kJ/mol, normalmente en forma de calor pues se trata de un reactor químico a p=cte; gr<0 indica que es una reacción espontánea, aunque si no hay catalizador casi no progresa. El hecho de ser sr<0 indica que la rotura de las 5 moléculas gaseosas para dar 1 molécula gaseosa y 2 líquidas (o aunque también fuesen estas gaseosas), disminuye la entropía. Obviamente la entropía del universo siempre aumentará, porque el incremento de entropía del ambiente será mayor (253/288=880 J/(mol·K) > 410 J/(mol·K)).  En la práctica el reactor suele ser una matriz cerámica porosa de Al2O3 donde se deposita rutenio para que catalice la reacción, operando a presión ambiente o mayor, y a unos 400 ºC para aumentar la cinética química, por lo que el agua formada saldrá como vapor.

Al ser hr<0 conviene operar a baja temperatura para que reacciones del todo (<<Tchange), pero para aumentar la velocidad de reacción conviene que no sea muy baja (se opera a >350 ºC).

Al ser vr<0 (5 moles dan 3 moles) conviene operar a alta presión para que reacciones del todo, pero es complicado y no suele hacerse.

> eqEQ(eqSab);Tchange:=evalf(solve(subs(p=p0,rhs(%)=1),T));'Tchange'=TKC(%);

`/`(`*`(`^`(x[H2O], 2), `*`(x[CH4])), `*`(x[CO2], `*`(`^`(x[H2], 4)))) = `+`(`/`(`*`(0.9956634769e-9, `*`(`^`(p, 2), `*`(exp(`+`(`/`(`*`(19842.43445, `*`(K_)), `*`(T))))))), `*`(`^`(p0, 2))))
`+`(`*`(957.2947743, `*`(K_)))
Tchange = `+`(`*`(684.1447743, `*`(?C))) (6)

i.e.  habrá de todo un poco (Prod,xi^nui=1) cuando T=680 ºC, luego, si se quiere que desaparezca casi todo el H2 habrá que operar a T<<680 ºC (suele hacerse a T=400 ºC). Ya se ha usado este proceso en la estación espacial ISS.

En cuanto a la reacción de Bosch:

Al ser hr<0 conviene operar a baja temperatura para que reacciones del todo (<<Tchange), pero para aumentar la velocidad de reacción conviene que no sea muy baja (se opera a >500 ºC).

Al ser vr<0 (3 moles gaseosos dan 1 mol sólido y 2 líquidos, o, a alta temperatura, 2 gaseosos) conviene operar a alta presión para que reacciones del todo, pero es complicado y no suele hacerse.

> eqEQ(eqBosch);Tchange:=evalf(solve(subs(p=p0,rhs(%)=1),T));'Tchange'=TKC(%);

`/`(`*`(`^`(x[H2O], 2)), `*`(x[CO2], `*`(`^`(x[H2], 2)))) = `+`(`/`(`*`(0.1634845632e-4, `*`(p, `*`(exp(`+`(`/`(`*`(10839.54775, `*`(K_)), `*`(T))))))), `*`(p0)))
`+`(`*`(983.5021224, `*`(K_)))
Tchange = `+`(`*`(710.3521224, `*`(?C))) (7)

i.e.  habrá de todo un poco (Prod,xi^nui=1) cuando T=710 ºC, luego, si se quiere que desaparezca casi todo el CO2 habrá que operar a T<<710 ºC (suele hacerse a T>500 ºC; a 600 ºC la reacción libera 101 kJ/mol de calor en vez de los 178 kJ/mol estándar, o los 90 kJ/mol que liberaría a 25 ºC si saliese el H2O como vapor). Este proceso todavía está en fase de pruebas.

Por otra parte, también se puede estimar el número de celdas del electrolizador necesarias para suministrar el oxígeno necesario, tomando un valor límite para que la intensidad eléctrica circulante.

Por ejemplo, si se limita la corriente a Imax=50 A, como cada celda ha de operar con un voltaje superior al de equilibrio termodinámico E=gr/(z*F), siendo z=2 el número de electrones a añadir para fomar (con 2H+) H2(g), y F=96485.3 C/mol la constante de Faraday., el número de celdas del electrolizador será:

> Wdot_min:=gr*'mH2gen'/MH2;d:=[hgs_r25(eqEle)]:eqEle,'hr'=d[1],'gr'=d[2],'sr'=d[3];gr_:=d[2]:mH2gen='mH2day'/(86400*s_);mH2gen_:=mH2day_/(86400*s_);Wdot_min_:=subs(dat1,day_=86400*s_,dat,gr_*mH2gen_/M);Wdot_min:=V*Imax;Imax=50*A_;Vmin_:=subs(Imax=50*A_,F=96485.3*C/mol_,dat,A_=1,SI0,Wdot_min_/Imax)*V_;eqemf_eq:=epsilon=gr/(z*F);eqemf_eq_:=epsilon=rhs(subs(z=2,gr=gr_,F=96485.3*C/mol_,dat,C=1,SI0,%))*V_;Num_cells:='Vmin/epsilon';Num_cells_:=Vmin_/rhs(eqemf_eq_);

`/`(`*`(gr, `*`(mH2gen)), `*`(MH2))
H2O = `+`(H2, `*`(`/`(1, 2), `*`(O2))), hr = `+`(`/`(`*`(285830.00, `*`(J_)), `*`(mol_))), gr = `+`(`/`(`*`(237180.00, `*`(J_)), `*`(mol_))), sr = `+`(`/`(`*`(163.1400000, `*`(J_)), `*`(mol_, `*`(K_))...
mH2gen = `+`(`/`(`*`(`/`(1, 86400), `*`(mH2day)), `*`(s_)))
`+`(`/`(`*`(0.8546704190e-6, `*`(kg_)), `*`(s_)))
`+`(`*`(101.3553650, `*`(W_)))
`*`(V, `*`(Imax))
Imax = `+`(`*`(50, `*`(A_)))
`+`(`*`(2.027107300, `*`(V_)))
epsilon = `/`(`*`(gr), `*`(z, `*`(F)))
epsilon = `+`(`*`(1.229099148, `*`(V_)))
`/`(`*`(Vmin), `*`(epsilon))
1.649262635 (8)

i.e. hacen falta 2 celdas electrolíticas por cada persona a bordo (aunque con 5 celdas por cada 3 ocupantes bastaría). Esto sería en el límite termodinámico reversible; en realidad el electrolizador debe operar a un mayor voltaje (para un rendimiento típico del 70% respecto al PCI del H2, sería V=PCI/(z*F*eta)=242/(2*96.5*0.7)=1,8 V (en lugar de los 1,23 V reversibles), pero el consumo eléctrico sería proporcional (i.e. sería de 144 W en vez de 101 W) y por tanto el número de celdas no varía.

Nótese que el oxígeno que respiramos del aire en la tierra también proviene de la rotura de moléculas de agua, pero realizada por las plantas en la fotosíntesis, que básicamente consiste en la separación de los átomos de la molécula de H2O para la combinación de los H con el CO2 del aire, y la liberación del O2 sobrante de la partición del H2O. Sería bueno usar plantas en el espacio para generar el oxígeno respirable y, de paso, generar alimento.

>