CustomTicks and small ranges

Question

UPDATE

While the self-posted answer below (TickLabelStyle->TraditionalForm) works for most things, it also has the following effect: Integers are given periods in the label. That is, if the ticks would be at {1,2,3,4}, the labels are given as {"1.","2.","3.","4."} instead of the more pleasing {"1","2","3","4"}. Is there a better form or formatting function to use in this case?

---

I'm using the CustomTicks package from LevelScheme, and am having problems with displaying things when the range is very small ($10^{-11}$). For example, with default Mathematica:

ListPlot[{RandomReal[#], RandomReal[#]} & /@ (Range[100] 10^-10), 
 Frame -> True, Axes -> False]

Gives

While the equivalent, reproducible CustomTicks equivalent is:

ListPlot[{RandomReal[#], RandomReal[#]} & /@ (Range[100] 10^-10), 
 Frame -> True, Axes -> False, 
 FrameTicks -> {LinTicks, LinTicks, StripTickLabels@LinTicks, 
   StripTickLabels@LinTicks}]

which gives:

Erk. I must be missing something from the documentation, but I can't seem to find the right options. I want to eventually set more options for LinTicks (such as Tick length, etc), but this is a minimal example, and once this is solved, I can work on adding those options.

I can also double check that the range is set correctly by doing things slightly more by hand:

In[11]:= data = {RandomReal[#], 
     RandomReal[#]} & /@ (Range[100] 10^-10);
xRange = {Min@data[[All, 1]], Max@data[[All, 1]]}
yRange = {Min@data[[All, 2]], Max@data[[All, 2]]}

Out[12]= {3.82894*10^-11, 9.18792*10^-9}

Out[13]= {5.96584*10^-12, 9.54224*10^-9}


In[14]:= ticks = FrameTicks -> {
    LinTicks[xRange[[1]], xRange[[2]], MajorTickLength -> {0, 0.015},
 MinorTickLength -> {0, 0.005}],
    LinTicks[yRange[[1]], yRange[[2]], MajorTickLength -> {0, 0.015},
 MinorTickLength -> {0, 0.005}],
    StripTickLabels@LinTicks[xRange[[1]], xRange[[2]]],
    StripTickLabels@LinTicks[yRange[[1]], yRange[[2]]]
}

Output omitted, but the range from LinTicks is correct. The x axis is $2\times 10^{-9}$ to $9\times 10^{-9}$, so they should output fine.

ListPlot[data, Frame -> True, Axes -> False, ticks]

Gives

Any ideas?

Answer 1

As soon as I posted, I realized I could check whether there were any options for LinTicks that might be useful:

Options@LinTicks // TableForm

Scanning that list, I saw:

TickLabelFunction -> Automatic

On a hunch, I added

TickLabelFunction -> TraditionalForm

To the ticks definition from the question, and things worked: