P_0 = Intersect(xAxis, yAxis)
M_c = Point(xAxis)
c = Circle(P_0, M_c)

Tool: KolmaKruznica
Zvoľte dva body
Input: A, B
Output: KolmaKruz

P2 = Intersect(Circle[(0, 0), 1], Line[A, B], 2)
P1 = Intersect(Circle[(0, 0), 1], Line[A, B], 1)
o = LineBisector(P1, P2)
O1 = Intersect(Circle[(0, 0), 1000], o, 1)
Diameter = Circle(O1, 1000)
A' = Mirror(A, Circle[(0, 0), 1])
B' = Mirror(B, Circle[(0, 0), 1])
Oblúk = If(Length[A] ≟ 1, Circle[A, B, B'], Circle[A, B, A'])
p1 = OrthogonalLine(A, Line[(0, 0), A])
p2 = OrthogonalLine(B, Line[(0, 0), B])
O3 = Intersect(p1, p2)
Ideál = Circle(O3, A)
DiameterLog = AreCollinear((0, 0), A, B)
OblukLog: Length[A] ≟ 1 ∧ Length[B] ≟ 1
KolmaKruz = If(DiameterLog, Diameter, If[OblukLog, Ideál, Oblúk])