Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

Re: Scale Values on Plot[]

  • To: mathgroup at smc.vnet.net
  • Subject: [mg51349] Re: [mg51294] Scale Values on Plot[]
  • From: "David Park" <djmp at earthlink.net>
  • Date: Fri, 15 Oct 2004 02:45:42 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Jeremy,

You can use the Tick, or FrameTicks with a Frame, option. One method is just
to make a simple table of the tick locations and values.

Plot[Sin[x], {x, -Pi, Pi},
    Frame -> True,
    FrameTicks -> {Table[{v, v}, {v, -Pi, Pi, Pi/2}], Automatic,
        Table[{v, ""}, {v, -Pi, Pi, Pi/2}], Automatic},
    Axes -> False,
    ImageSize -> 450];

A second method is to use the PiScale routine from the standard package
Graphics`Graphics`. (There is also a LogScale and LinearScale. Use ?*Scale
for information.)

Needs["Graphics`Graphics`"]

Plot[Sin[x], {x, -Pi, Pi},
    Frame -> True,
    FrameTicks -> {PiScale, Automatic, None, Automatic},
    Axes -> False,
    ImageSize -> 450];

This, however, has the slight disadvantage of not providing matching but
unlabeled ticks on the top of the frame. If you use PiScale where None is
you get the values again and if you use Automatic you get unmatching tick
marks.  One could revert to the Table. It would be much better if
Graphics`Graphics` had an option in PiScale for displaying or not displaying
the values. If you are using Axes instead of a Frame this is not a problem.
But labeled Axes are not great if they run through the middle of a plot.

If you use the DrawGraphics package from my web site below, there is a
CustomTicks function that allows more flexibility including using a function
to transform the plot coordinate values to tick values and an option to
control the number formatting - here used to suppress the labels on the top
of the frame. I was able to specify large labeled and small unlabeled ticks
on the bottom of the frame and large and small unlabeled ticks on the top of
the frame. PiScale doesn't allow that and it's a lot more work to specified
large and small ticks with a Table specification.

Needs["DrawGraphics`DrawingMaster`"]

Draw2D[
  {Draw[Sin[x], {x, -Pi, Pi}]},
  Frame -> True,
  FrameTicks ->
    {CustomTicks[Identity, {-Pi, Pi, Pi/2, 2}], Automatic,
      CustomTicks[Identity, {-Pi, Pi, Pi/2, 2}, CTNumberFunction -> ("" &)],
      Automatic},
  ImageSize -> 450

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/




From: Jeremy Foster [mailto:jeremyrfoster at hotmail.com]
To: mathgroup at smc.vnet.net

I would like to plot the simple function of Sin[x] but have the x axis
labels be -Pi, -Pi/2, 0, Pi/2, Pi instead of integer values 1, 2, 3, etc. Is
this possible?

Jeremy Foster





  • Prev by Date: Re: RandomReplacement
  • Next by Date: Re: Solving an equation
  • Previous by thread: Re: Scale Values on Plot[]
  • Next by thread: Save graphics