I recently plotted a piecewise function:
Plot[Piecewise[{{1 - Exp[-.002*t],
0 <= t < 120}, {-Exp[-.002*t] + Exp[-.002*(t - 120)],
120 <= t}}], {t, 0, 5000}, PlotRange -> {0, 0.25}]
I then defined the function which I am calling q[t_] as follows:
q[t_] := Piecewise[{{1 -...