Номера осей мешают друг другу

Question

У меня есть сюжет в Mathematica, и проблема в том, что номера осей сюжета мешают друг другу. Как убрать средние числа, например, «5 * 10 ^ 12, 5 * 10 ^ 13, ...» и сохранить основные числа «1 * 10 ^ 12, 1 * 10 ^ 13, ...» , Есть ли другой способ решить проблему?

Участок

Answer 1

Другой вариант - сохранить все метки и повернуть их:

xticks = Charting`ScaledTicks[{Log, Exp}][Log[min], Log[max]];
xticks[[All, 1]] = Exp@xticks[[All, 1]];
xticks[[All, 2]] = Rotate[#, Pi/2] & /@ xticks[[All, 2]];

LogLogPlot[f[x], {x, min, max}, Frame -> True, 
 FrameTicks -> {Automatic, {xticks, Automatic}}, BaseStyle -> 18, 
 FrameLabel -> {"X", "Y"}]

Answer 2

Используя простой пример, галочки можно исправить следующим образом.Код ссылки из здесь и здесь .

Во-первых, регистр с перекрывающимися метками.

f[x_] := x^2 + x^3

{min, max} = {10^-12, 10^-10};

LogLogPlot[f[x], {x, min, max}, Frame -> True,
 BaseStyle -> 18, FrameLabel -> {"X", "Y"}]

Удаление альтернативных меток.

xticks = Charting`ScaledTicks[{Log, Exp}][Log[min], Log[max]];
xticks[[All, 1]] = Exp@xticks[[All, 1]];
xticks[[All, 2]] = ReplacePart[xticks[[All, 2]],
   Thread[Select[Range@Length@xticks, EvenQ] -> Spacer[{0, 0}]]];

LogLogPlot[f[x], {x, min, max}, Frame -> True,
 FrameTicks -> {Automatic, {xticks, Automatic}},
 BaseStyle -> 18, FrameLabel -> {"X", "Y"}]