2463 |
3070 |
General pool kernel background 0 |
DESTROYED |
MathLink connection was lost. |
MATHLINKEXCEPTION |
p1p = f1[Csc02, t02];
p1 = Plot[
Evaluate@Table[(24450/MW conc[i][t1]), {i, N2}], {t1, 0, tf},
AxesLabel -> {"t (hr)",
"\!\(\*SubscriptBox[\(C\), \(sc\)]\) (ppm)"}, PlotRange -> {Automatic, {0, All}}, LabelStyle -> Directive[Medium]];
p2 = Plot[
Evaluate@Table[(24450/MW conc1[i][t1]), {i, N2}], {t1, 0, tf},
AxesLabel -> {"t (hr)",
"\!\(\*SubscriptBox[\(C\), \(ve\)]\) (ppm)"}, PlotRange -> {Automatic, {0, All}}, LabelStyle -> Directive[Medium]];
p2p = Show[p1, p2,
AxesLabel -> {"t (hr)",
"\!\(\*SubscriptBox[\(C\), \(epidermis\)]\) (ppm)"}, ImageSize -> Full];
p3p = {p1p, p2p};
|
|
|