Re: Tick Labels Example

*To*: mathgroup at smc.vnet.net*Subject*: [mg47198] Re: Tick Labels Example*From*: bobhanlon at aol.com (Bob Hanlon)*Date*: Tue, 30 Mar 2004 04:01:50 -0500 (EST)*References*: <c48qkp$lo7$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

The searchable archive is at http://forums.wolfram.com/mathgroup/ p1 = Plot[x^2-2x+1, {x,-2,3}, DisplayFunction->Identity]; Show[p1, DisplayFunction->$DisplayFunction, PlotLabel -> "Original Plot"]; Changing FontSize and FontWeight: Show[p1, DisplayFunction->$DisplayFunction, TextStyle-> {FontSize->12, FontWeight->"Bold"}, PlotLabel -> "Changed Font Size and Weight"]; Also changing the length and thickness of the Ticks and using different style for label oldTicks= Ticks /. AbsoluteOptions[p1]; newTicks = oldTicks /. { {x_, 0.} -> {3/2x, 0}, AbsoluteThickness[x_]->AbsoluteThickness[3/2x], x_?(Abs[Round[#]-#]<10^-10&) -> Round[x]}; Show[p1, Ticks -> newTicks, DisplayFunction->$DisplayFunction, TextStyle-> {FontSize->12, FontWeight->"Bold"}, PlotLabel -> StyleForm["New Ticks and Label Style", FontFamily->"Arial",FontSize->14, FontSlant->"Italic", FontWeight->"Plain"]]; Bob Hanlon In article <c48qkp$lo7$1 at smc.vnet.net>, Terry <tharter at attglobal.net> wrote: << I'm sure its been posted here before in the past (is there a newsgroup archive that is searchable?), but could some one post an example of how to get the Tick Labels in a 2D Plot displayed in something other than the "Default" settings. for example, change the font size, and the "Boldness" attribute. Any simple example will do. I don't need to produce any new tick marks than what the default gives, I just want them to appear more visible. >><BR><BR>