O = Intersect(xAxis, yAxis)
M = Point(yAxis)
c = Circle(O, M)
A = (-0.3222336342609714, -0.13112098585073076)
B = (0.29504499677071483, -0.3089809303852838)
d = hUsecka(A, B)
q, text1 = Vzdialenosťbodov1(A, B)
e = hkruznica1(A, B)
f = hkruznica1(B, A)
C, D = Intersect(f, e)
g = hPriamka(D, C)
S_1 = Intersect(d, g, 1)
h = hPriamka(A, B)
k = hkruznica1(B, S_1)
Q_1 = Intersect(h, k, 2)
p = hkruznica1(Q_1, B)
Q_2 = Intersect(h, p, 2)
P = Intersect(e, h, 2)

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)

Tool: hKruznica+ (command hKruznicaPol)
2xBod=Polomer, Stred, Číslo=a
Input: C, B, A, a
Output: k'

c = Circle((0, 0), a)
A' = Mirror(A, c)
B' = Mirror(B, c)
f = Ray((0, 0), A')
g = Ray((0, 0), B')
h = OrthogonalLine(A, f)
i = OrthogonalLine(B, g)
D = Intersect(c, h, 2)
E = Intersect(c, i, 1)
d = Circle(B', E)
e = Circle(A', D)
C' = Mirror(C, d)
k = Circle((0, 0), C')
k' = Mirror(k, e)

Tool: Vzdialenosť bodov (command Vzdialenosťbodov)
Ukáž na dva body
Input: A, B
Output: c, text1

a = 2.9652036420213883
c = hUsecka(A, B)
text1: "d=" + (LaTeX[a]) + ""
C = Midpoint(A, B)

Tool: hKruznica s polomerom (command hKruznicaspolomerom)
2xBod=Polomer, Stred
Input: A, B, C
Output: k'

A' = Mirror(A, Circle[(0, 0), 1])
B' = Mirror(A, Circle[(0, 0), 1])
f = Ray((0, 0), A')
g = Ray((0, 0), B')
h = OrthogonalLine(A, f)
i = OrthogonalLine(B, g)
D = Intersect(Circle[(0, 0), 1], h, 2)
E = Intersect(Circle[(0, 0), 1], i, 1)
e = Circle(A', D)
C' = Mirror(C, Circle[B', E])
k = Circle((0, 0), C')
k' = Mirror(k, e)

Tool: hPriamka (command hPriamka1)
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 (command hUsecka1)
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 (command hkruznica1)
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)

Tool: VzdialenostAB
Klikni na dva body
Input: A, B
Output: j

a: (y * y(B)) = (-((x(B))^(2) + (y(B))^(2) + (x(B) * x) + 1))
b: (y * y(A)) = (-((x(A))^(2) + (y(A))^(2) + (x(A) * x) + 1))
C = Intersect(a, b)
d: x(C)
e: y(C)
D: (((-d)) / 2, ((-e)) / 2)
f = Circle(D, A)
E = Point({Intersect[x^(2) + y^(2) = 1, f]}, If[Angle[B, D, A] < 180°, 1, 0])
F = Point({Intersect[x^(2) + y^(2) = 1, f]}, If[Angle[B, D, A] < 180°, 0, 1])
g = Ray(B, A)
h = Ray(A, B)
G = Intersect(x^(2) + y^(2) = 1, g)
H = Intersect(x^(2) + y^(2) = 1, h)
I = If(Defined[D], E, G)
J = If(Defined[D], F, H)
VzdialAI = Distance(A, I)
VzdialAJ = Distance(A, J)
VzdialBI = Distance(B, I)
VzdialBJ = Distance(B, J)
j = If(VzdialAI ≟ 0 ∨ VzdialAJ ≟ 0 ∨ VzdialBI ≟ 0 ∨ VzdialBJ ≟ 0, Infinity, abs(ln(((VzdialBI * VzdialAJ)) / ((VzdialAI * VzdialBJ)))))

Tool: hKruznica+ (command hKruznicaPol1)
2xBod=Polomer, Stred, Číslo=a
Input: C, B, A, a
Output: k'

c = Circle((0, 0), a)
A' = Mirror(A, c)
B' = Mirror(B, c)
f = Ray((0, 0), A')
g = Ray((0, 0), B')
h = OrthogonalLine(A, f)
i = OrthogonalLine(B, g)
D = Intersect(c, h, 2)
E = Intersect(c, i, 1)
d = Circle(B', E)
e = Circle(A', D)
C' = Mirror(C, d)
k = Circle((0, 0), C')
k' = Mirror(k, e)

Tool: Vzdialenosť bodov (command Vzdialenosťbodov1)
Ukáž na dva body
Input: A, B
Output: c, text1

a = VzdialenostAB(A, B)
c = hUsecka(A, B)
text1: "d=" + (LaTeX[a]) + ""
C = Midpoint(A, B)

Tool: hPriamka (command hPriamka2)
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 (command hUsecka2)
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 (command hkruznica2)
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)

Tool: VzdialenostAB (command VzdialenostAB1)
Klikni na dva body
Input: A, B
Output: j

a: (y * y(B)) = (-((x(B))^(2) + (y(B))^(2) + (x(B) * x) + 1))
b: (y * y(A)) = (-((x(A))^(2) + (y(A))^(2) + (x(A) * x) + 1))
C = Intersect(a, b)
d: x(C)
e: y(C)
D: (((-d)) / 2, ((-e)) / 2)
f = Circle(D, A)
E = Point({Intersect[x^(2) + y^(2) = 1, f]}, If[Angle[B, D, A] < 180°, 1, 0])
F = Point({Intersect[x^(2) + y^(2) = 1, f]}, If[Angle[B, D, A] < 180°, 0, 1])
g = Ray(B, A)
h = Ray(A, B)
G = Intersect(x^(2) + y^(2) = 1, g)
H = Intersect(x^(2) + y^(2) = 1, h)
I = If(Defined[D], E, G)
J = If(Defined[D], F, H)
VzdialAI = Distance(A, I)
VzdialAJ = Distance(A, J)
VzdialBI = Distance(B, I)
VzdialBJ = Distance(B, J)
j = If(VzdialAI ≟ 0 ∨ VzdialAJ ≟ 0 ∨ VzdialBI ≟ 0 ∨ VzdialBJ ≟ 0, Infinity, abs(ln(((VzdialBI * VzdialAJ)) / ((VzdialAI * VzdialBJ)))))

Tool: hKruznica s polomerom (command hKruznicaspolomerom1)
2xBod=Polomer, Stred
Input: C, B, A
Output: k'

A' = Mirror(A, Circle[(0, 0), 1])
B' = Mirror(B, Circle[(0, 0), 1])
f = Ray((0, 0), A')
g = Ray((0, 0), B')
h = OrthogonalLine(A, f)
i = OrthogonalLine(B, g)
D = Intersect(Circle[(0, 0), 1], h, 2)
E = Intersect(Circle[(0, 0), 1], i, 1)
e = Circle(A', D)
C' = Mirror(C, Circle[B', E])
k = Circle((0, 0), C')
k' = Mirror(k, e)

Tool: Kružnica s R (command KružnicasR)
Urči stred, potom dva body = polomer
Input: S, A, B
Output: k'

A' = Mirror(S, Circle[(0, 0), 1])
B' = Mirror(A, Circle[(0, 0), 1])
f = Ray((0, 0), A')
g = Ray((0, 0), B')
h = OrthogonalLine(S, f)
i = OrthogonalLine(A, g)
D = Intersect(Circle[(0, 0), 1], h, 2)
E = Intersect(Circle[(0, 0), 1], i, 1)
C' = Mirror(B, Circle[B', E])
k = Circle((0, 0), C')
k' = Mirror(k, Circle[A', D])