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

**URL:** <https://community.wolfram.com/t/plot-3d-red-blue-graphs/10445>\
**Category:** Questions\
**Tags:** graphics-and-visualization\
**Created:** [May 1, 2017, 10:52am UTC](https://community.wolfram.com/t/plot-3d-red-blue-graphs/10445 "2017-05-01T10:52:05Z")\
**Posts on this page:** 4\
**Page:** 1

<div class="post-metadata">

**Author:** ![vkristof211](https://yyz1.discourse-cdn.com/wolfram/user_avatar/community.wolfram.com/vkristof211/32/11360_2.png) [@vkristof211](https://community.wolfram.com/u/vkristof211)\
**Post date:** [May 1, 2017, 10:52am UTC](https://community.wolfram.com/t/plot-3d-red-blue-graphs/10445/1 "2017-05-01T10:52:05Z")

</div>

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:

 ![3DPlot3D.jpg](https://global.discourse-cdn.com/wolfram/original/2X/3/32be64cc1ed28e8311d83ec64abff57a54b9c5cf.jpeg)

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

---

<div class="post-metadata">

**Author:** ![benshimo](https://yyz1.discourse-cdn.com/wolfram/user_avatar/community.wolfram.com/benshimo/32/681_2.png) [@benshimo](https://community.wolfram.com/u/benshimo)\
**Post date:** [May 1, 2017, 1:10pm UTC](https://community.wolfram.com/t/plot-3d-red-blue-graphs/10445/2 "2017-05-01T13:10:39Z")

</div>

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];

```

 ![10048two.svg](https://global.discourse-cdn.com/wolfram/original/3X/6/4/649e9af28d71a46607d078e5ca338762fc175d07.svg)

I’m not it is “pretty”, but IMHO this may answer your post

---

<div class="post-metadata">

**Author:** ![jbaldwin](https://avatars.discourse-cdn.com/v4/letter/j/91b2a8/32.png) [@jbaldwin](https://community.wolfram.com/u/jbaldwin)\
**Post date:** [May 1, 2017, 3:53pm UTC](https://community.wolfram.com/t/plot-3d-red-blue-graphs/10445/3 "2017-05-01T15:53:52Z")

</div>

Do you want to produce stereo anaglyphs? If so, then you might want to look at this [Mathematica StackExchange](https://mathematica.stackexchange.com/questions/9327/is-it-possible-to-produce-anaglyphs-with-mathematica) post.

---

<div class="post-metadata">

**Author:** ![vkristof211](https://yyz1.discourse-cdn.com/wolfram/user_avatar/community.wolfram.com/vkristof211/32/11360_2.png) [@vkristof211](https://community.wolfram.com/u/vkristof211)\
**Post date:** [May 1, 2017, 5:43pm UTC](https://community.wolfram.com/t/plot-3d-red-blue-graphs/10445/4 "2017-05-01T17:43:32Z")

</div>

Yes, I do. This is what I originally want. Thank you very much, my friend!