Re: format Text in graphics
- To: mathgroup at smc.vnet.net
- Subject: [mg42273] Re: [mg42251] format Text in graphics
- From: Murray Eisenberg <murray at math.umass.edu>
- Date: Thu, 26 Jun 2003 05:36:26 -0400 (EDT)
- Organization: Mathematics & Statistics, Univ. of Mass./Amherst
- References: <NDBBJGNHKLMPLILOIPPOCEBODKAA.djmp@earthlink.net>
- Reply-to: murray at math.umass.edu
- Sender: owner-wri-mathgroup at wolfram.com
NO -- that does not work properly, on several grounds:
(1) The typeset formula in the graphic is NOT set in conventional
mathematical style, since it seems to be using an italic monospaced font
(Courier?) rather than times;
(2) I require a literal f(x) typset with the f and x in italic roman and
the parentheses upright, and not the value of f[x];
(3) The y and f within the Epilog are not insulated from values that
might be assigned to them previously, so for example
f[x_] := Sin[x]
y = 3;
Plot[x^2, {x, -1, 1}, Epilog -> {Text[SequenceForm[TraditionalForm[
y], " = ", TraditionalForm[f[x]]], {0.5, 0.5}]}];
produces on the graph the text
3 = sin(x)
which is hardly what's needed. Wrapping each of y and the f[x] with
HoldForm does fix (2) and (3), but not (1).
I cannot believe this is so hard to do!
David Park wrote:
> Murray,
>
> Doesn't SequenceForm work here?
>
> f[x_] := x^2
>
> Plot[f[x], {x, -1, 1},
> Epilog -> {Text[
> SequenceForm[TraditionalForm[y], " = ",
> TraditionalForm[f[x]]], {0.5, 0.5}]}];
>
> David Park
> djmp at earthlink.net
> http://home.earthlink.net/~djmp/
>
> From: Murray Eisenberg [mailto:murray at math.umass.edu]
To: mathgroup at smc.vnet.net
>
> 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