Hi,
try the option PlotRange->All, i.e.
Plot[ {Evaluate[Purp[t] /. Mechanism]}, {t, 0, tmax}, AxesLabel -> {time (seconds), conc (mM)}, PlotStyle -> {Green}, PlotLegends -> {Purpurogallin}, PlotRange -> All]
Best wishes, Marco
Hi Nik,
The plot zoomed into the steady-state value. Just add the option PlotRange->All to the Plot function to see the full range.
Plot[ {Evaluate[Purp[t] /. Mechanism]}, {t, 0, tmax}, PlotRange -> All, AxesLabel -> {time (seconds), conc (mM)}, PlotStyle -> {Green}, PlotLegends -> {Purpurogallin}]
Sorry. Your reply only came up for me after I posted mine.
Cheers,
Marco
