       RE: Labeling Lines on a multiple plot

• Subject: [mg2159] RE: [mg2122] Labeling Lines on a multiple plot
• From: SChandler at Mail.Law.UH.EDU ("Chandler, Seth")
• Date: Wed, 11 Oct 1995 05:57:38 GMT
• Approved: usenet@wri.com
• Distribution: local
• Newsgroups: wri.mathgroup
• Organization: Wolfram Research, Inc.
• Sender: daemon at wri.com ( )

```
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},
Epilog->MapThread[Text[#2,{rightEdge,#1[rightEdge]},
{-1,0}]&,{first,thelabels}]]

Seth J. Chandler
Associate Professor
University of Houston Law Center

----------
>From:  mathgroup-adm[SMTP:mathgroup-adm at smc.vnet.net]
>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: Re: MMA for OS2/Windows front end, Help
• Next by Date: Re: Plotting
• Previous by thread: Labeling Lines on a multiple plot
• Next by thread: RE: Labeling Lines on a multiple plot