| Author |
Comment/Response |
Bill
|
 10/03/10 03:46am
Hi:
Try this one. It'll take a few more seconds to run though.
ContourPlot3D[
Sin[2 Pi X] Cos[2 Pi Y] + Sin[2 Pi Y] Cos[2 Pi Z] +
Cos[2 Pi X] Sin[2 Pi Z] == 0, {X, 0, 2}, {Y, 0, 2}, {Z, 0, 2},
Mesh -> False, Boxed -> False,
Axes -> None, ColorFunction -> (ColorData["BrightBands"][#3] &),
ContourStyle -> Opacity[.8], Background -> Black, ImageSize -> 500]
Hth,
Bill
URL: , |
|
