# surfaces are being cut off

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. • Well, Opacity[0.2] certainly made them look anemic. Try with PlotStyle -> 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?) Sep 14 '17 at 6:56 ## 1 Answer Just add PlotRange->All 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,