Inkreis3
Author: Hildegard Urban-Woldron
Date: 27.10.2005

C = Point(xAxis)
D = (-1.47, 2.23)
A = (-4.433333333333334, -5.666666666666667)
B = (4.033333333333333, 5.4)
E = (6.133333333333333, -3.1666666666666665)
P, e, a, b = Polygon(A, B, E)
f, c = AngularBisector(e, b)
G = Point(e)
F = Point(c)
d = OrthogonalLine(F, e)
H = Intersect(d, e)
g = Circle(F, H)