I read this, that and some others. However, I could not get it why some of my surfaces are being cut off (probably due to scaling). Here is what I have:
Plot3D[Table[ (10^-7*t)*(i /w)^2, {t, {1.17, 1.38, 1.56, 2.34, 2.9, 4.12, 4.76}}]
// Evaluate, {i, $MachineEpsilon, 0.0001}, {w, 20*^-9, 100*^-9},
PlotStyle -> Opacity[0.2], Mesh -> False, ClippingStyle -> None, PlotPoints -> 50]
Can someone show me the tricks to get better coloring and more distinguished surfaces. I'm coming from R and was hoping for a better result.
Opacity[0.2]
certainly made them look anemic. Try withPlotStyle -> Directive[Opacity[0.7], Glow[Black]]
and (probably more importantly)PlotRange -> All
. (For reference, could you post a picture of what it might look like in R?) $\endgroup$