MathGroup Archive 2003

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

Search the Archive

Re: format Text in graphics

  • To: mathgroup at smc.vnet.net
  • Subject: [mg42299] Re: format Text in graphics
  • From: Paul Abbott <paul at physics.uwa.edu.au>
  • Date: Fri, 27 Jun 2003 06:31:27 -0400 (EDT)
  • Organization: The University of Western Australia
  • References: <200306250950.FAA04042@smc.vnet.net> <bdefg7$dko$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

In article <bdefg7$dko$1 at smc.vnet.net>,
 Murray Eisenberg <murray at math.umass.edu> wrote:

> Thanks to all who have replied so far -- and please keep the answers 
> coming!  Perhaps we will at last see a truly simple, straigntforward, 
> robust, and correct way to accomplish what seems such a basic task for 
> annotating graphics!
> 
> So far, the solution below -- with the proposer's subsequent (privately 
> sent) amendment to wrap y and f[x] with HoldForm -- seems to be the only 
> one that actually works in the sense I indicated.
> 
> There still seems to be no general solution that would also properly 
> format, in conventional form, other math expressions as Text in graphics 
> output.

Surely HoldForm does exactly what you want? Try

  Plot[Sin[x], {x, 0, 2Pi},
     Epilog -> {Text[TraditionalForm[HoldForm[y = f[x]]], {Pi, 3/4}]}];

Cheers,
Paul

> Gianluca Gorni wrote:
> > Hello!
> > 
> > I do it this way:
> > 
> > Format[myEqual[x_, y_], TraditionalForm] :=
> >   DisplayForm[RowBox[{x, "=", y}]];
> > 
> > Plot[Sin[x], {x, 0, 2Pi},
> >     Epilog -> {Text[TraditionalForm[myEqual[y, f[x]]], {Pi, 1/2}]}];
> > 
> > Good luck,
> > 
> >               Gianluca Gorni
> > 
> > 
> >>From: Murray Eisenberg <murray at math.umass.edu>
To: mathgroup at smc.vnet.net
> > 
> > To: mathgroup at smc.vnet.net
> > 
> >>Organization: Mathematics & Statistics, Univ. of Mass./Amherst
> >>Reply-To: murray at math.umass.edu
> >>Date: Wed, 25 Jun 2003 01:53:47 -0400 (EDT)
> >>To: mathgroup at smc.vnet.net
> >>Subject: [mg42299]  format Text in graphics
> >>
> >>What value of Epilog in a Plot expression will properly format
> >>
> >>y = f(x)
> >>
> >>in conventional mathematical style?  That is, the y, f, and x should be
> >>italicized but the = and parentheses should not.
> >>
> >>Some things that do NOT work:
> >>
> >>Epilog -> Text[TraditionalForm[y = f(x)], {0.5, 0.5}]
> >>
> >>(* that just sets y to be f(x) and then displays f(x) *)
> >>
> >>textForm[txt_] := StyleForm[txt, FontFamily -> Times]
> >>mathForm[txt_] := StyleForm[txt, FontFamily -> Times, FontSlant -> Italic]
> >>
> >>Epilog -> Text[mathForm["y "], textForm["="], mathForm[" f(x)"], {0.5 0.5}]
> >>
> >>(* SOMETHING like the preceding should work, but I don't see how to
> >>combine the three StyleForm results *)
> >>
> >>-- 
> >>Reply to "REPLY TO" address and NOT to the "FROM" address!!
> >>Otherwise I will never see your reply!!!!!!!!!!!!!!!!!!!!!!
> >>
> >>Murray Eisenberg                     murray at math.umass.edu
> >>Mathematics & Statistics Dept.
> >>Lederle Graduate Research Tower      phone 413 549-1020 (H)
> >>University of Massachusetts                413 545-2859 (W)
> >>710 North Pleasant Street            fax   413 545-1801
> >>Amherst, MA 01003-9305
> >>
> > 
> > 
> >

-- 
Paul Abbott                                   Phone: +61 8 9380 2734
School of Physics, M013                         Fax: +61 8 9380 1014
The University of Western Australia      (CRICOS Provider No 00126G)         
35 Stirling Highway
Crawley WA 6009                      mailto:paul at physics.uwa.edu.au 
AUSTRALIA                            http://physics.uwa.edu.au/~paul


  • Prev by Date: Re: Re: format Text in graphics
  • Next by Date: Re: Re: format Text in graphics
  • Previous by thread: Re: Re: format Text in graphics
  • Next by thread: Re: Re: format Text in graphics