Re: PlotLabel

*To*: mathgroup at smc.vnet.net*Subject*: [mg36344] Re: [mg36321] PlotLabel*From*: Tomas Garza <tgarza01 at prodigy.net.mx>*Date*: Mon, 2 Sep 2002 04:08:56 -0400 (EDT)*References*: <200208310526.BAA28718@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Try the following (I'm quoting from Tom Wickham-Jones' book on Mathematica Graphics, p. 41): In[1]:= pl[p_] := Plot[Sin[x^p], {x, 0, Pi}, PlotLabel -> StringForm["p = `1`", p], DisplayFunction -> Identity] In[12]:= Table[Show[pl[k], DisplayFunction -> $DisplayFunction], {k, 3}] Tomas Garza Mexico City ----- Original Message ----- From: "André Giroux" <giroux at dms.umontreal.ca> To: mathgroup at smc.vnet.net Subject: [mg36344] [mg36321] PlotLabel > Hi all. > I plot several curve depending on a parameter p and I want the PlotLabel to > show the value of p. > What is wrong with the following ? > > pl[p_]:=Plot[Sin[x^p],{x,0,Pi},PlotLabel\[Rule] "p = " p, > DisplayFunction\[Rule]Identity] > > Table[Show[pl[k],DisplayFunction\[Rule]$DisplayFunction],{k,3}] > > Cheers > > >