Mill Curve

Author

Eric W. Weisstein
March 16, 2008

This notebook downloaded from http://mathworld.wolfram.com/notebooks/PlaneCurves/MillCurve.nb.

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

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

Equation

MillCurve[n_,{x_,y_}]:=Sum[x^k y^(n-k)(-1)^((n-k)/2) Binomial[n,k],{k,n,0,-2}]

MillCurve[6,{x,y}]

MillCurve[5,{x,y}]

Plot

<<Graphics`ImplicitPlot`

Show[GraphicsArray[
Block[{$DisplayFunction=Identity},
Partition[Table[
ImplicitPlot[Evaluate[MillCurve[n,{x,y}]==0],{x,-2,2},PlotStyle->Red,
AspectRatio->Automatic,Ticks->None,PlotRange->{{-1,1},{-1,1}}2],{n,2,7}],3]]]]