RE: PlotLabel with assigned variables *and* on several lines
- To: mathgroup at smc.vnet.net
- Subject: [mg49021] RE: [mg49000] PlotLabel with assigned variables *and* on several lines
- From: "Wolf, Hartmut" <Hartmut.Wolf at t-systems.com>
- Date: Tue, 29 Jun 2004 04:49:47 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
- Thread-topic: [mg49000] PlotLabel with assigned variables *and* on several lines
Alain, > >Is there a way to achieve this goal? > yes, all your ideas work, after their syntax having been brushed up a bit (see below inline): Hartmut Wolf >-----Original Message----- >From: Alain Cochard [mailto:alain at geophysik.uni-muenchen.de] To: mathgroup at smc.vnet.net >Sent: Monday, June 28, 2004 10:14 AM >To: mathgroup at smc.vnet.net >Subject: [mg49021] [mg49000] PlotLabel with assigned variables *and* on several >lines > > >Hello. > >By searching the archives I found how to write variables with >specific values. E.g., the following examples work: > > In[253]:= a=1;b=2; Plot[ Sin[x],{x,0,1},PlotLabel->"a=" <> >ToString[a] "b=" <> ToString[b] ] > > In[254]:= a=1;b=2; Plot[ >Sin[x],{x,0,1},PlotLabel->SequenceForm ["a=",a,"b=",b]] > > >Then I also found how to write a label on several lines: > > In[256]:= Plot[ Sin[x],{x,0,1},PlotLabel->"2 \n lines"] > > >But I did not find or succeed in combining the two. E.g., those do >not work: > > In[255]:= a=1;b=2; Plot[ Sin[x],{x,0,1},PlotLabel->"a=" <> >ToString[a] \n "b=" <> ToString[b] ] > > Syntax::sntxf: "a=1;b=2; Plot[ >Sin[x],{x,0,1},PlotLabel->"a=" <> ToString[a" > cannot be followed by "]\n"b=" <> ToString[b] ]". a = 1; b = 2; Plot[Sin[x], {x, 0, 1}, PlotLabel -> "a=" <> ToString[a] <> "\nb=" <> ToString[b]] (* \n is a character *) > > In[264]:= a=1;b=2; Plot[ >Sin[x],{x,0,1},PlotLabel->SequenceForm["a=",a,\n" b=",b]] > > Syntax::com: Warning: comma encountered with no adjacent >expression; the > expression will be treated as Null. > > > Syntax::sntxf: "a=1;b=2; Plot[ >Sin[x],{x,0,1},PlotLabel->SequenceForm ["a=",a" > cannot be followed by ",\n"b=",b]]". a = 1; b = 2; Plot[Sin[x], {x, 0, 1}, PlotLabel -> SequenceForm["a=", a, "\n", "b=", b]] > > > In[264]:= a=1;b=2; Plot[ >Sin[x],{x,0,1},PlotLabel->SequenceForm["a=",a] \n SequenceForm["b=",b]] > > Syntax::sntxf: "a=1;b=2; Plot[ >Sin[x],{x,0,1},PlotLabel->SequenceForm["a=",a]" > cannot be followed by " \n SequenceForm["b=",b]]". > a = 1; b = 2; Plot[Sin[x], {x, 0, 1}, PlotLabel -> ColumnForm[{SequenceForm["a=", a] , SequenceForm["b=", b]}]] >Thanks in advance, >AC > >