Page 306 - Thermodynamics of Biochemical Reactions

306 Mathematica Solutions to Problems

TableForm[(1/(8.31451*.29815*Log[lO] ))*D[~pep+ad~+co2tot-oxaloacetate-at~-h2o~,gHl/.~s-
>(O, .l, .25)/.pH->{5,6,7,8,9),TableHeadings->EE"I = 0 M","I = 0.10 M","I = 0.25
M1l),{"gH 5",11pH 6","pH 7","pH 8","pH 9"))l
PH 5 PH 6 PH 7 PH 8 PH 9
I=OM 0.808208 0.547488 -0.512396 -1.04491 -1.05597
I = 0.10 M 0.862233 0.206083 -0.792542 -0.99541 -1.11014

I = 0.25 M 0.840963 0.0667518 -0.82107 -0.998722 -1.1457
Net of the preceding two reactions

TableForm[Transpose[calctrGerx[pyruvate+2*atp+h2o+de==gep+2*adg+p~,~~,6,7,8,9~,~~,.1,.~
S)]] ,TableHeadings->(("I = 0 M","X = 0.10 M","I = 0.25 M"),{"gH 5","gH 6","gH 7","pH
8m1,1*pH 9n1})1
PH 5 PH 6 PH 7 PH 8 PH 9
I=OM -1.83764 -3.14757 -6.98235 -17.328 -29.0407

I = 0.10 M 0.88898 -0.726795 -7.23829 -17.7828 -29.1052
I = 0.25 M 1.90911 -0.110354 -7.19026 -17.7833 -29.1054

TableForm[Transpose[calck~rime[gyruvate+2*atp+h2o+de==gep+2*adg+p~,~5,6,7,8,9~,iO,.l,.~
=
5}]],TableHeading~->{i~~I 0 MI1,"I = 0.10 M","I = 0.25 M1l),{"gH 5","gH 6","pH 7","gH
811,11pH 9m1))1
PH 5 PH 6 PH 7 PH 8 PH 9
I=OM 2.09864 3.55982 16.7204 1085.7.1 122370.

I = 0.10 M 0.698648 1.34069 18.539 1304.37 125599.
I = 0.25 M 0.462956 1.04552 18.1833 1304.63 125606.
TableForm[(1/(8.31451*.29815*Log[10]))*D[(pep+2*adp+~i-gyruvate-2*at~-h~o~,gHl/.is-
>~0,.1,.25)/.gH->{5,6,7,8,9),TableHeadings->{i1'I = 0 M","I = 0.10 M","I = 0.25
MI' 1, ("pH 5", "pH 6", "pH 7 'I, "pH 8", "pH 9") 11
PH 5 PH 6 PH 7 PH 8 PH 9
I=OM -0.297246 -0.269812 -1.27871 -2.07523 -2.02073
I = 0.10 M -0.11779 -0.595535 -1.63573 -1.95827 --1.99578

I = 0.25 M -0.121086 -0.729254 -1.66925 -1.95844 -1.99572
Fructose I ,6-biphosphatase

TableFo~[Trans~ose[calctrGerx[f~ctosel6ghos+h2o+de==fructose6phos+p~,i5,6,7,8,9~,iO,.
=
1,.25)]],TableHeadings->{{"I = 0 Mmm,llI 0.10 M","I = 0.25 M"),I"gH 5","gH 6","gH
7",9Si 81n,11pH 91))]
PH 5 PH 6 PH 7 PH 8 PH 9
I=OM -22.7476 -22.1975 -20.1521 -18.6253 -18.3442
I = 0.10 M -21.0371 -18.1741 -14.6161 -13.5633 -13.4289

I = 0.25 M -20.2085 -16.2642 -12.7902 -11.9455 -11.8441
TableForm[Trans~ose[calck~rime[f~ctosel6ghos+h2o+de==f~ctose6phos+g~,i5,6,7,8,9~,~O,.
1,.25)1],TableHeading~->{{*~I = 0 MS1,l1I = 0.10 M","I = 0.25 M"),{'lpH 5","gH 6","pH
7","pH 8","pH 9"))]