S_1=V_1

x_{12}

1

2

3

4

3

1

2

4

α_2

=R_1

6

5

7

8

5=7

6=8

9=11

10=12

9

11

10

12

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)
I_2 = Intersect(stranaL_2, ObrysHorni_2)
II_2 = Intersect(stranaP_2, ObrysHorni_2)
III_2 = Intersect(stranaL_2, ObrysDolni_2)
IV_2 = Intersect(stranaP_2, ObrysDolni_2)
ord1 = Ordinála(I_2, x_{12})
ord2 = Ordinála(II_2, x_{12})
ord4 = Ordinála(IV_2, x_{12})
ord3 = Ordinála(III_2, x_{12})
III_1 = Intersect(ord3, OsaValce_1)
I_1 = Intersect(ord1, OsaValce_1)
II_1 = Intersect(ord2, OsaValce_1)
IV_1 = Intersect(ord4, OsaValce_1)
xi = Intersect(stranaL_2, OsaValce_2)
xii = Intersect(stranaP_2, OsaValce_2)
R_2 = Intersect(OsaKuzele_2, OsaValce_2)
RezKuzelα_2 = Segment(xi, xii)
polomerRezu_α = Distance(R_2, xi)
RezKuzelα_1 = Circle(S_1, polomerRezu_α)
VI_1, VV_1 = Intersect(RezKuzelα_1, ObrysH_1)
VII_1, VIII_1 = Intersect(RezKuzelα_1, ObrysD_1)
ord5 = Ordinála(VV_1, x_{12})
ord6 = Ordinála(VI_1, x_{12})
VII_2 = Intersect(ord5, RezKuzelα_2)
VI_2 = Intersect(ord6, RezKuzelα_2)
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)
IX_2 = Intersect(RezKuzelNejmensi_2, RezValecNejmensi1_2)
X_2 = Intersect(RezKuzelNejmensi_2, RezValecNejmensi2_2)
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)
IX_1, XI_1 = Intersect(RezKuzelNejmensi_1, RezValecNejmensi1_1)
X_1, XII_1 = Intersect(RezKuzelNejmensi_1, RezValecNejmensi2_1)
polomerKP = 4.1 (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)
RezKuzel1_2 = Segment(xx, xxvii)
RezKuzel2_2 = Segment(xxi, xxiii)
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 = Intersect(ordPrunik1, ObrysD_1)
RezValec1_1 = Segment(xxviii, xxx)
RezValec2_1 = Segment(xxix, xxxi)
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)
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)
pomocnyPolomerKP = 2.783252063440103 (slider from polomerNejmensiKP to polomerRezu_α, step 0.1)
pomocnaKP_2 = Circle(R_2, pomocnyPolomerKP)
pomocny1, pomocny2 = Intersect(pomocnaKP_2, stranaL_2)
pomocny3, pomocny4 = Intersect(pomocnaKP_2, stranaP_2)
pomocny7, pomocny8 = Intersect(pomocnaKP_2, ObrysDolni_2)
pomocny5 = Midpoint(pomocny2, pomocny4)
ordPomocny1 = Ordinála(pomocny7, x_{12})
ordPomocny2 = Ordinála(pomocny8, x_{12})
vzdalenostEB = Distance(pomocny5, pomocny2)
pomocnyRez_1 = Circle(S_1, vzdalenostEB)
pomocny9, pomocny10 = Intersect(pomocnyRez_1, ordPomocny1)
pomocny11, pomocny12 = Intersect(pomocnyRez_1, ordPomocny2)
množina13 = Locus(pomocny10, pomocnyPolomerKP)
množina14 = Locus(pomocny12, pomocnyPolomerKP)
množina15 = Locus(pomocny11, pomocnyPolomerKP)
množina16 = Locus(pomocny9, pomocnyPolomerKP)
vidKuzel1_2 = Segment(I_2, V_2)
vidKuzel4_2 = Segment(obrysL_2, III_2)
vidKuzel3_2 = Segment(obrysP_2, IV_2)
vidKuzel2_2 = Segment(V_2, II_2)
vidValec6_2 = Segment(ObrysLH_2, I_2)
vidValec5_2 = Segment(II_2, ObrysPH_2)
vidValec4_2 = Segment(ObrysPH_2, ObrysPD_2)
vidValec3_2 = Segment(ObrysPD_2, IV_2)
vidValec1_2 = Segment(III_2, ObrysLD_2)
vidValec2_2 = Segment(ObrysLD_2, ObrysLH_2)
vid2, vid1 = Intersect(Podstava_1, ObrysH_1)
vid3, vid4 = Intersect(Podstava_1, ObrysD_1)
vidValec2_1 = Segment(ObrysLH_1, VV_1)
vidValec1_1 = Segment(VI_1, ObrysPH_1)
vidValec6_1 = Segment(ObrysPH_1, ObrysPD_1)
vidValec5_1 = Segment(ObrysPD_1, VIII_1)
vidValec4_1 = Segment(VII_1, ObrysLD_1)
vidValec3_1 = Segment(ObrysLD_1, ObrysLH_1)
vidKuzel2_1 = CircleArc(S_1, vid2, vid1)
vidKuzel1_1 = CircleArc(S_1, vid3, vid4)

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

cc = OrthogonalLine(C_1, x_{12})