MathGroup Archive 2003

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

Search the Archive

Re: format Text in graphics

  • To: mathgroup at smc.vnet.net
  • Subject: [mg42336] Re: format Text in graphics
  • From: bghiggins at ucdavis.edu (Brian Higgins)
  • Date: Tue, 1 Jul 2003 08:45:42 -0400 (EDT)
  • References: <bdjfrb$8c7$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Another useful trick is to handle expressions that  are candidates for
reorganization (i.e. z+a=>a+z  when you use HoldForm is to make use of
the Infix function:

Plot[Sin[x], {x, 0, 2Pi}, Epilog -> Text[TraditionalForm[Infix[{z, a},
"+"]], {Pi, 1/2}]];

By manipulating Infix with HoldForm and replacement rules one can
obtain quite a bit of flexibility

Plot[Sin[x], {x, 0, 2Pi},
Epilog -> Text[TraditionalForm[HoldForm[f[x] = p] /. p -> Infix[{z,
a}, "+"]], {Pi, 1/2}]]

Cheers,

Brian


  • Prev by Date: NDSolve and partial differential equations
  • Next by Date: RE: plot1 and plot2
  • Previous by thread: Re: NDSolve and partial differential equations
  • Next by thread: Re: format Text in graphics