S'_1=V'_1

x_{12}

S_1=V_1

1

2

2

1

I

II

I

II

3

3

4

4

5

5

α_2

2_α

1_α

1_α

2_α

polomerKuzel1 = 4 (slider from 0 to 10, step 0.1)
S'_2 = (-1, 0)
podstava'_2 = Circle(S'_2, polomerKuzel1)
V'_2 = (-1, 8)
S'_1 = (-1, -5)
O: (0, 0)
x_{12} = Line((0, 0), (1, 0))
povrskaK_1 = Line(S'_1, x_{12})
obrysL', obrysP' = Intersect(podstava'_2, x_{12})
povrskaK_2 = Line(obrysP', V'_2)
roh1 = (-9.130919617476001, 12.875243048861993)
roh2 = Point(Circle[roh1, 21])
roh4 = Point(Circle[roh1, 29.7])
roh3 = Point(Circle[roh4, 21])
ct1, ramH, ramP, ramD, ramL = Polygon(roh1, roh2, roh3, roh4)
S_2 = (3, 0)
S_1 = (3, -7)
V_2 = (3, 10)
polomerKuzel2 = 5.5 (slider from 0 to 10, step 0.1)
podstava_1 = Circle(S'_1, polomerKuzel1)
podstava'_1 = Circle(S_1, polomerKuzel2)
podstava_2 = Circle(S_2, polomerKuzel2)
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)
I_1 = Intersect(podstava_1, podstava'_1, 1)
II_1 = Intersect(podstava_1, podstava'_1, 2)
ord2 = Ordinála(I_1, x_{12})
ord1 = Ordinála(II_1, x_{12})
II_2 = Intersect(ord1, x_{12})
I_2 = Intersect(ord2, x_{12})
stredstredna_1 = Line(S'_1, S_1)
Istredna_1 = Intersect(podstava'_1, stredstredna_1, 1)
IIstredna_1 = Intersect(podstava_1, stredstredna_1, 1)
strednakouek_1 = Segment(S'_1, Istredna_1)
stredna_1 = Segment(S'_1, S_1)
ordI = Ordinála(Istredna_1, x_{12})
ordII = Ordinála(IIstredna_1, x_{12})
Istredna_21 = Intersect(ordI, x_{12})
IIstredna_2 = Intersect(ordII, x_{12})
V'II_2 = Segment(IIstredna_2, V'_2)
VI_2 = Segment(Istredna_21, V_2)
III_2 = Intersect(V'II_2, VI_2)
ord3 = Ordinála(III_2, x_{12})
III_1 = Intersect(ord3, stredna_1)
i = Point(povrskaK_1)
ii = Point(povrskaK_1)
povK_1 = Segment(i, ii)
P_{povrskaK1} = Intersect(podstava_1, povrskaK_1, 2)
K_1 = Point(povrskaK_1)
kk_1 = Line(K_1, S_1)
v = Point(kk_1)
vi = Point(kk_1)
k_1 = Segment(v, vi)
ordK = Ordinála(K_1, x_{12})
K_2 = Intersect(ordK, povrskaK_2)
kk_2 = Line(V_2, K_2)
P_{k2} = Intersect(x_{12}, kk_2)
k_2 = Segment(P_{k2}, V_2)
ordP_k = Ordinála(P_{k2}, x_{12})
P_{k1} = Intersect(kk_1, ordP_k)
stopavrcholoveK_1 = Line(P_{k1}, P_{povrskaK1})
iii = Point(stopavrcholoveK_1)
iv = Point(stopavrcholoveK_1)
stopaK_1 = Segment(iii, iv)
II_K, I_K = Intersect(podstava'_1, stopavrcholoveK_1)
VII_K = Segment(II_K, S_1)
VI_K = Segment(I_K, S_1)
IV_1 = Intersect(povrskaK_1, VI_K)
ord4 = Ordinála(IV_1, x_{12})
IV_2 = Intersect(ord4, stranaP'_2)
povrskaL_1 = Line(S_1, x_{12})
vii = Point(povrskaL_1)
viii = Point(povrskaL_1)
povL_1 = Segment(vii, viii)
L_1 = Point(povrskaL_1)
P_{povrskaL1} = Intersect(podstava'_1, povrskaL_1, 2)
ll_1 = Line(S'_1, L_1)
ordL = Ordinála(L_1, x_{12})
povrskaL_2 = Line(V_2, obrysL)
L_2 = Intersect(ordL, povrskaL_2)
xiii = Point(ll_1)
xii = Point(ll_1)
l_1 = Segment(xiii, xii)
ll_2 = Line(V'_2, L_2)
P_{l2} = Intersect(ll_2, x_{12})
l_2 = Segment(V'_2, P_{l2})
ordP_l = Ordinála(P_{l2}, x_{12})
P_{l1} = Intersect(ordP_l, ll_1)
stopavrcholoveL_1 = Line(P_{l1}, P_{povrskaL1})
xiv = Point(stopavrcholoveL_1)
xi = Point(stopavrcholoveL_1)
stopaL_13 = Segment(xiv, xi)
II_L, I_L = Intersect(podstava_1, stopavrcholoveL_1)
V'I_L = Segment(I_L, S'_1)
V'II_L = Segment(S'_1, II_L)
VV_1 = Intersect(V'II_L, povrskaL_1)
ord5 = Ordinála(VV_1, x_{12})
VV_2 = Intersect(ord5, stranaL_2)
Výška_α = 2.7 (slider from 0 to 10, step 0.1)
Posuvník: (8, Výška_α)
αα_2 = Line(Posuvník, x_{12})
xv = Point(αα_2)
α_2 = Segment(xv, Posuvník)
xvi = Intersect(αα_2, stranaL'_2)
xvii = Intersect(αα_2, stranaP'_2)
Rez'_2 = Segment(xvi, xvii)
StredRezu'_2 = Intersect(o'_2, αα_2)
polomerRezu' = Distance(StredRezu'_2, xvi)
Rez'_1 = Circle(S'_1, polomerRezu')
xviii = Intersect(stranaL_2, αα_2)
xviiii = Intersect(stranaP_2, αα_2)
Rez_2 = Segment(xviii, xviiii)
StredRezu_2 = Intersect(αα_2, o_2)
polomerRezu = Distance(StredRezu_2, xviiii)
Rez_1 = Circle(S_1, polomerRezu)
IIα_1, Iα_1 = Intersect(Rez_1, Rez'_1)
OrdPrunik1 = Ordinála(Iα_1, x_{12})
OrdPrunik2 = Ordinála(IIα_1, x_{12})
Iα_2 = Intersect(OrdPrunik1, αα_2)
IIα_2 = Intersect(OrdPrunik2, αα_2)
množina1 = Locus(Iα_1, Výška_α)
množina2 = Locus(IIα_1, Výška_α)
množina3 = Locus(Iα_2, Výška_α)
z_5: ((0, 1) * VV_2)
z_3: ((0, 1) * III_2)
množina4 = Locus(IIα_2, Výška_α)
pomocnaVýška = 1.2 (slider from 0 to z_5, step 0.1)
pomocnyPosuvník: (9, pomocnaVýška)
pomocna_α = Line(pomocnyPosuvník, x_{12})
xxi = Intersect(stranaL'_2, pomocna_α)
xxii = Intersect(pomocna_α, o'_2)
vzdalenostBD = Distance(xxi, xxii)
xxiii = Intersect(o_2, pomocna_α)
xxiv = Intersect(pomocna_α, stranaP_2)
vzdalenostCE = Distance(xxiii, xxiv)
pomocnyRez'_1 = Circle(S'_1, vzdalenostBD)
pomocnyRez_1 = Circle(S_1, vzdalenostCE)
pomocnyPrůnik_1 = Intersect(pomocnyRez'_1, pomocnyRez_1, 2)
ordPomocnyPrunik = Ordinála(pomocnyPrůnik_1, x_{12})
pomocnyPrůnik_2 = Intersect(ordPomocnyPrunik, pomocna_α)
množina5 = Locus(pomocnyPrůnik_2, pomocnaVýška)
vidKuzel_1 = CircleArc(S_1, II_1, I_1)
vidKuzel'_1 = CircleArc(S'_1, I_1, II_1)
vid_2 = Intersect(stranaP'_2, stranaL_2)
vidStranaL'_2 = Segment(obrysL', V'_2)
vidStranaP'_2 = Segment(V'_2, vid_2)
vidStranaL_2 = Segment(V_2, VV_2)
vidStranaP_2 = Segment(V_2, obrysP)

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

cc = OrthogonalLine(C_1, x_{12})