0
$\begingroup$

I want to plot my function in log-log scale and I want my ticks to be thicker. The code I wrote is:

f2003loglogplot = 
   LogLogPlot[f2003, {x, 1, 50}, 
     PlotLabel -> 2003, 
     PlotRange-> {0.001, 2},  
     FrameLabel -> {"Wealth w [bil. USD]", "Π(w)"}, 
     LabelStyle -> Directive[Black, Bold], 
     Frame -> {{True, False}, {True, False}},
     FrameTicksStyle -> Directive[Thickness[0.01], Black, 12], 
     FrameStyle -> Directive[Thickness[0.003], Black, 12]]

However, my ticks don't change in width or height. What am I doing wrong?

Improve this question
$\endgroup$
  • 5
    $\begingroup$ It's a known bug. For a workaround see mathematica.stackexchange.com/questions/57425/… $\endgroup$ – eldo Jan 17 '16 at 23:33
  • $\begingroup$ It doesn't really work. It changes my x axis to linear scale. How do I modify it to work? $\endgroup$ – Caims Jan 17 '16 at 23:58
  • $\begingroup$ Which Mathematica version do you use? I have checked my fix with version 10.3.1 with your plot and it does work. $\endgroup$ – Alexey Popkov Jan 18 '16 at 4:36
  • $\begingroup$ I have updated my answer in the linked thread with a universal fix for versions 8 and 9. $\endgroup$ – Alexey Popkov Jan 18 '16 at 4:50
  • $\begingroup$ I'm using 10.3 on windows 8. Maybe I'm using it wrong. The way I use it is like this: fixLogPlots@LogLogPlot...(... is the rest of my code). $\endgroup$ – Caims Jan 18 '16 at 8:47
0
$\begingroup$

I post this in case it is helpful:

tk[l_, u_, a_, b_, c_, d_] := 
  Table[{j, j, {a, b}}, {j, l, u}]~Join~
   Table[{j, "", {c, d}}, {j, l + 1/2, u - 1/2}];
Manipulate[
 LogLogPlot[2^x, {x, 1, 3}, Frame -> True, 
  FrameTicks -> {{tk[2, 8, a, b, c, d], None}, {tk[1, 3, a, b, c, d], 
     None}}, FrameTicksStyle -> {Red, Directive[Blue, Thick]}],
 {a, 0.01, 0.5},
 {b, 0.01, 0.5},
 {c, 0.005, 0.2},
 {d, 0.005, 0.2}
 ]

enter image description here

Improve this answer
$\endgroup$

Not the answer you're looking for? Browse other questions tagged or ask your own question.