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