Re: Re: Re: format Text in graphics
- To: mathgroup at smc.vnet.net
- Subject: [mg42307] Re: [mg42274] Re: [mg42260] Re: [mg42251] format Text in graphics
- From: Gianluca Gorni <gorni at dimi.uniud.it>
- Date: Sat, 28 Jun 2003 03:21:51 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
A more straightforward way:
Plot[Sin[x], {x, 0, 2Pi},
Epilog -> Text[TraditionalForm[HoldForm[y = f[x]]], {Pi, 1/2}]];
Even HoldForm does not avoid occasional rearrangements of the
formulas, though. For example "z+a" will be rendered as "a+z".
For such cases I wonder if we can avoid writing down explicit Boxes.
Gianluca Gorni
> From: Murray Eisenberg <murray at math.umass.edu>
To: mathgroup at smc.vnet.net
> Organization: Mathematics & Statistics, Univ. of Mass./Amherst
> Reply-To: murray at math.umass.edu
> Date: Thu, 26 Jun 2003 05:36:27 -0400 (EDT)
> To: mathgroup at smc.vnet.net
> Subject: [mg42307] [mg42274] Re: [mg42260] Re: [mg42251] format Text in graphics
>
> 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: [mg42307] [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
>