O = Intersect(xAxis, yAxis)
M = Point(xAxis)
c = Circle((0, 0), (1, 0))
A = (-0.2816494258192214, -0.3918528338415568)
B = (0.4477797955434885, -0.670476012817012)
d = hUsecka(A, B)
e = hkruznica(B, A)
f = hkruznica(A, B)
C_{1}, D = Intersect(e, f)
g = hPriamka(D, C_{1})
E = Intersect(d, g, 1)
h = hPriamka(B, A)
k = hkruznica(A, E)
F = Intersect(h, k, 1)
p = hkruznica(B, E)
G = Intersect(h, p, 2)
q = hkruznica(A, G)
r = hkruznica(F, A)
H = Intersect(h, r, 1)
s = hkruznica(B, H)
C, J = Intersect(q, s)
t = hUsecka(A, C)
c_1 = hUsecka(C, B)
d_1 = hUsecka(B, J)
e_1 = hUsecka(J, A)
f_1 = hkruznica(B, E)
K = Intersect(c_1, f_1, 1)
g_1 = hkruznica(K, B)
L = Intersect(c_1, g_1, 2)
h_1 = hkruznica(L, K)
N = Intersect(c_1, h_1, 2)
k_1 = hkruznica(N, L)
P = Intersect(c_1, h_1, 1)
Q, R = Intersect(c_1, h_1)
p_1 = hkruznica(A, F)
S = Intersect(t, p_1, 1)
q_1 = hkruznica(S, A)
T = Intersect(t, q_1, 1)
r_1 = hkruznica(N, S)
U = (0.5229141359413642, -0.5702968922865111)

Tool: hPriamka
Ukáž na dva body
Input: B, A
Output: hPriamka

A' = Mirror(A, Circle[(0, 0), 1])
B' = Mirror(B, Circle[(0, 0), 1])
k = If(Length[A] ≟ 1, Circle[A, B, B'], Circle[A, B, A'])
Q = Intersect(k, Circle[(0, 0), 1], 1)
P = Intersect(k, Circle[(0, 0), 1], 2)
M = If(Length[A] ≟ 1, B, A)
Obluk = CircumcircleArc(P, M, Q)
Diameter = AreCollinear((0, 0), A, B)
D = Intersect(Circle[(0, 0), 1], Line[A, B], 1)
S_P: (1000 * Rotate[D, 90°])
k_P = Circle(S_P, 1000)
P_D = Intersect(Circle[(0, 0), 1], k_P, 1)
Q_D = Intersect(Circle[(0, 0), 1], k_P, 2)
OblukD = CircumcircleArc(P_D, (0, 0), Q_D)
Nevlastne: Length[A] ≟ 1 ∧ Length[B] ≟ 1
t_{1N} = OrthogonalLine(A, Line[(0, 0), A])
t_{2N} = OrthogonalLine(B, Line[(0, 0), B])
S_N = Intersect(t_{1N}, t_{2N})
k_N = Circle(S_N, A)
M_N = Intersect(k_N, Ray[S_N, Midpoint[A, B]])
OblukN = CircumcircleArc(A, M_N, B)
hPriamka = If(Diameter, OblukD, If[Nevlastne, OblukN, Obluk])

Tool: hUsecka
Ukážte na dva krajné body úsečky
Input: A, B
Output: g

d = hPriamka(A, B)
C = Center(d)
e = CircleArc(C, B, A)
f = CircleArc(C, A, B)
g = If(e ≤ f, e, f)

Tool: hkruznica
Zadaj stred a potom bod kružnice
Input: B, A
Output: p

d = hPriamka(A, B)
f = Line((0, 0), B)
E = Center(d)
e = Circle(E, A)
i = Tangent(A, e)
G = Intersect(f, i)
p = Circle(G, A)