Message Boards Message Boards

0
|
5965 Views
|
3 Replies
|
3 Total Likes
View groups...
Share
Share this post:

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

Kristóf Vörös
Posted 7 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:
enter image description here

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:

Yes, I do. This is what I originally want. Thank you very much, my friend!
POSTED BY: Kristóf Vörös
Jim Baldwin
Jim Baldwin, Retired
Posted 7 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

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

I'm not it is "pretty", but IMHO this may answer your post
POSTED BY: Yehuda Ben-Shimol
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract