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: [mg42285] Re: [mg42273] Re: [mg42251] format Text in graphics
  • From: Gianluca Gorni <gorni at dimi.uniud.it>
  • Date: Fri, 27 Jun 2003 06:31:15 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

If you want "sin x" instead of "sin(x)", you can do it this way:

Format[myEqual[x_, y_], TraditionalForm] :=
    DisplayForm[RowBox[{x, "=", y}]];
Plot[Sin[x], {x, 0, 2Pi},
    Epilog -> {Text[
          TraditionalForm[myEqual[y, RowBox[{sin, x}]]], {Pi, 1/2}]}];

It seems that to do this sort of things you need
to become expert in Box structures!

If you set

$FormatType = TraditionalForm

you no longer need to write TraditionalForm every time you use Text[].
This seems to affect text only within graphics, and tick marks too.

                  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:26 -0400 (EDT)
> To: mathgroup at smc.vnet.net
> Subject: [mg42285] [mg42273] Re: [mg42251] format Text in graphics
> 
> 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
> 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
> 


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