Diagonal Points

Author

Eric W. Weisstein
October 18, 2004

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

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

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

Figure

q=Quadrilateral[{{0,0},{1,0},{.7,.5},{.3,.6}}];
Show[
Graphics[
{
{Blue,CompleteQuadrilateral[q],
Dashing[{.02}],Sides[q,2.5]
},
{Red,Thickness[.005],q},
{Blue,PointSize[.02],DiagonalPoints[q]},
PointLabels[Join[
Append[#,Red]&/@Transpose[{VertexPoints[q],{"A","B","C","D"}}],
Append[#,Blue]&/@Transpose[{DiagonalPoints[q],{"P","Q","R"}}]
],
LabelOffset->.06
]

}
],AspectRatio->Automatic,PlotRange->{{-.2,3},{-.2,1.1}}]