Page 376 - Thermodynamics of Biochemical Reactions

376 Mathematica Solutions to Problems

AN,
6 7 8 9 pH

-1.51

-2-

In[l6/:= plot4=Plot [Evaluate[ (1/ (8.31451*.29815*Log[lO] )) *D[calctrGerx[nadox+fomate+h2o+de==na
dred+co2tot,gH,.251,gH~~,(gH,5,9?,AxesOrigin-~~5,O},\!\~AxesLabel -> I"\<gH\>",
\ * If \ 11 \ < \ ! \ ( AN\-H\ ) \ >\ ''1' } \ ) , PlotRange- > { 0, -2.5 1 ;

-21

-2.5
1n[17] := plot5-Plot [Evaluate[ (1/ (8.31451*.29815*Log[lO] ) ) *D[calctrGerx[nadox+malate+h2o+de~=nad
red+gyruvate+co2tot,pHI.25],gH]],{~H,5,9~,AxesOrigin-~C5,-2.5~,\!\~AxesLabel ->
{ '' \ <pH\ >I' , \ * I' \ It \ < \ ! \ (AN\-H\ ) \ >\ " " } \ ) , PlotRange- > { 0, -2.5 1 ;

-0-5- -1

-1.5-

-2:
I
6 7 8 9 pH