Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: '2-parameter surface colouring' topicStudent Support Forum > General > "2-parameter surface colouring"

< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic
Author Comment/Response
Bill
10/04/10 10:43pm

Hi Toen:

I gave it one more shot. Try this:


gr1 = Normal@
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, 1}, {Y, 0, 1}, {Z, 0, 1},
ContourStyle -> None, Mesh -> 10, MeshStyle -> Thick,
Boxed -> False, Axes -> False, ImageSize -> 500,
Background -> Black];
p1 = gr1 /.
Line[pts__] :> ({Hue[Last@First@#], Line[#]} & /@
Partition[pts, 2, 1])

p2 = 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, 1}, {Y, 0, 1}, {Z, 0, 1},
ContourStyle -> {White, Lighting -> "Neutral"},
Boxed -> False, Mesh -> None, MaxRecursion -> 0,
Boxed -> False, Axes -> None, Background -> Gray,
ImageSize -> 500]

Show[p2, p1]


Regards,

Bill

URL: ,

Subject (listing for '2-parameter surface colouring')
Author Date Posted
2-parameter surface colouring Toen 09/28/10 11:01am
Re: 2-parameter surface colouring Bill 09/29/10 2:47pm
Re: Re: 2-parameter surface colouring Toen 10/02/10 07:24am
Re: 2-parameter surface colouring Bill 10/03/10 03:46am
Re: Re: 2-parameter surface colouring Toen 10/04/10 10:19am
Re: 2-parameter surface colouring Bill 10/03/10 5:42pm
Re: Re: 2-parameter surface colouring Toen 10/04/10 2:41pm
Re: 2-parameter surface colouring Bill 10/04/10 10:43pm
Re: Re: 2-parameter surface colouring Toen 10/05/10 5:29pm
Re: Re: Re: 2-parameter surface colouring Bill 10/06/10 5:54pm
< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic