Butterfly Function

Author

Eric W. Weisstein
April 28, 2002

This notebook downloaded from http://mathworld.wolfram.com/notebooks/SpecialFunctions/ButterflyFunction.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/ButterflyFunction.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Initialization

Butterfly[n_,opts___]:=DensityPlot[(x^2-y^2)Sin[x+y]/(x^2+y^2),{x,-n,n},{y,-n,n},
opts,Mesh->False,
PlotPoints->500,ColorFunction->Hue,
Frame->False]

Graphic

Show[GraphicsArray[Butterfly[#,DisplayFunction->Identity]&/@{5,20}]]