[Date Index] [Thread Index] [Author Index]

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>