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 >