EQUAL CHORDS ARE EQUIDISTANT FROM CENTRE

PREPARED BY BINDU SHIVRAJAN   COPYRIGHT-CC by SA

radius = 4.1 (slider from 1 to 10)
A = (-0.22, 0.46)
c = Circle(A, radius)
E = Point(c)
C = (4.78, 3.74)
D = Point(c)
B = Point(c)
f = Segment(E, B)
F = Point(c)
g = Segment(D, F)
h = OrthogonalLine(A, f)
i = OrthogonalLine(A, g)
G = Intersect(h, f)
H = Intersect(i, g)
distanceAG = Distance(A, G)
TextAG: Name[A] + (Name[G]) + " = " + distanceAG
distanceAH = Distance(A, H)
TextAH: Name[A] + (Name[H]) + " = " + distanceAH
text3: "AH=" + distanceAH + ""
text4: "AG=" + distanceAG + ""