Circular Triangle

Eric W. Weisstein
January 11, 2002

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

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

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

Figure

c={{{0,0},1},{{.7,1},1.3},{{-.5,.5},.8}};
w=CircleCircleIntersections[c]

Show[Graphics[{
{Thickness[.01],Table[Circle[c[[i,1]],c[[i,2]]],{i,3}]},
ApolloniusCirclesSolve[c],
{PointSize[.03],Point/@Flatten[w,1]}
}],AspectRatio->Automatic]

Show[Graphics[{
			{Thickness[.01],Table[Circle[c[[i,1]],c[[i,2]]],{i,3}]},
			{PointSize[.03],Point/@Flatten[w,1]},
			{
				Table[Circumcircle[{w[[1,i]],w[[2,j]],w[[3,k]]}],{i,2},{j,2},{k,2}]}
		}],AspectRatio->Automatic,PlotRange->{{-2,2},{-2,3}}]