S'_1=V'_1

x_{12}

S_1=V_1

α_2

I'_α

II'_α

S'_α

I_α

II_α

S_α

1_α

2_α

1_α

2_α

β_2

I'_β

II'_β

S'_β

I_β

II_β

S_β

1_β

2_β

1_β

2_β

γ_2

I'_γ

II'_γ

S'_γ

I_γ

II_γ

S_γ

1_γ

2_γ

1_γ

2_γ

Výška = 6.4 (slider from 0 to 10, step 0.1)
polomerKuzel' = 4 (slider from 0 to 10, step 0.1)
S'_2 = (-1, 0)
podstava'_2 = Circle(S'_2, polomerKuzel')
V'_2 = (-1, 8)
S'_1 = (-1, -5)
O: (0, 0)
x_{12} = Line((0, 0), (1, 0))
obrysL', obrysP' = Intersect(podstava'_2, x_{12})
roh1 = (-9.130919617476001, 12.875243048861993)
roh2 = Point(Circle[roh1, 21])
roh4 = Point(Circle[roh1, 29.7])
roh3 = Point(Circle[roh4, 21])
S_2 = (3, 0)
S_1 = (3, -7)
V_2 = (3, 10)
polomerKuzel = 5.4 (slider from 0 to 10, step 0.1)
podstava_1 = Circle(S'_1, polomerKuzel')
podstava'_1 = Circle(S_1, polomerKuzel)
podstava_2 = Circle(S_2, polomerKuzel)
obrysL, obrysP = Intersect(podstava_2, x_{12})
stranaL_2 = Segment(obrysL, V_2)
stranaP_2 = Segment(V_2, obrysP)
stranaP'_2 = Segment(V'_2, obrysP')
stranaL'_2 = Segment(obrysL', V'_2)
o'_2 = Segment(S'_2, V'_2)
o_2 = Segment(S_2, V_2)
αii = (8.998903418047956, 0.9674894574823787)
αα_2 = Line(αii, x_{12})
αi = Point(αα_2)
α_2 = Segment(αi, αii)
I'α_2 = Intersect(αα_2, stranaL'_2)
II'α_2 = Intersect(αα_2, stranaP'_2)
Rez'α_2 = Segment(I'α_2, II'α_2)
S'α_2 = Intersect(αα_2, o'_2)
Iα_2 = Intersect(αα_2, stranaL_2)
IIα_2 = Intersect(αα_2, stranaP_2)
Rezα_2 = Segment(Iα_2, IIα_2)
Sα_2 = Intersect(αα_2, o_2)
polomer'α = Distance(S'α_2, I'α_2)
polomerα = Distance(Sα_2, IIα_2)
Rez'α_1 = Circle(S'_1, polomer'α)
Rezα_1 = Circle(S_1, polomerα)
p1α_1, p2α_1 = Intersect(Rezα_1, Rez'α_1)
ord1_α = Ordinála(p1α_1, x_{12})
ord2_α = Ordinála(p2α_1, x_{12})
p1α_2 = Intersect(ord1_α, αα_2)
p2α_2 = Intersect(ord2_α, αα_2)
βii = (7.961891844023902, 3.5778979024394713)
ββ_2 = Line(βii, x_{12})
βi = Point(ββ_2)
β_2 = Segment(βi, βii)
I'β_2 = Intersect(ββ_2, stranaL'_2)
II'β_2 = Intersect(ββ_2, stranaP'_2)
Rez'β_2 = Segment(I'β_2, II'β_2)
S'β_2 = Intersect(o'_2, ββ_2)
Iβ_2 = Intersect(stranaL_2, ββ_2)
IIβ_2 = Intersect(stranaP_2, ββ_2)
Rezβ_2 = Segment(S'β_2, IIβ_2)
Sβ_2 = Intersect(o_2, ββ_2)
polomer'β = Distance(S'β_2, I'β_2)
polomerβ = Distance(Sβ_2, IIβ_2)
Rez'β_1 = Circle(S'_1, polomer'β)
Rezβ_1 = Circle(S_1, polomerβ)
p1β_1, p2β_1 = Intersect(Rezβ_1, Rez'β_1)
ord1_β = Ordinála(p1β_1, x_{12})
ord2_β = Ordinála(p2β_1, x_{12})
p1β_2 = Intersect(ord1_β, ββ_2)
p2β_2 = Intersect(ββ_2, ord2_β)
γii: (7.49702, Výška)
γγ_2 = Line(γii, x_{12})
γi = Point(γγ_2)
γ_2 = Segment(γi, γii)
I'γ_2 = Intersect(stranaL'_2, γγ_2)
II'γ_2 = Intersect(stranaP'_2, γγ_2)
Rez'γ_2 = Segment(I'γ_2, II'γ_2)
S'γ_2 = Intersect(o'_2, γγ_2)
Iγ_2 = Intersect(stranaL_2, γγ_2)
IIγ_2 = Intersect(stranaP_2, γγ_2)
Rezγ_2 = Segment(Iγ_2, IIγ_2)
Sγ_2 = Intersect(o_2, γγ_2)
polomer'γ = Distance(S'γ_2, I'γ_2)
polomerγ = Distance(Sγ_2, IIγ_2)
Rez'γ_1 = Circle(S'_1, polomer'γ)
Rezγ_1 = Circle(S_1, polomerγ)
p1γ_1, p2γ_1 = Intersect(Rezγ_1, Rez'γ_1)
ord1_γ = Ordinála(p1γ_1, x_{12})
ord2_γ = Ordinála(p2γ_1, x_{12})
p1γ_2 = Intersect(ord1_γ, γγ_2)
p2γ_2 = Intersect(ord2_γ, γγ_2)
množina1 = Locus(p2γ_1, Výška)
množina2 = Locus(p1γ_1, Výška)
množina3 = Locus(p1γ_2, Výška)
množina4 = Locus(p2γ_2, Výška)
ram1 = Segment(roh1, roh2)
ram2 = Segment(roh2, roh3)
ram3 = Segment(roh3, roh4)
ram4 = Segment(roh4, roh1)

Tool: Ordinála
Input: C_1, x_{12}
Output: cc

cc = OrthogonalLine(C_1, x_{12})