Splitter

Author

Eric W. Weisstein
February 1, 2011

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

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

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

Graphic

V5

tri={{0,0},{1,.1},{.3,.7}};
pts={NagelPoint,"Na"};
s=Splitters[tri];
Show[Graphics[{
	{Thickness[.01],Triangle[tri]},
		s,
	PointLabels[tri,pts,.03,{.03,.05}]
  }],
  AspectRatio->Automatic]

V6

tri=Triangle[{{0,0},{1,.1},{.3,.7}}];
pts={NagelPoint,"Na"};
s=Splitters[tri];

Graphics[{
tri,
Red,s,
PointLabels[{{"Na",NagelPoint[tri],LabelOffset->.06{.5,.7}}}]
  }]