Bug introduced in 11.0 and persisting through 11.1
Running the code:
c1 = 3*^-20;
c2 = 0.8*^-2;
c3 = 5*^16;
a = 1*^-9;
Plot3D[(c1 + c2 q^2) (1 - Cos[2 Pi (x - q)/a]) + (c3 q^4), {x, 0,
5*^-8}, {q, 0, 1*^-9}, PlotPoints -> 100]
results in the plot
that is to say, a plot that is missing colour, or rather it colours everything black, the Roling stones style. Running the same code on my windows machine, the plot becomes coloured. My linux machine runs mathematica 11, my windows mathematica 10.
Any ideas what might cause this behaviour and more importantly how to fix it?
Thanks!