Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: problems with FrameTicks

• To: mathgroup at smc.vnet.net
• Subject: [mg131149] Re: problems with FrameTicks
• From: Alexei Boulbitch <Alexei.Boulbitch at iee.lu>
• Date: Fri, 14 Jun 2013 05:02:15 -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

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


Hi, Luigi,

This is slightly different from the answer of Bob Hanlon ([mg131116]):

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}}, FrameTicksStyle -> Directive[16]]

Try to play with the parameters of the FrameTicksStyle

Have fun, Alexei

Alexei BOULBITCH, Dr., habil.
IEE S.A.
ZAE Weiergewan,
11, rue Edmond Reuter,
L-5326 Contern, LUXEMBOURG

Office phone :  +352-2454-2566
Office fax:       +352-2454-3566
mobile phone:  +49 151 52 40 66 44

e-mail: alexei.boulbitch at iee.lu