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
>