Daisy

Author

Eric W. Weisstein
August 31, 2007

This notebook downloaded from https://mathworld.wolfram.com/notebooks/RecreationalMath/Daisy.nb.

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

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

Code

Daisy[{a1_,a2_,da_},{s_,size_},f_:Disk,opts___?OptionQ]:=Graphics[
f[Exp[#/s] Through[{Cos,Sin}[#]],Exp[#/s]size]&/@Range[a1,a2,da],opts]

Interactive

Manipulate[Daisy[{θ0,30,dθ},{expconst,disksize}],
{{θ0,-30},-100,100},
{{dθ,.5},.1,1},
{{expconst,30},10,100},
{{disksize,.1},0,1}
]

Graphic

GraphicsArray[
{
Daisy[{-30,30,.5},{30,.1}],
Daisy[{-5,30,.5},{15,.2}]
},ImageSize->500]