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