Can we have all frame ticks in scientific format in *Plot ?

Questions
,
1

When I plot, for example, the following:

LogLogPlot[x^5, {x, 10^-6, 10^6}, Filling -> Bottom]

497×315 2.9 KB

Some frame ticks are displayed in scientific format and others in decimal form. Is there a way to have all frame ticks displayed with scientific notation? I ended up using something like this:

xticks = Table[{10^i, DisplayForm@SuperscriptBox[10, i]}, {i, -6, 6, 2}]; 
yticks = Table[{10^i, DisplayForm@SuperscriptBox[10, i]}, {i, -30, 30, 5}]; 
LogLogPlot[x^5, {x, 10^-6, 10^6}, Ticks -> {xticks, yticks}, Filling -> Bottom]

499×320 3.18 KB

The thing is, I am satisfied with the tick values computed by Mathematica, but it seems that I’d have to specify these values in order to also dictate how they are displayed.

2

LogLogPlot includes explicit ticks in the result, so we can extract them and adjust the labels to our liking:

llp = LogLogPlot[x^5, {x, 10^-6, 10^6},Filling->Bottom]; 
ticks = Map[
   If[MatchQ[#, {_, _}], {First[#], Superscript[10, Round@Log10[E^First[#]]]}, #] &,
   Ticks /. Options[llp, Ticks], {2}]; 
Show[llp, Ticks -> ticks]

481×302 2.85 KB

3

how to vary the tick length