Mathematics Stack Exchange is a question and answer site for people studying math at any level and professionals in related fields. 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

I'm looking for a set of functions that can give me curves similar to these.
Any ideas?

The red circle was drawed just as a guide.

enter image description here

share|cite|improve this question

migrated from Apr 24 '14 at 9:23

This question came from our site for users of Mathematica.

What Mathematica function would you like to plot this with? – Jens Apr 24 '14 at 4:00
Possibly relevant: Potential flow around a circular cylinder. ContourPlot[With[{r = Sqrt[x^2 + y^2], θ = ArcTan[x, y]}, (r - 1/r) Sin[θ]], {x, -4, 4}, {y, -2, 2}, RegionFunction -> Function[{x, y}, x^2 + y^2 >= 1], Contours -> Range[-2, 2, 1/4], AspectRatio -> Automatic, Frame -> False] – Rahul Apr 24 '14 at 4:49
This question appears to be off-topic because it does not have to do with the Mathematica software. – Oleksandr R. Apr 24 '14 at 9:23

Your Answer


By posting your answer, you agree to the privacy policy and terms of service.