       RE: Labeling Lines on a multiple plot

• To: mathgroup at smc.vnet.net
• Subject: [mg2159] RE: [mg2122] Labeling Lines on a multiple plot
• From: "Chandler, Seth" <SChandler at Mail.Law.UH.EDU>
• Date: Wed, 11 Oct 1995 01:57:38 -0400

```There are a lot of ways of doing this, but here is one.

Suppose you have a list of pure functions:

flist={Function[x,x],Function[x,x+20Sin[x/10]],
Function[x,x+30 Cos[x/20]]};

And you have a list of right hand labels:

thelabels={"a","b","c"};

Then you can produce the desired graph with something like:

With[{rightEdge=-5},
Plot[Evaluate[Through[flist[x],List]],{x,-50,rightEdge},
{-1,0}]&,{first,thelabels}]]

Seth J. Chandler
Associate Professor
University of Houston Law Center

----------
>Sent:  Wednesday, October 04, 1995 1:54 AM
>To:  mathgroup
>Subject:  [mg2122] Labeling Lines on a multiple plot

Does anybody know how to add labels to the right of
a graph of each of these lines:

Plot[{(10 b)/(9 + b),(20 b)/(18 + b),(30 b)/(27 + b),
(40 b)/(36 + b),(50 b)/(45 + b),(60 b)/(54 + b),
(70 b)/(63 + b),(80 b)/(72 + b),(90 b)/(81 + b)},{b,-50,-5},
AxesLabel->{B,C}]

I'm holding another variable constant and want to identify
each of the lines with that particular condition.

Jason

```

• Prev by Date: Differential operators
• Next by Date: Re: A simple swap function
• Previous by thread: RE: Labeling Lines on a multiple plot
• Next by thread: MMA for OS2/Windows front end, Help