Page 214 - Thermodynamics of Biochemical Reactions

214 Mathematica Solutions to Problems

listfnpHish={acetaldehydeh,acetateh,acetoneh,adenosineh,adgh,alanineh,ammoniah,amgh,ara
binoseh,asparagineLh,aspartateh,
atph,citrateh,coagh, coatoth, coaqh, cogh,
ethanolh, ethylacetateh,
formateh, fructoseh, fumarateh, galactoseh, glucoseh,
glucose6phosh,glutamateh, glutamineh,
glycerolh, glycineh. glycylglycineh, h2aqh, h2gh, haoh,
h202aqh,indolehr lactateh, lactoseh,leucineLh,
maltoseh, mannoseh, methanegh,
methaneaqh, methanolh,methylamineionh, n2aqh,
n2gh, nadoxh, nadpoxh, nadpredh, nadredh, o2aqh.
o2gh, pih,ppih, propanol2h,
pyruvateh, riboseh, ribose5phosh,ribuloseh,
sorboseh, succinateh, sucroseh, trygtophaneLh, ureah, valinelh, xyloseh,
xyluloseh);
listsgeciesdatah={acetaldehydesp,acetatesp,acetonesp,adenosinesg,adpsg,alaninesp,ammoni
asp,ampsp,arabinosesp,asparagineLsp,aspartatesp,
atpsp,citratesp,co2gspr co2totsp, coaqsp, cogsp,
ethanolsp, ethylacetatesp,
formatesp, fructosesp, fumaratesp, galactosesp, glucosesp,
glucose6phossg,glutatesp, glutaminesp,
glycerolsp, glycinesp, glycylglycinesp, haaqsp, h2gsp, h2osp,
h202aqsp,indolesg, lactatesp, lactosesp,leucineLsp,
maltosesp, mannosesp, methanegsp,
methaneagsp, methanolsp,methylamineionsp, naaqsp,
n2gsp, nadoxsp, nadpoxsp, nadpredsp, nadredsp, o2aqsp,
02gsp,pisp,ppisp, propanol2sp,
pyruvatesp, ribosesp, ribose5phossp,ribulosespr
sorbosesp, succinatesp, sucrosesp, tryptophanelsp, ureasp, valinelsp, xylosesp,
xylulosesp);
Map is used to apply calcdHmat to each of the matrices of species data called up by listspeciesdatah.

Clear[acetaldehydeh,acetateh,acetoneh,adenosineh,adph,alanineh,anrmoniah,amph,arabinoseh
,asparagineLh,aspartateh,
atph,citrateh,co2gh, coatoth, coaqh, cogh,
ethanolh, ethylacetateh,
formateh, fructoseh, fumarateh, galactoseh, glucoseh,
glucose6phosh,glutamateh, glutamineh,
glycerolh, glycineh, glycylglycineh, haaqh, h2gh. haoh,
h202aqh,indoleh. lactateh, lactoseh,leucineLh,
maltoseh, mannoseh, methanegh,
methaneaqh, methanolh,methylamineionh, n2aqh,
n2gh, nadoxh, nadpoxh, nadpredh, nadredh, o2aqh,
o2gh, pih,ppih, propanolah,
pyruvateh, riboseh, ribose5phosh,ribuloseh,
sorboseh, succinateh, sucroseh, tryptophaneLh, ureah, valinelh, xyloseh.
xyluloseh];
Evaluate[listfnpHish] = Map[calcdHmat, listspeciesdatah];