Message Boards

WOLFRAM COMMUNITY

6545 Views

3 Replies

3 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Mathematics Graphics and Visualization Wolfram Language

[?] Plot 3D (red-blue) graphs?

Kristóf Vörös

Posted 8 years ago

Hello! I would like to create an own constantly moving-waving 3D graph of sin. So it should include two really similar parts of the sin graph as a red one and a blue one. I have written this code: Plot3D[{Cos[x] Sin[y], Cos[x + .5] Sin[y + .5]}, {x, -5, 5}, {y, -5, 5}, MeshShading -> {{Red, None, None, None}, {Red, None, None, None}}, Mesh -> 30] And it gives this graph: The left is red as it should be, but the right side of the graph should be blue. How can I programme it? Furthermore, I would like to displace the black (gray) grid, is it possible? Thank you for helping me. Best regards, Kristóf

POSTED BY: Kristóf Vörös

3 Replies

Sort By:

Jim Baldwin

Jim Baldwin, Retired

Posted 8 years ago

Do you want to produce stereo anaglyphs? If so, then you might want to look at this Mathematica StackExchange post.

POSTED BY: Jim Baldwin

Yehuda Ben-Shimol

Yehuda Ben-Shimol, BGU - Ben Gurion University

Posted 8 years ago

Hi, Do you mean something like g1 = Plot3D[{Cos[x] Sin[y]}, {x, -5, 5}, {y, -5, 5}, MeshShading -> {{Red, None, None, None}}, Mesh -> 30]; g2 = Plot3D[{Cos[x + 0.5] Sin[y + 0.5]}, {x, -5, 5}, {y, -5, 5}, MeshShading -> {{Blue, None, None, None}}, Mesh -> 30]; I'm not it is "pretty", but IMHO this may answer your post

Hi, Do you mean something like

g1 = Plot3D[{Cos[x] Sin[y]}, {x, -5, 5}, {y, -5, 5}, 
   MeshShading -> {{Red, None, None, None}}, Mesh -> 30];
g2 = Plot3D[{Cos[x + 0.5] Sin[y + 0.5]}, {x, -5, 5}, {y, -5, 5}, 
   MeshShading -> {{Blue, None, None, None}}, Mesh -> 30];

enter image description here