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

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