S_1=V_1

x_{12}

=R_1

9=11

10=12

9

11

10

12

1=5

2=6

3=7

4=8

1

5

2

6

3

7

4

8

3

4

3

3

4

S_1 = (3, -6)
O: (0, 0)
x_{12} = Line((0, 0), (1, 0))
PrimkaOsaValce = Line(S_1, x_{12})
roh1 = (-7.45542182154381, 15.284888968528566)
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)
polomervalce = 2.5 (slider from 0 to 5, step 0.1)
polomerkuzele = 5 (slider from 0 to 10, step 0.1)
ordS = Ordinála(S_1, x_{12})
S_2 = Intersect(x_{12}, ordS)
PomocnaKuzel_2 = Circle(S_2, polomerkuzele)
Podstava_1 = Circle(S_1, polomerkuzele)
obrysL_2, obrysP_2 = Intersect(PomocnaKuzel_2, x_{12})
V_2: (3, 12)
stranaL_2 = Segment(V_2, obrysL_2)
stranaP_2 = Segment(V_2, obrysP_2)
OsaKuzele_2 = Segment(V_2, S_2)
S''_1 = Point(PrimkaOsaValce)
S'_1 = Point(PrimkaOsaValce)
PomocnaLevaPodstava_1 = Circle(S'_1, polomervalce)
S'S''_1 = Vector(S'_1, S''_1)
ordS' = Ordinála(S'_1, x_{12})
ObrysLD_1, ObrysLH_1 = Intersect(PomocnaLevaPodstava_1, ordS')
ObrysPH_1 = Translate(ObrysLH_1, S'S''_1)
ObrysPD_1 = Translate(ObrysLD_1, S'S''_1)
S'_2: (-4, 5)
S''_2 = Translate(S'_2, S'S''_1)
PomocnaLevaPodstava_2 = Circle(S'_2, polomervalce)
ObrysLD_2, ObrysLH_2 = Intersect(PomocnaLevaPodstava_2, ordS')
ObrysPH_2 = Translate(ObrysLH_2, S'S''_1)
ObrysPD_2 = Translate(ObrysLD_2, S'S''_1)
OsaValce_2 = Segment(S'_2, S''_2)
OsaValce_1 = Segment(S'_1, S''_1)
LevaPodstava_2 = Segment(ObrysLH_2, ObrysLD_2)
ObrysDolni_2 = Segment(ObrysLD_2, ObrysPD_2)
PravaPodstava_2 = Segment(ObrysPD_2, ObrysPH_2)
ObrysHorni_2 = Segment(ObrysPH_2, ObrysLH_2)
LevaPodstava_1 = Segment(ObrysLH_1, ObrysLD_1)
ObrysD_1 = Segment(ObrysLD_1, ObrysPD_1)
PravaPodstava_1 = Segment(ObrysPD_1, ObrysPH_1)
ObrysH_1 = Segment(ObrysPH_1, ObrysLH_1)
xi = Intersect(stranaL_2, OsaValce_2)
xii = Intersect(stranaP_2, OsaValce_2)
R_2 = Intersect(OsaKuzele_2, OsaValce_2)
pomocnyKP1 = (1.6645749444333422, 1.6894071107836375)
KP1_2 = Circle(R_2, pomocnyKP1)
x1 = Intersect(KP1_2, ObrysHorni_2, 2)
xi1 = Intersect(KP1_2, ObrysHorni_2, 1)
xiii1 = Intersect(KP1_2, ObrysDolni_2, 2)
xii1 = Intersect(KP1_2, ObrysDolni_2, 1)
xiv1 = Intersect(KP1_2, stranaL_2, 2)
xv1 = Intersect(KP1_2, stranaP_2, 2)
RezValce11_2 = Segment(x1, xii1)
RezValce12_2 = Segment(xi1, xiii1)
RezKuzele1_2 = Segment(xiv1, xv1)
Prunik9_2 = Intersect(RezValce11_2, RezKuzele1_2)
Prunik10_2 = Intersect(RezValce12_2, RezKuzele1_2)
StredRezKP1 = Intersect(OsaKuzele_2, RezKuzele1_2)
ordRezValce11 = Ordinála(xii1, x_{12})
ordRezValce12 = Ordinála(xiii1, x_{12})
xvi1 = Intersect(ordRezValce11, ObrysH_1)
xviii1 = Intersect(ordRezValce11, ObrysD_1)
xvii1 = Intersect(ordRezValce12, ObrysH_1)
xix1 = Intersect(ordRezValce12, ObrysD_1)
RezValce11_1 = Segment(xvi1, xviii1)
RezValce12_1 = Segment(xvii1, xix1)
vzdalenostAxiv1 = Distance(StredRezKP1, xiv1)
xixi = Intersect(KP1_2, stranaL_2, 1)
xixii = Intersect(KP1_2, stranaP_2, 1)
RezKuzele2_2 = Segment(xixi, xixii)
RezKuzele1_1 = Circle(S_1, vzdalenostAxiv1)
Prunik9_1, Prunik11_1 = Intersect(RezKuzele1_1, RezValce11_1)
Prunik10_1, Prunik12_1 = Intersect(RezKuzele1_1, RezValce12_1)
pomocnyKPnejvetsi = Intersect(stranaL_2, ObrysDolni_2)
RezKuzelα_2 = Segment(xi, xii)
polomerRezu_α = Distance(R_2, xi)
RezKuzelα_1 = Circle(S_1, polomerRezu_α)
polomerNejmensiKP = Distance(R_2, stranaL_2)
nejmensiKP_2 = Circle(R_2, polomerNejmensiKP)
i = Intersect(nejmensiKP_2, stranaL_2, 1)
ii = Intersect(nejmensiKP_2, stranaP_2, 1)
iii = Intersect(nejmensiKP_2, ObrysHorni_2, 2)
iv = Intersect(nejmensiKP_2, ObrysHorni_2, 1)
v = Intersect(nejmensiKP_2, ObrysDolni_2, 1)
vi = Intersect(nejmensiKP_2, ObrysDolni_2, 2)
RezKuzelNejmensi_2 = Segment(i, ii)
RezValecNejmensi1_2 = Segment(v, iii)
RezValecNejmensi2_2 = Segment(vi, iv)
ord1012 = Ordinála(vi, x_{12})
ord911 = Ordinála(v, x_{12})
vii = Intersect(ord911, ObrysH_1)
viiii = Intersect(ord911, ObrysD_1)
viii = Intersect(ord1012, ObrysH_1)
viiiii = Intersect(ord1012, ObrysD_1)
RezValecNejmensi1_1 = Segment(vii, viiii)
RezValecNejmensi2_1 = Segment(viii, viiiii)
StredRezNejmensi_2 = Intersect(RezKuzelNejmensi_2, OsaKuzele_2)
polomerNejmensihoRezu = Distance(StredRezNejmensi_2, i)
RezKuzelNejmensi_1 = Circle(S_1, polomerNejmensihoRezu)
polomerKP = 3 (slider from 0 to 10, step 0.1)
KP_2 = Circle(R_2, polomerKP)
xx, xxi = Intersect(KP_2, stranaL_2)
xxvii, xxiii = Intersect(KP_2, stranaP_2)
RezKuzel2_2 = Segment(xxi, xxiii)
RezKuzel1_2 = Segment(xx, xxvii)
xxiv, xxv = Intersect(KP_2, ObrysHorni_2)
xxvi, xxii = Intersect(KP_2, ObrysDolni_2)
RezValec1_2 = Segment(xxv, xxvi)
RezValec2_2 = Segment(xxiv, xxii)
Prunik1_2 = Intersect(RezKuzel1_2, RezValec1_2)
Prunik2_2 = Intersect(RezKuzel1_2, RezValec2_2)
Prunik3_2 = Intersect(RezValec1_2, RezKuzel2_2)
Prunik4_2 = Intersect(RezValec2_2, RezKuzel2_2)
ordPrunik1 = Ordinála(Prunik4_2, x_{12})
ordPrunik2 = Ordinála(Prunik3_2, x_{12})
xxviii = Intersect(ordPrunik2, ObrysH_1)
xxx = Intersect(ordPrunik2, ObrysD_1)
xxix = Intersect(ordPrunik1, ObrysH_1)
xxxi_1 = Intersect(ordPrunik1, ObrysD_1)
RezValec1_1 = Segment(xxviii, xxx)
RezValec2_1 = Segment(xxix, xxxi_1)
StredRez1_2 = Intersect(OsaKuzele_2, RezKuzel1_2)
StredRez2_2 = Intersect(OsaKuzele_2, RezKuzel2_2)
polomerRezu1 = Distance(StredRez1_2, xx)
polomerRezu2 = Distance(xxi, StredRez2_2)
RezKuzel1_1 = Circle(S_1, polomerRezu1)
RezKuzel2_1 = Circle(S_1, polomerRezu2)
Prunik1_1, Prunik5_1 = Intersect(RezKuzel1_1, RezValec1_1)
Prunik2_1, Prunik6_1 = Intersect(RezKuzel1_1, RezValec2_1)
Prunik3_1, Prunik7_1 = Intersect(RezKuzel2_1, RezValec1_1)
Prunik4_1, Prunik8_1 = Intersect(RezKuzel2_1, RezValec2_1)
nejvetsiKP_2 = Circle(R_2, pomocnyKPnejvetsi)
xxxiii = Intersect(stranaL_2, ObrysDolni_2)
xxxiv = Intersect(stranaP_2, ObrysDolni_2)
ord3 = Ordinála(xxxiii, OsaValce_1)
ord4 = Ordinála(xxxiv, OsaValce_1)
RezKuzelNejvetsi1_2 = Segment(xxxiii, xxxiv)
xxxi = Intersect(nejvetsiKP_2, stranaL_2, 2)
xxxviii = Intersect(nejvetsiKP_2, stranaP_2, 1)
RezKuzelNejvetsi2_2 = Segment(xxxi, xxxviii)
xxxv = Intersect(ord3, ObrysHorni_2)
xxxvi = Intersect(nejvetsiKP_2, ord4, 2)
RezValceNejvetsi1_2 = Segment(xxxv, xxxiii)
RezValceNejvetsi2_2 = Segment(xxxvi, xxxiv)
StredRezNejvetsi_2 = Intersect(OsaKuzele_2, ObrysDolni_2)
polomerNejvetsihoRezu = Distance(StredRezNejvetsi_2, xxxiii)
RezKuzelNejvetsi1_1 = Circle(S_1, polomerNejvetsihoRezu)
xxxii = Intersect(ord3, ObrysH_1)
xxxvii = Intersect(ord4, ObrysH_1)
xxxviiii = Intersect(ord3, ObrysD_1)
xxxix = Intersect(ord4, ObrysD_1)
RezValceNejvetsi1_1 = Segment(xxxii, xxxviiii)
RezValceNejvetsi2_1 = Segment(xxxvii, xxxix)
IV_1 = Intersect(RezKuzelNejvetsi1_1, ord4)
III_1 = Intersect(ord3, OsaValce_1)
III_2 = Intersect(ord3, stranaL_2)
IV_2 = Intersect(ord4, stranaP_2)
množina1 = Locus(Prunik1_1, polomerKP)
množina2 = Locus(Prunik3_1, polomerKP)
množina3 = Locus(Prunik5_1, polomerKP)
množina4 = Locus(Prunik7_1, polomerKP)
množina5 = Locus(Prunik2_1, polomerKP)
množina6 = Locus(Prunik4_1, polomerKP)
množina7 = Locus(Prunik6_1, polomerKP)
množina8 = Locus(Prunik8_1, polomerKP)
množina9 = Locus(Prunik1_2, polomerKP)
množina11 = Locus(Prunik3_2, polomerKP)
množina10 = Locus(Prunik2_2, polomerKP)
množina12 = Locus(Prunik4_2, polomerKP)

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

cc = OrthogonalLine(C_1, x_{12})