Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1995
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1995

[Date Index] [Thread Index] [Author Index]

Search the Archive

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