Schiffler Point

Author

Eric W. Weisstein
January 19, 2003

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

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

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

Initialization

<<PlaneGeometry`

Graphic

tri={{0.,-.1},{1.,.7},{2.,-.7}};
pts={
		SchifflerPoint,"Sc",Incenter,"I"
};

Show[Graphics[{
Triangle[tri],
			PointLabels[tri,pts],
  {Thickness[.01],SchifflerPointConstruction[tri]}
  }],
  AspectRatio->Automatic,PlotRange->{{-.5,2.5},{-1,1}}]

tri={{0.,-.1},{1.,.5},{2.,-.7}};
Show[Graphics[{
Triangle[tri],
  {Thickness[.01],SchifflerPointConstruction[tri]},
  {PointSize[.04],SchifflerPoint[tri]},
  {PointSize[.02],Incenter[tri]}
  }],
  AspectRatio->Automatic,PlotRange->{{-.5,2.5},{-1,1}}]