Varignon Parallelogram

Author

Eric W. Weisstein
March 20, 2003

This notebook downloaded from http://mathworld.wolfram.com/notebooks/PlaneGeometry/VarignonParallelogram.nb.

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

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

Initialization

<<PlaneGeometry`

Figure

q=Quadrilateral[{{0,0},{.8,.1},{1.2,.5},{.2,.8}}];
Show[Graphics[{
q,
EqualSideTicksAboutMidpoints[q,.015,.02],
{Red,mq=MidpointPolygon[q]}
}],
AspectRatio->Automatic]

SideLengths[Evaluate[mq]]