Page 360 - Thermodynamics of Biochemical Reactions
P. 360

360     Mathematica Solutions to Problems






















                TableFom [
                 Transpose[calcappredpot[pyruvate+de== lactate, 2, (5, 6, 7, 8, g},  {o,  .1, .25}]],
                 TableHeadings  + { {*'I=O M",  "1=0.10 M",  "1=0.25 M"},
                   {"pH 5", "pH 6'1, I1pH  7",  ''pH 8",  ''pH  Sir}},  Tablespacing-, (1, l}]

                           PH 5        PH 6       PH 7      PH 8       PH 9
                1=0 M      -0.0654528 -0.124613 -0.183773 -0.242932 -0.302092
                1~0.10     -0.0717964 -0.130956 -0.190116 -0.249276 -0.308436
                       M
                I=O.25  M   -0.0738445 -0.133004 -0.192164 -0.251324 -0.310484
                                                         :=
                plot6 = Plot [calcappredpot [pyruvate + de  lactate, 2, RH, .25],
                  {pH, 5, 9}, AxesLabel -B  { mlpH1l, "E  /Vl}  ] ;











                                            \
                -0.251
                      1       6        7       8       '9   PH


                TabbFom[Transpose[calcappredpot[de:=h2g,  2,  {5, 6, 7, 8, 9},  (0, .l, .25}]],
                 TableHeadings  + { {III=O   MI1,  llI=O.10 M",  "1=0.25 M"},
                    {"pH 5",  "pH 6",  "pH 711, "pH Err,  "pH 9"}}, Tablespacing -t  11, l}]

                           PH 5       PH 6       PH 7       PH 8      PH.  9
                1=0  M      -0.295799 -0.354959 -0.414119 -0.473279 -0.532439
                I=0.10 M    -0.302143 -0.361303 -0.420463 -0.479623 -0.538783
                I=O.25 M    -0.304191 -0.363351 -0.422511 -0.481671 -0.540831

                plot15 = Plot [calcappredpot [de ==  h2g, 2, pH,  .25], {pH, 5, 93, AxesLabel + {ispH",  "E lo /V"}l;
   355   356   357   358   359   360   361   362   363   364   365