x_{12}

S_1=V_1

3

4

1

2

2

1

4

3

α_2

II

IV

I

III

I

II

III

IV

5

6

VII

VIII

7

8

5

6

VII

VIII

7

8

IX

X

9

10

IX

X

9

10

x_{12} = Line((0, 0), (1, 0))
O: (0, 0)
roh1 = (-6.3821904537324565, 15.794089902461032)
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 = (4, 0)
S_1 = (4, -6)
obrysLD_2: (0.5, 0)
obrysPD_2: (7.5, 0)
obrysLH_2: (0.5, 10)
obrysPH_2: (7.5, 10)
obrysL_2 = Segment(obrysLD_2, obrysLH_2)
obrysH_2 = Segment(obrysLH_2, obrysPH_2)
obrysP_2 = Segment(obrysPH_2, obrysPD_2)
valec_1 = Circle(S_1, 3.5)
A_1 = (1, -11)
A_2 = (1, 0)
AC = Line(A_1, S_1)
C_1 = Mirror(A_1, S_1)
DA, tecna2 = Tangent(A_1, valec_1)
CD = OrthogonalLine(C_1, DA)
D_1 = Intersect(CD, DA)
BC, tecna1 = Tangent(C_1, valec_1)
AB = OrthogonalLine(A_1, BC)
B_1 = Intersect(BC, AB)
ordB = Ordinála(B_1, x_{12})
ordD = Ordinála(D_1, x_{12})
B_2 = Intersect(x_{12}, ordB)
D_2 = Intersect(x_{12}, ordD)
ordC = Ordinála(C_1, x_{12})
C_2 = Intersect(x_{12}, ordC)
V_2 = (4, 8)
av_2 = Segment(A_2, V_2)
bv_2 = Segment(V_2, B_2)
vd_2 = Segment(V_2, D_2)
cv_2 = Segment(V_2, C_2)
a_1 = Segment(B_1, A_1)
d_1 = Segment(A_1, D_1)
c_1 = Segment(D_1, C_1)
b_1 = Segment(C_1, B_1)
cv_1 = Segment(C_1, S_1)
dv_1 = Segment(D_1, S_1)
av_1 = Segment(S_1, A_1)
bv_1 = Segment(B_1, S_1)
ordS = Ordinála(S_2, obrysH_2)
S'_2 = Intersect(ordS, obrysH_2)
o_2 = Segment(S'_2, S_2)
III_1 = Intersect(valec_1, cv_1, 1)
IV_1 = Intersect(valec_1, dv_1, 1)
I_1 = Intersect(valec_1, av_1, 1)
II_1 = Intersect(valec_1, bv_1, 1)
ord1 = Ordinála(III_1, x_{12})
ord2 = Ordinála(IV_1, x_{12})
ord3 = Ordinála(I_1, x_{12})
ord4 = Ordinála(II_1, x_{12})
II_2 = Intersect(ord4, bv_2)
I_2 = Intersect(ord3, av_2)
IV_2 = Intersect(ord2, vd_2)
III_2 = Intersect(ord1, cv_2)
Výška = 2.1 (slider from 0 to 7, step 0.1)
Posuvník: (10.3, Výška)
αα_2 = Line(Posuvník, x_{12})
i = Point(αα_2)
α_2 = Segment(i, Posuvník)
IIB_2 = Intersect(bv_2, α_2)
IVD_2 = Intersect(vd_2, α_2)
IA_2 = Intersect(av_2, α_2)
IIIC_2 = Intersect(cv_2, α_2)
RezJehlan_2 = Segment(IIB_2, IVD_2)
ordIVD = Ordinála(IVD_2, x_{12})
ordIIIC = Ordinála(IIIC_2, x_{12})
ordIA = Ordinála(IA_2, x_{12})
ordIIB = Ordinála(IIB_2, x_{12})
IA_1 = Intersect(ordIA, av_1)
IIB_1 = Intersect(bv_1, ordIIB)
IIIC_1 = Intersect(cv_1, ordIIIC)
IVD_1 = Intersect(dv_1, ordIVD)
jednadva_1 = Segment(IA_1, IIB_1)
dvatři_1 = Segment(IIB_1, IIIC_1)
třičtyři_1 = Segment(IIIC_1, IVD_1)
čtyřijedna = Segment(IVD_1, IA_1)
Prunik3_1, Prunik4_1 = Intersect(valec_1, dvatři_1)
Prunik5_1, Prunik6_1 = Intersect(valec_1, třičtyři_1)
Prunik7_1, Prunik8_1 = Intersect(valec_1, čtyřijedna)
Prunik1_1, Prunik2_1 = Intersect(valec_1, jednadva_1)
ordPrunik1 = Ordinála(Prunik1_1, x_{12})
ordPrunik2 = Ordinála(Prunik2_1, x_{12})
ordPrunik3 = Ordinála(Prunik3_1, x_{12})
ordPrunik4 = Ordinála(Prunik4_1, x_{12})
ordPrunik5 = Ordinála(Prunik5_1, x_{12})
ordPrunik6 = Ordinála(Prunik6_1, x_{12})
ordPrunik7 = Ordinála(Prunik7_1, x_{12})
ordPrunik8 = Ordinála(Prunik8_1, x_{12})
Prunik2_2 = Intersect(ordPrunik2, αα_2)
Prunik3_2 = Intersect(ordPrunik3, αα_2)
Prunik1_2 = Intersect(ordPrunik1, αα_2)
Prunik8_2 = Intersect(ordPrunik8, αα_2)
Prunik4_2 = Intersect(ordPrunik4, αα_2)
Prunik5_2 = Intersect(ordPrunik5, αα_2)
Prunik7_2 = Intersect(ordPrunik7, αα_2)
Prunik6_2 = Intersect(ordPrunik6, αα_2)
množina1 = Locus(Prunik3_2, Výška)
množina3 = Locus(Prunik4_2, Výška)
množina2 = Locus(Prunik8_2, Výška)
množina4 = Locus(Prunik7_2, Výška)
množina5 = Locus(Prunik2_2, Výška)
množina6 = Locus(Prunik1_2, Výška)
množina7 = Locus(Prunik5_2, Výška)
množina8 = Locus(Prunik6_2, Výška)
VV_1 = Intersect(valec_1, b_1, 1)
VI_1 = Intersect(valec_1, d_1, 1)
pomocna78_1 = OrthogonalLine(S_1, a_1)
VIIAB_1 = Intersect(pomocna78_1, a_1)
Vsedm_1 = Segment(S_1, VIIAB_1)
VIIICD_1 = Intersect(pomocna78_1, c_1)
Vosm_1 = Segment(S_1, VIIICD_1)
VII_1, VIII_1 = Intersect(valec_1, pomocna78_1)
ordVIII = Ordinála(VIIICD_1, x_{12})
ordVII = Ordinála(VIIAB_1, x_{12})
ord5 = Ordinála(VV_1, x_{12})
ord6 = Ordinála(VI_1, x_{12})
ord7 = Ordinála(VII_1, x_{12})
ord8 = Ordinála(VIII_1, x_{12})
VV_2 = Intersect(ord5, x_{12})
VI_2 = Intersect(ord6, x_{12})
VIIAB_2 = Intersect(ordVII, x_{12})
Vsedm_2 = Segment(VIIAB_2, V_2)
VIIICD_2 = Intersect(ordVIII, x_{12})
Vosm_2 = Segment(V_2, VIIICD_2)
VII_2 = Intersect(ord7, Vsedm_2)
VIII_2 = Intersect(ord8, Vosm_2)
pomocna910_1 = Line(S_1, x_{12})
IXAB_1 = Intersect(pomocna910_1, a_1)
Vdevět_1 = Segment(IXAB_1, S_1)
XAB_1 = Intersect(pomocna910_1, c_1)
Vdeset_1 = Segment(S_1, XAB_1)
IX_1 = Intersect(valec_1, Vdevět_1, 1)
XX_1 = Intersect(valec_1, Vdeset_1, 1)
ordIX = Ordinála(IXAB_1, x_{12})
ordX = Ordinála(XAB_1, x_{12})
IXAB_2 = Intersect(ordIX, x_{12})
Vdevět_2 = Segment(IXAB_2, V_2)
XCD_2 = Intersect(ordX, x_{12})
Vdeset_2 = Segment(V_2, XCD_2)
IX_2 = Intersect(obrysL_2, Vdevět_2)
XX_2 = Intersect(obrysP_2, Vdeset_2)
z_7: ((0, 1) * VII_2)
z_9: ((0, 1) * IX_2)
pomocnáVýška = 2.2961698049083497 (slider from z_7 to z_9, step 0.1)
pomocnýPosuvník: (12, pomocnáVýška)
pomocna_α = Line(pomocnýPosuvník, x_{12})
pomocnyII_2 = Intersect(bv_2, pomocna_α)
pomocnyI_2 = Intersect(pomocna_α, av_2)
ordPomocnyII = Ordinála(pomocnyII_2, x_{12})
ordPomocnyI = Ordinála(pomocnyI_2, x_{12})
pomocnyII_1 = Intersect(ordPomocnyII, bv_1)
pomocnyI_1 = Intersect(ordPomocnyI, av_1)
pomocnaJednaDva_1 = Segment(pomocnyII_1, pomocnyI_1)
pomocnyPrunik_1 = Intersect(valec_1, pomocnaJednaDva_1, 1)
ordPomocnyPrunik = Ordinála(pomocnyPrunik_1, x_{12})
pomocnyPrunik_2 = Intersect(ordPomocnyPrunik, pomocna_α)
množina9 = Locus(pomocnyPrunik_2, pomocnáVýška)
vidAB_1 = Segment(B_1, A_1)
vidBC_1 = Segment(B_1, C_1)
vidCD_1 = Segment(C_1, D_1)
vidDA_1 = Segment(D_1, A_1)
vidA1_1 = Segment(A_1, I_1)
vidB2_1 = Segment(B_1, II_1)
vidC3_1 = Segment(C_1, III_1)
vidD4_1 = Segment(D_1, IV_1)
vidValec_1 = Circle(S_1, I_1)
ii = Intersect(obrysL_2, bv_2)
iii = Intersect(obrysP_2, vd_2)
vidA1_2 = Segment(A_2, I_2)
vidD4_2 = Segment(D_2, IV_2)
vidB2_2 = Segment(B_2, ii)
vidValec3_2 = Segment(obrysLH_2, IX_2)
vidValec2_2 = Segment(obrysLH_2, obrysPH_2)
vidValec1_2 = Segment(obrysPH_2, iii)

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

cc = OrthogonalLine(C_1, x_{12})