Mathematica Stack Exchange is a question and answer site for users of Mathematica. Join them; it only takes a minute:

Sign up
Here's how it works:
  1. Anybody can ask a question
  2. Anybody can answer
  3. The best answers are voted up and rise to the top

This question already has an answer here:

How can I plot the following equation with $k$ assumed to be an integer"? I tried something like this, but it doesn't work:

ContourPlot[{Element[k,Integers], Sqrt[x^2 + y^2] == 4 + k*Pi},{x, -17, 17}, {y, -17, 17}]
share|improve this question

migrated from May 25 '13 at 21:26

This question came from our site for people studying math at any level and professionals in related fields.

marked as duplicate by Sjoerd C. de Vries, Jens, m_goldberg, R. M. May 26 '13 at 5:28

This question has been asked before and already has an answer. If those answers do not fully address your question, please ask a new question.

Possible duplicate: – R. M. May 25 '13 at 21:36

This sounds like what you want:

ContourPlot[Sqrt[x^2 + y^2], {x, -17, 17}, {y, -17, 17}, 
 Contours -> Table[4 + k*Pi, {k, -10, 10}]]

which produces

enter image description here

or perhaps you want the image to be styled like this

enter image description here

which is obtained by adding the option ContourShading -> None.

share|improve this answer
Don't working.... – Lior May 25 '13 at 17:34
Can you be more specific... what isn't working. Is this not the sort of picture you want? Does your copy of Mathematica not recognize these commands? – Zev Chonoles May 25 '13 at 17:36
not, there's not output. and these is the free trial. – Lior May 25 '13 at 17:38
Or alternately: ContourPlot[ Evaluate@Table[Sqrt[x^2 + y^2] == 4 + k*Pi, {k, -10, 10}], {x, -17, 17}, {y, -17, 17}] – R. M. May 25 '13 at 21:32
Doesn't working... – Lior May 27 '13 at 14:42

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