When a list of functions is passed to Plot
in an unevaluated form (e.g. with Through
), the result is a plot with single color.
Plot[Through[{Sin, Cos, Tan}[t]], {t, 0.01, 10.5}, PlotStyle -> {Red, Blue, Green}]
However, the same list of functions, listed explicitly, gives color as expected.
Plot[{Sin[t], Cos[t], Tan[t]}, {t, 0.01, 10.5}, PlotStyle -> {Red, Blue, Green}]
Plot
has attributeHoldAll
. So, it has "the right" to not work when you don't explicitly pass it a list. Try usingEvaluate@Through...
, or, better still, add the undocumented optionEvaluated->True
$\endgroup$