Take the 2-minute tour ×
Mathematics Stack Exchange is a question and answer site for people studying math at any level and professionals in related fields. It's 100% free, no registration required.

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|improve this question

migrated from mathematica.stackexchange.com 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] i.stack.imgur.com/9ZStt.png –  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.