MathGroup Archive 2003

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

Search the Archive

Re: Re: format Text in graphics

  • To: mathgroup at smc.vnet.net
  • Subject: [mg42274] Re: [mg42260] Re: [mg42251] format Text in graphics
  • From: Murray Eisenberg <murray at math.umass.edu>
  • Date: Thu, 26 Jun 2003 05:36:27 -0400 (EDT)
  • Organization: Mathematics & Statistics, Univ. of Mass./Amherst
  • References: <200306250950.FAA04042@smc.vnet.net>
  • Reply-to: murray at math.umass.edu
  • Sender: owner-wri-mathgroup at wolfram.com

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.


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: [mg42274] [mg42260] [mg42251] 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
>>
> 
> 
> 

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


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