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},
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