7
$\begingroup$

I updated to Mathematica 10 from Mathematica 9. I am trying to create contour plots. I have a saved file with some output that I made using Mathematica 9, with the following equation

ContourPlot[ Evaluate @ {Table[Re @ Sin[x + I y] == 1/2 k, {k, -25, 25}], 
                     Table[Im @ Sin[x + I y] == 1/2 k, {k, -25, 25}]}, 
         {x, -Pi, Pi}, {y, -Pi, Pi}, PlotPoints -> 100, MaxRecursion -> 5]

and it worked for me then. This code also worked for Artes, in his answer here.

Now under Mathematica 10 I get a blank graph. I've tried playing around with the equation but am unable to reproduce anything. Does anybody know what the problem might be?

$\endgroup$
0

1 Answer 1

10
$\begingroup$

Flatten your tables:

ContourPlot[
 Evaluate@Flatten@{Table[Re@Sin[x + I y] == 1/2 k, {k, -25, 25}], 
    Table[Im@Sin[x + I y] == 1/2 k, {k, -25, 25}]},
 {x, -Pi, Pi}, {y, -Pi, Pi},
 PlotPoints -> 100, MaxRecursion -> 5]

Mathematica graphics

I do not know why there has been a change.

$\endgroup$
1
  • $\begingroup$ Wow, that's very pretty :) $\endgroup$
    – Greg Hurst
    Jun 24, 2015 at 23:15

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.