2
$\begingroup$

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]

my plot

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.

Improve this question
$\endgroup$
1
  • 1
    $\begingroup$ 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?) $\endgroup$
    – J. M.'s lack of A.I. ♦
    Sep 14, 2017 at 6:56

1 Answer 1

Reset to default
2
$\begingroup$

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,
   PlotRange->All (*added this*)]

Mathematica graphics

Mathematica has some heuristics which uses to decide the most pleasing/optimal plot range to use if none are given.

Improve this answer
$\endgroup$
5
  • $\begingroup$ Now that I see the ful range. I'm like it is a nice heuristic! Would you help me with other sub-questions. Unfortunately, I cannot upvote (due to low rank) but I can mark your solution as an answer. Appreciate it. $\endgroup$
    – Ali Abbasinasab
    Sep 14, 2017 at 7:03
  • $\begingroup$ Particularly, if possible, each curve has a different interval on "w". I could not find a solution. $\endgroup$
    – Ali Abbasinasab
    Sep 14, 2017 at 7:05
  • $\begingroup$ @JohnButler if I can answer the other question(s) will try. They seem unrelated to the cut-off issue. $\endgroup$
    – Nasser
    Sep 14, 2017 at 7:07
  • $\begingroup$ @John, the "different intervals" question seems unrelated, so do ask a new question. Please don't forget to supply those required intervals for each surface should you do so. $\endgroup$
    – J. M.'s lack of A.I. ♦
    Sep 14, 2017 at 7:08
  • $\begingroup$ @J.M.There you go, man. Thanks! mathematica.stackexchange.com/questions/155722/… $\endgroup$
    – Ali Abbasinasab
    Sep 14, 2017 at 7:22

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Not the answer you're looking for? Browse other questions tagged or ask your own question.