# Plotting in mathematica

• Mathematica
Hi PF!

I am trying to plot several quadratics along with two numerical solutions to some ODE's. The command I entered for the two ODE's is

Plot[{{Evaluate[y[x] /. t]}, {Evaluate[y[x] /. s]}}, {x, 0, 1.2},
PlotRange -> All]

where s and t have been previously defined.

The plot for the quadratics is

Plot[Table[-.35 (1 - x)^2 + (1 - a)/2 (1 - x), {a,
Range[-1/5, 0, .06]}] // Evaluate, {x, 0, 1.2},
PlotLegends -> mList]

Both these commands give me plots, but I'd like them all to be on the same graph. Can someone please help?

Thanks so much!

## Answers and Replies

e.bar.goum
Science Advisor
Education Advisor
You can just add them to your list.
Code:
Plot[{{Evaluate[y[x] /. t]}, {Evaluate[y[x] /. s]},Table[-.35 (1 - x)^2 + (1 - a)/2 (1 - x), {a,Range[-1/5, 0, .06]}] // Evaluate}, {x, 0, 1.2},PlotRange-> All,PlotLegends -> mList]

Or, if you want the quadratics to remain different colours, you can use "Show[]"

Code:
a=Plot[{{Evaluate[y[x] /. t]}, {Evaluate[y[x] /. s]}}, {x, 0, 1.2},PlotRange -> All]
b = Plot[Table[-.35 (1 - x)^2 + (1 - a)/2 (1 - x), {a, Range[-1/5, 0, .06]}] // Evaluate, {x, 0, 1.2},PlotLegends -> mList]
Show[a,b]

• joshmccraney
Thanks a ton! That's really helpful!

• e.bar.goum
Hey e.bar.goum, how would I label each curve (sorry I'm new to mathematica). Each quadratic is labeled but the other two curves are not.