Re: Attach legend to a family of functions?
- To: mathgroup at smc.vnet.net
- Subject: [mg129272] Re: Attach legend to a family of functions?
- From: Helen Read <readhpr at gmail.com>
- Date: Fri, 28 Dec 2012 05:35:23 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
- References: <kbh6cg$iht$1@smc.vnet.net>
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+x-t-4x(1+x)t+Sqrt[(x+2x^2)^2 t])/((1+2x)^2 t-1)}/.t->Range[0,1,0.1]],{x,0,20}]
>
> I would like a legend for each t in the range.
>
> Thanks.
>