Wundt Illusion

Author

Eric W. Weisstein
June 6, 2002

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

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

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

Initialization

<<Graphics`Colors`

WundtIllusion[n_,x_:1.3,linesp_:.2]:=Module[{i},
Graphics[{
{
Red,
Line[{{-1,#},{1,#}}]&/@{-linesp,linesp}
},
Table[Line[{{0,1},{-x+2x i/(n-1),0},{0,-1}}],
{i,0,n-1}]
}]
]

Figure

Show[Graphics[WundtIllusion[17,1.15,.2]],PlotRange->All]