Mongeovka, řezy hranatých těles

$A'_1$

$A_1$

$O_{1,2}$

$x_{1,2}$

$A_2$

$A'_2$

$\bar{A_2}$

$\bar{A_1}$

$C_1$

$C'_1$

$\bar{C_1}$

$D_1$

$E_1$

$F_1$

$B_1$

Ok

$F_2$

$E_2$

$B_2$

$D_2$

$C_2$

$n_2^\rho$

$p_1^\rho$

$F'_1$

$E'_1$

$D'_1$

$B'_1$

$B'_2$

$F'_2$

$C'_2$

$E'_2$

$D'_2$

$\bar{F_1}$

$\bar{E_1}$

$\bar{D_1}$

$\bar{C_1}$

$\bar{B_1}$

$\bar{F_2}$

$\bar{B_2}$

$\bar{E_2}$

$\bar{C_2}$

$\bar{D_2}$

A'1 = (-2.336928069588734, -8.274922822875364)
A1 = (-8.115035297757377, -3.8319085527305377)
u = Vector(A1, A'1)
k_1 = Line(A'1, A1)
AV1 = Segment(A1, A'1)
O12 = Point(xAxis)
Nep1 = Point(xAxis)
x12 = Line(Nep1, O12)
R = Intersect(x12, k_1)
c_1 = OrthogonalLine(R, x12)
K = Point(x12)
s = OrthogonalLine(A1, x12)
A2 = Intersect(x12, s)
l = OrthogonalLine(A'1, x12)
A'2 = Point(l)
e_1 = Line(A2, A'2)
y1 = OrthogonalLine(O12, x12)
J = Point(y1)
p1p = Line(K, J)
Q = Intersect(p1p, k_1)
b_1 = OrthogonalLine(Q, x12)
T = Intersect(x12, b_1)
I = Point(y1)
n2p = Line(I, K)
S = Intersect(n2p, c_1)
d_1 = Line(S, T)
AA2 = Intersect(d_1, e_1)
f_2 = OrthogonalLine(AA2, x12)
AA1 = Intersect(f_2, AV1)
C1 = (-4.580321974464814, -1.5885146478544472)
C'1 = Translate(C1, u)
CC'1 = Segment(C1, C'1)
t_1 = Line(C1, A1)
P = Intersect(p1p, t_1)
a = Line(P, AA1)
CC1 = Intersect(a, CC'1)
D1 = (-7.46937558854914, -0.9428549386462108)
E1 = (-8.778442750743967, -1.1403697434706634)
F1 = (-9.223719352280929, -2.6776483838827057)
B1 = (-5.22598168367305, -4.4775682619387736)
n = 4 (slider from 3 to 6, step 1)
AB1 = Segment(A1, B1)
vycet = First("A, B, C, D, E, F", (3 * n) - 2)
AF1 = Segment(A1, F1)
EF1 = Segment(F1, E1)
DE1 = Segment(E1, D1)
CD1 = Segment(D1, C1)
BC1 = Segment(C1, B1)
mnohoúhelník1, f, g, h, i, j, k, C1p, D1p, E1p, F1p = Polygon(A1, B1, n)
viditelne = First({A1, B1, C1, D1, E1, F1}, n)
AE1 = Segment(A1, E1)
AD1 = Segment(A1, D1)
AC1 = Segment(A1, C1)
m = OrthogonalLine(D1, x12)
p = OrthogonalLine(C1, x12)
q = OrthogonalLine(E1, x12)
r = OrthogonalLine(F1, x12)
t = OrthogonalLine(B1, x12)
F2 = Intersect(x12, r)
E2 = Intersect(x12, q)
B2 = Intersect(x12, t)
D2 = Intersect(x12, m)
C2 = Intersect(x12, p)
AV2 = Segment(A'2, A2)
q_1 = Line(F1, A1)
r_1 = Line(E1, A1)
s_1 = Line(D1, A1)
a_1 = Line(B1, A1)
L = Intersect(p1p, s_1)
M = Intersect(p1p, r_1)
N = Intersect(p1p, q_1)
O = Intersect(p1p, a_1)
text1: "Přichytit body " + vycet + " k pravidelnému"
text2: " " + n + "-úhelníku zadanému body A, B."
n2 = Ray(K, I)
p1 = Ray(K, J)
F'1 = Translate(F1, u)
E'1 = Translate(E1, u)
D'1 = Translate(D1, u)
B'1 = Translate(B1, u)
AA'2_{1} = Vector(A2, A'2)
B'2 = Translate(B2, AA'2_{1})
F'2 = Translate(F2, AA'2_{1})
C'2 = Translate(C2, AA'2_{1})
E'2 = Translate(E2, AA'2_{1})
D'2 = Translate(D2, AA'2_{1})
AF'2 = Segment(F'2, A'2)
AF'1 = Segment(A'1, F'1)
EF'1 = Segment(F'1, E'1)
DE'1 = Segment(E'1, D'1)
CD'1 = Segment(D'1, C'1)
BC'1 = Segment(C'1, B'1)
AB'1 = Segment(B'1, A'1)
FF'1 = Segment(F'1, F1)
BB'1 = Segment(B'1, B1)
DD'1 = Segment(D'1, D1)
EE'1 = Segment(E'1, E1)
BB'2 = Segment(B'2, B2)
FF'2 = Segment(F2, F'2)
CC'2 = Segment(C'2, C2)
EE'2 = Segment(E2, E'2)
DD'2 = Segment(D'2, D2)
p_2 = Line(O, AA1)
q_2 = Line(N, AA1)
r_2 = Line(J, AA1)
s_2 = Line(Q, AA1)
t_2 = Line(L, AA1)
a_2 = Line(M, AA1)
FF1 = Intersect(q_2, FF'1)
EE1 = Intersect(a_2, EE'1)
DD1 = Intersect(t_2, DD'1)
b_2 = Line(C1, A1)
D = Intersect(b_2, p1)
c_2 = Line(D, AA1)
CC1_{1} = Intersect(c_2, CC'1)
BB1 = Intersect(p_2, BB'1)
AABB1 = Segment(BB1, AA1)
AAFF1 = Segment(AA1, FF1)
EEFF1 = Segment(FF1, EE1)
DDEE1 = Segment(DD1, EE1)
j_3 = OrthogonalLine(AA1, x12)
k_3 = OrthogonalLine(FF1, x12)
l_3 = OrthogonalLine(BB1, x12)
m_3 = OrthogonalLine(EE1, x12)
p_3 = OrthogonalLine(DD1, x12)
FF2 = Intersect(k_3, FF'2)
BB2 = Intersect(l_3, BB'2)
EE2 = Intersect(m_3, EE'2)
n_3 = OrthogonalLine(CC1, x12)
CC2 = Intersect(n_3, CC'2)
DD2 = Intersect(p_3, DD'2)
BBCC2 = Segment(CC2, BB2)
AABB2 = Segment(BB2, AA2)
AAFF2 = Segment(AA2, FF2)
EEFF2 = Segment(FF2, EE2)
DDEE2 = Segment(EE2, DD2)
CCDD2 = Segment(DD2, CC2)
AA'2 = Segment(A2, A'2)
AACC2 = Segment(CC2, AA2)
AADD2 = Segment(AA2, DD2)
AAEE2 = Segment(EE2, AA2)
AAEE1 = Segment(AA1, EE1)
AC'1 = Segment(A'1, C'1)
AD'1 = Segment(A'1, D'1)
AE'1 = Segment(A'1, E'1)
AADD1 = Segment(AA1, DD1)
AC'2 = Segment(A'2, C'2)
AB'2 = Segment(A'2, B'2)
BC'2 = Segment(B'2, C'2)
CD'2 = Segment(C'2, D'2)
DE'2 = Segment(D'2, E'2)
EF'2 = Segment(E'2, F'2)
AACC1 = Segment(AA1, CC1)
BBCC1 = Segment(CC1, BB1)
CCDD1 = Segment(DD1, CC1)