0

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?

m_goldberg
  • 107,779
  • 16
  • 103
  • 257
Caims
  • 432
  • 2
  • 11
  • 5
    It's a known bug. For a workaround see http://mathematica.stackexchange.com/questions/57425/thickness-of-logarithmic-tick-marks – eldo Jan 17 '16 at 23:33
  • It doesn't really work. It changes my x axis to linear scale. How do I modify it to work? – Caims Jan 17 '16 at 23:58
  • Which Mathematica version do you use? I have checked my fix with version 10.3.1 with your plot and it does work. – Alexey Popkov Jan 18 '16 at 04:36
  • I have updated my answer in the linked thread with a universal fix for versions 8 and 9. – Alexey Popkov Jan 18 '16 at 04:50
  • 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). – Caims Jan 18 '16 at 08:47
  • It does work now. Miracle happened. Thank you. – Caims Jan 18 '16 at 08:58

1 Answers1

1

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

ubpdqn
  • 60,617
  • 3
  • 59
  • 148