Re: problems with FrameTicks
- To: mathgroup at smc.vnet.net
- Subject: [mg131114] Re: problems with FrameTicks
- From: Helen Read <readhpr at gmail.com>
- Date: Wed, 12 Jun 2013 05:38:52 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-outx@smc.vnet.net
- Delivered-to: mathgroup-newsendx@smc.vnet.net
- References: <kp6fru$ndj$1@smc.vnet.net>
Format the ticks as strings.
Plot[{3*10^20, 4*10^20}, {x, 0, 105}, PlotStyle -> Black,
Filling -> {2 -> {1}}, FillingStyle -> LightRed, Frame -> True,
Axes -> None, FrameLabel -> {"x", None, None, "y"},
BaseStyle -> {FontSize -> 32, FontFamily -> "Arial"},
FrameStyle -> Directive[Black, AbsoluteThickness[3]],
PlotRange -> {All, {0, 6*10^20}}, PlotRangePadding -> {10, 0},
FrameTicks -> {{None,
Table[{n*10^20,
ToString[n] <> "\[Times]" <>
"\!\(\*SuperscriptBox[\(10\), \(20\)]\)"}, {n, 1,
6}]}, {Automatic, None}}]
This part:
"\!\(\*SuperscriptBox[\(10\), \(20\)]\)"
Can be entered as 10^20 in quotes with the 20 in the exponent. You can
use the keyboard shortcut Ctl-6 to make the exponent.
On 6/11/2013 2:25 AM, van zano wrote:
> Dear All,
> I have problems in getting FrameTicks do what I would like it to do.
> The problem is the following:
> in plotting
>
> Plot[{3*10^20, 4*10^20}, {x, 0, 105},
> PlotStyle -> Black,
> Filling -> {2 -> {1}},
> FillingStyle -> LightRed,
> Frame -> True,
> Axes -> None,
> FrameLabel -> {"x", None, None, "y"},
> BaseStyle -> {FontSize -> 32, FontFamily -> "Arial"},
> FrameStyle -> Directive[Black, AbsoluteThickness[3]],
> PlotRange -> {All, {0, 6*10^20}},
> PlotRangePadding -> {10, 0},
> FrameTicks -> {{None,
> Table[{n*10^20, n*Superscript[10, 20]}, {n, 1, 6}]}, {Automatic,
> None}}]
>
>
> I would like to have on the y axis (on the right) nice looking ticks. That means:
> - starting with "1*10^20" (why does it drop the "1"?)
> - with a multiplication symbol in between the prefactor "n" and the "10^20"
>
> thank you in advance, Luigi
>