A place for students to explore mathematics.
e=CircularArc[B, C, A]E=Intersect[e, Segment[D, B]]g=Parabola[E, Segment[C, D]]G=Intersect[g, Segment[D, E]]Circle[G, E]orCircle[Intersect[Parabola[Intersect[CircularArc[B, C, A], Segment[D, B]], Segment[C, D]], Segment[D, Intersect[CircularArc[B, C, A], Segment[D, B]]]], Intersect[CircularArc[B, C, A], Segment[D, B]]]
e=CircularArc[B, C, A]
ReplyDeleteE=Intersect[e, Segment[D, B]]
g=Parabola[E, Segment[C, D]]
G=Intersect[g, Segment[D, E]]
Circle[G, E]
or
Circle[Intersect[Parabola[Intersect[CircularArc[B, C, A], Segment[D, B]], Segment[C, D]], Segment[D, Intersect[CircularArc[B, C, A], Segment[D, B]]]], Intersect[CircularArc[B, C, A], Segment[D, B]]]