How to Color each curve differently? [duplicate]

Plot[{{A0 E^(-k1 t), -((
A0 E^(-k1 t - k2 t) (-E^(k1 t) + E^(k2 t)) k1)/(k1 - k2)), (
A0 E^(-k1 t -
k2 t) (-E^(k1 t) k1 + E^(k1 t + k2 t) k1 + E^(k2 t) k2 -
E^(k1 t + k2 t) k2))/(k1 - k2)} /. {A0 -> 1, k1 -> 4,
k2 -> 10}}, {t, 2, 0}]

How may I color each curve differently?

marked as duplicate by Jason B., Alexey Popkov, MarcoB, Jens, m_goldbergMay 6 '16 at 21:11

• Plot[Evaluate[{A0 E^(-k1 t), -((A0 E^(-k1 t-k2 t) (-E^(k1 t)+E^(k2 t)) k1)/(k1-k2)), (A0 E^(-k1 t-k2 t) (-E^(k1 t) k1+E^(k1 t+k2 t) k1+E^(k2 t) k2-E^(k1 t+k2 t) k2))/(k1-k2)} /. {A0->1, k1->4, k2->10}], {t, 2, 0}] – Bill May 6 '16 at 6:09
• Or Plot[...,Evaluated->True]. – xslittlegrass May 6 '16 at 6:11

For a verry nice Q & A see Using Evaluate and Evaluated -> True in Plot

Plot[{{A0 E^(-k1 t)
, -((A0 E^(-k1 t - k2 t) (-E^(k1 t) + E^(k2 t)) k1)/(k1 - k2))
, (A0 E^(-k1 t - k2 t) (-E^(k1 t) k1 + E^(k1 t + k2 t) k1 + E^(k2 t)
k2 - E^(k1 t + k2 t) k2))/(k1 -k2)} /. {A0 -> 1, k1 -> 4, k2 -> 10}}
, {t, 2, 0}
, Evaluated -> True]

Plot[{{A0 E^(-k1 t)
, -((A0 E^(-k1 t - k2 t) (-E^(k1 t) + E^(k2 t)) k1)/(k1 - k2))
, (A0 E^(-k1 t - k2 t) (-E^(k1 t) k1 + E^(k1 t + k2 t) k1 + E^(k2 t)
k2 - E^(k1 t + k2 t) k2))/(k1 -k2)} /. {A0 -> 1, k1 -> 4, k2 -> 10}}
, {t, 2, 0}
, Evaluated -> True
, PlotStyle -> {Red, Green, Blue}]

And contemplate the following:

A0 = 1; k1 = 4; k2 = 10;

Plot[{{A0 E^(-k1 t)
, -((A0 E^(-k1 t - k2 t) (-E^(k1 t) + E^(k2 t)) k1)/(k1 - k2))
, (A0 E^(-k1 t - k2 t) (-E^(k1 t) k1 + E^(k1 t + k2 t) k1 + E^(k2 t)
k2 - E^(k1 t + k2 t) k2))/(k1 -k2)}}
, {t, 2, 0}]