
Re: Attach legend to a family of functions?
Posted:
Dec 30, 2012 8:49 PM


On Friday, December 28, 2012 10:32:49 AM UTC, Helen Read wrote: > Assuming Mathematica 9, use PlotLegends. > > > > Plot[Evaluate[{(1 + x  t  4 x (1 + x) t + > > Sqrt[(x + 2 x^2)^2 t])/((1 + 2 x)^2 t  1)} /. > > t > Range[0, 1, 0.1]], {x, 0, 20}, PlotLegends > Range[0, 1, .1]] > > > > Or slightly fancier: > > > > Plot[Evaluate[{(1 + x  t  4 x (1 + x) t + > > Sqrt[(x + 2 x^2)^2 t])/((1 + 2 x)^2 t  1)} /. > > t > Range[0, 1, 0.1]], {x, 0, 20}, > > PlotLegends > > > LineLegend[Range[0, 1, .1], LegendLabel > "Value of t", > > LegendFunction > "Frame", LegendMargins > 5, > > Background > LightGray]] > > > > Helen Read > > University of Vermont > > > > On 12/27/2012 5:02 AM, dabd wrote: > > > How can I attach a legend to this plot? > > > > > > Plot[Evaluate[{(1+xt4x(1+x)t+Sqrt[(x+2x^2)^2 t])/((1+2x)^2 t1)}/.t>Range[0,1,0.1]],{x,0,20}] > > > > > > I would like a legend for each t in the range. > > > > > > Thanks. > > >
Thanks this looks nice.

