Le plan sécant
Author: Daniel Mentrard

http://dmentrard.free.fr/GEOGEBRA/index.htm

Recorte

Moved el punto rojo para cambiar la vista.

Zoom = 0.8 (slider from 0.5 to 5, step 0.1)
M = (1.2585671899395332, 0.20884103208881108)
xa: x(M)
sinphi: sin(xa)
cosphi: cos(xa)
ya: y(M)
sintheta: sin(ya)
Longitud = 3 (slider from 0.1 to 3, step 0.1)
O = (0.7332838369960031, 2.623124135040805)
B_1 = (-1.6102880453674389, -0.07400385026539742)
xy: -(Zoom) * cosphi * sintheta
X: (x(B_1) + Zoom * sinphi, y(B_1) + xy)
u = Vector(B_1, X)
Anchura = 3.1 (slider from 0.1 to 5, step 0.1)
Altura = 2.3 (slider from 0.1 to 4, step 0.1)
costheta: cos(ya)
Z: (x(B_1) + 0.0, y(B_1) + Zoom * costheta)
w = Vector(B_1, Z)
a = OrthogonalLine(M, yAxis)
b = OrthogonalLine(M, xAxis)
c: cos(ya)
Y: (x(B_1) + Zoom * cosphi, y(B_1) + Zoom * sinphi * sintheta)
v = Vector(B_1, Y)
A = Translate(O, Vector[Longitud * u])
d = Segment(O, A)
C = Translate(O, Vector[Altura / 2.0^(0.5) * w])
B = Translate(O, Vector[Anchura * v])
e = Segment(O, B)
f = Segment(O, C)
D = Mirror(A, O)
E = Mirror(B, O)
F = Mirror(C, O)
g = 0 (slider from 0 to 2, step 0.1)
poly1, e_1, a_1, b_1, d_1 = Polygon(E, A, B, D)
z = Vector(O, C)
E' = Translate(E, z)
A' = Translate(A, z)
B' = Translate(B, z)
D' = Translate(D, z)
poly1', e', a', b', d' = Polygon(E', A', B', D')
E'' = Mirror(E', O)
A'' = Mirror(A', O)
B'' = Mirror(B', O)
D'' = Mirror(D', O)
poly1'', e'', a'', b'', d'' = Polygon(E'', A'', B'', D'')
h = Segment(D', A'')
i = Segment(B', E'')
j = Segment(A', D'')
k = Segment(E', B'')
H = Point(k)
I = Point(a')
J = Point(b')
l = Line(I, J)
m = Line(E', D')
Z_2 = Intersect(l, m)
n = Line(H, Z_2)
G = Intersect(n, h)
p = Line(A', E')
K = Intersect(l, p)
q = Line(K, H)
L = Intersect(j, q)
poly2, l_1, i_1, j_1, g_1, h_1 = Polygon(L, I, J, G, H)
N = (5.885101337019086, 2.198856811509492)
r = Vector(O, N)
s = Circle(N, g)
P = Translate(N, w)
t = Line(N, P)
Q, R = Intersect(s, t)
u1 = Vector(N, R)
E''' = Translate(E'', r)
A''' = Translate(A'', r)
B''' = Translate(B'', r)
D''' = Translate(D'', r)
poly1''', e''', a''', b''', d''' = Polygon(E''', A''', B''', D''')
L' = Translate(L, r)
I' = Translate(I, r)
J' = Translate(J, r)
G' = Translate(G, r)
H' = Translate(H, r)
poly2', l', i', j', g', h' = Polygon(L', I', J', G', H')
v1 = Vector(O, R)
L'_1 = Translate(L, v1)
I'_1 = Translate(I, v1)
J'_1 = Translate(J, v1)
G'_1 = Translate(G, v1)
H'_1 = Translate(H, v1)
poly2'_1, l'_1, i'_1, j'_1, g'_1, h'_1 = Polygon(L'_1, I'_1, J'_1, G'_1, H'_1)
E''_1 = Translate(E', v1)
A''_1 = Translate(A', v1)
B''_1 = Translate(B', v1)
D''_1 = Translate(D', v1)
poly3, d''_2, g'_2, h'_2, e''_2 = Polygon(D''_1, G'_1, H'_1, E''_1)
poly4, g'_3, j'_2, d''_3 = Polygon(J'_1, D''_1, G'_1)
poly5, a''_1, e''_1, d''_1, j'_3, i'_2 = Polygon(A''_1, E''_1, D''_1, J'_1, I'_1)
poly6, e''_3, a''_2, l'_2, h'_3 = Polygon(E''_1, A''_1, L'_1, H'_1)
poly7, h'_4, b'''_1, d'''_1, l'_3 = Polygon(H', B''', D''', L')
poly8, h'_5, g'_4, a'''_1, b'''_2 = Polygon(H', G', A''', B''')
a1 = Line(I', d''')
b1 = Line(J', e''')
S = Intersect(b1, a1)
poly9, l'_4, i'_3, s_1, e'''_1, d'''_2 = Polygon(L', I', S, E''', D''')
poly10, i'_4, j'_4, s_2 = Polygon(J', S, I')