Page 356 - Thermodynamics of Biochemical Reactions

356 Matheniatica Solutions to Problems

-0.281 \
-0.26h

6 \ 7 8 9 PH
-0.32-

-0.34.
-0.36-

TableForm[Transpose[calcappredpot[nadpox+de == nadpred, 2, {5, 6, 7, 8, 9), {0, .l, .25}]],
TableHeadings + {{m*I~O M", **I=O.lO MI', "1=0.25 MI'},
{"pH 5", "pH 6", "pH 7". "pH 8", "pH 9")), Tablespacing-, {1, l}]
PH 5 PH 6 PH 7 PH 8 PH 9
1=0 M -0.282584 -0.312164 -0,341744 -0.371324 -0.400904
I=0.10 M -0.263553 -0.293133 -0.322713 -0.352293 -0.381873
I=O.25 M -0.257409 -0.286989 -0.316569 -0.346149 -0.375729

plot12 = Plot [calcappredpot [nadpox + de :: nadpred, 2, pH, .25],
{pH, 5, 9}, AxesLabel + {llpH", "E'' /V")];
E '"/V
-0.
-0.

-0.
-0.
-0.

TableForm[Transpose [calcappredpot [02g + de :: 2 * h20, 4, { 5, 6, 7, 8, 9}, { 0, .l, .25) 1,
]
TableHeadings + { { "I=O MI1 , "I=O.lO M", "I=0.25 M"),
{"pH 5", "pH 6", "pH 7", "pH 8", 'lpH 9"}}, TableSpacing+ (1, l}]

PH 5 PH 6 PH 7 PH 8 PH 9
1=0 M 0.933355 0.874195 0.815036 0.755876 0.696716
I=O.lO M 0.927012 0.867852 0.808692 0.749532 0.690372
I=O.25 M 0.924964 0.865804 0.806644 0.747484 0.688324

plot2 =
=:
Plot[calcappredpot[o2g+de 2*h20, 4, pH, .25], {pH, 5, 9), AxesLabel-, {"pH", "Et0/V")];