Re: changing the NumberForm of Automatic Plot Ticks

• To: mathgroup at smc.vnet.net
• Subject: [mg90694] Re: changing the NumberForm of Automatic Plot Ticks
• From: "David Park" <djmpark at comcast.net>
• Date: Sat, 19 Jul 2008 04:51:35 -0400 (EDT)
• References: <g5piv6\$qas\$1@smc.vnet.net>

```Using the Presentations package you could do something like the following
with the CustomTicks function:

Needs["Presentations`Master`"]

bigdollar[value_] :=
If[value >= 0,
Row[{"\$", NumberForm[value // N, 4], "M"}],
Row[{"-\$", NumberForm[-value // N, 4], "M"}]]

yticks = CustomTicks[10^6 # &, {-200, 200, 100, 5},
CTNumberFunction -> bigdollar];

Plot[200*^6 Sin[t], {t, 0, 2 \[Pi]},
Frame -> True,
FrameTicks -> {{yticks, yticks // NoTickLabels}, {Automatic,
Automatic}},
PlotLabel -> "My Net Worth During the Political Cycle"]

--
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/

"Stern" <nycstern at gmail.com> wrote in message
news:g5piv6\$qas\$1 at smc.vnet.net...
> When using Mathematica to analyze financial problems, I often create
> graphs
> in which the Y axis describes amounts of money. These are typically large
> enough that Mathematica switches to scientific notation (that is, 2.7x10^8
> rather than \$270,000,000). I can force the latter with a custom Ticks
> function (Table[{i,"\$" <> ToString[NumberForm[i, DigitBlock -> 3,
> ExponentFunction -> (Null &)], etc.) but this becomes inelegant when it's
> buried inside a Manipulate call and the range and spacing of the ticks are
> changing. Is there some straightforward way to change the formatting of
> these tick numbers?
>
> Thanks,
>
> Michael Stern
>

```

• Prev by Date: Re: Corrupt graphics output
• Next by Date: Re: Corrupt graphics output
• Previous by thread: changing the NumberForm of Automatic Plot Ticks
• Next by thread: Spreadsheet like input