Titchener Illusion

Author

Eric W. Weisstein
June 10, 2002

This notebook downloaded from http://mathworld.wolfram.com/notebooks/RecreationalMath/TitchenerIllusion.nb.

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

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

Initialization

<<Graphics`Colors`

TitchenerIllusion[R_,{n_,r_}]:=Module[{},
Graphics[{
{Red,Circle[{0,0},1]},
Table[Circle[R{Cos[#],Sin[#]},r]&[2Pi i/n],{i,n}]
}]
]

Figure

Show[GraphicsArray[Show[#,
DisplayFunction->Identity,
PlotRange->4.5{{-1,1},{-1,1}},
AspectRatio->Automatic]&/@{TitchenerIllusion[1.6,{6,.3}],
TitchenerIllusion[3,{6,1.2}]
}
]]