Re: Re: Re: format Text in graphics
- To: mathgroup at smc.vnet.net
- Subject: [mg42287] Re: [mg42274] Re: [mg42260] Re: [mg42251] format Text in graphics
- From: Omega Consulting <info at omegaconsultinggroup.com>
- Date: Fri, 27 Jun 2003 06:31:17 -0400 (EDT)
- References: <200306250950.FAA04042@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
I think there is a simpler way to do this. There is a nice feature that styles applied inside strings will be used in the graph. Start with a plain string. Plot[Sin[x], {x, 0, 2Pi}, Epilog -> {Text["y=f(x)", {Pi, 1/2}]}]; Then select characters inside the string and add font features (italics, fontfamily, etc.). The following is a step in the right direction. (It's pretty ugly here, but paste it in the frontend and it should look fine.) Plot[Sin[x], {x, 0, 2Pi}, Epilog -> {Text["\!\(\* StyleBox[\"y\",\nFontFamily->\"Times New Roman\",\nFontSlant->\"Italic\"]\)\!\ \(\* StyleBox[\"=\",\nFontFamily->\"Times New Roman\"]\)\!\(\* StyleBox[\"f\",\nFontFamily->\"Times New Roman\",\nFontSlant->\"Italic\"]\)\!\ \(\* StyleBox[\"(\",\nFontFamily->\"Times New Roman\"]\)\!\(\* StyleBox[\"x\",\nFontFamily->\"Times New Roman\",\nFontSlant->\"Italic\"]\)\!\ \(\* StyleBox[\")\",\nFontFamily->\"Times New Roman\"]\)", {Pi, 1/2}]}]; At 04:36 AM 6/26/2003, Murray Eisenberg 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. > > >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 > > > > 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: [mg42287] [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 -------------------------------------------------------------- Omega Consulting "The final answer to your Mathematica needs" http://omegaconsultinggroup.com
- Follow-Ups:
- Re: Re: Re: Re: format Text in graphics
- From: Murray Eisenberg <murray@math.umass.edu>
- Re: Re: Re: Re: format Text in graphics
- References:
- Re: format Text in graphics
- From: Gianluca Gorni <gorni@dimi.uniud.it>
- Re: format Text in graphics