Major Triangle Center

Author

Eric W. Weisstein
February 3, 2003

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

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

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

Initialization

<<PlaneGeometry`;

Enumeration

ctrs=Table[CenterFunction[X[n]],{n,100}];

p=Position[ctrs,_?(FreeQ[#,(a|b|c|B|C)]&),1,Heads->False]//Flatten;

{#,CenterName[X[#]],CenterFunction[X[#]]}&/@p//ColumnForm