Re: Adding text at various X,Y locations on Multi-Function Graphs
- To: mathgroup at smc.vnet.net
- Subject: [mg30325] Re: [mg30301] Adding text at various X,Y locations on Multi-Function Graphs
- From: BobHanlon at aol.com
- Date: Sat, 11 Aug 2001 03:39:47 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 2001/8/8 1:35:28 AM, wcooper1 at san.rr.com writes:
>Does anyone know the syntax to enter text at various x,y coordinates into
>a
>multi-function graph, e.g.
>
>ShowLegend[Plot[{Sin[x], Sin[2*x]}, {x, -2 Pi, 2 Pi}]]
>
Needs["Graphics`Legend`"];
Plot[{Sin[x], Sin[2*x]}, {x, -2 Pi, 2 Pi},
Epilog -> {
Text["<-Sin[2x]", {4.25, Sin[8.5]},
{-1, 0}],
Text["Sin[2x]->", {-4.25, Sin[-8.5]},
{1, 0}]},
PlotRange -> All,
PlotStyle -> {RGBColor[0, 0, 1],
RGBColor[1, 0, 0]},
PlotLegend -> {"Sin[x]", "Sin[2x]"},
LegendPosition -> {1., -.35},
ImageSize -> 400];
Bob Hanlon
Chantilly, VA USA