Plotting in mathematica

  • Mathematica
  • Thread starter joshmccraney
  • Start date
  • #1
1,985
107
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

  • #2
e.bar.goum
Science Advisor
Education Advisor
951
390
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]
 
  • Like
Likes joshmccraney
  • #3
1,985
107
Thanks a ton! That's really helpful!
 
  • Like
Likes e.bar.goum
  • #4
1,985
107
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.
 

Related Threads on Plotting in mathematica

  • Last Post
Replies
6
Views
13K
  • Last Post
Replies
1
Views
2K
  • Last Post
Replies
9
Views
15K
  • Last Post
Replies
4
Views
2K
  • Last Post
Replies
1
Views
2K
Replies
4
Views
3K
Replies
12
Views
24K
Replies
4
Views
3K
Replies
4
Views
8K
Top