Author: Daniel Mentrard

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

Recorte

B_1 = (-1.2903009993322723, 0.05005111177813652)
Vista = (0.3133731973616569, -0.11186547437822277)
xa: x(Vista)
cosphi: cos(xa)
sinphi: sin(xa)
ya: y(Vista)
sintheta: sin(ya)
Zoom = 1 (slider from 0.5 to 5, step 0.1)
xy: -(Zoom) * cosphi * sintheta
costheta: cos(ya)
Arista = 1.2 (slider from 0.1 to 1.5, step 0.1)
X: (x(B_1) + Zoom * sinphi, y(B_1) + xy)
u = Vector(B_1, X)
O = (0.5773052655116417, 0.634029500828256)
Altura = 2 (slider from 0.1 to 2, step 0.1)
Z: (x(B_1) + 0.0, y(B_1) + Zoom * costheta)
w = Vector(B_1, Z)
a = OrthogonalLine(Vista, yAxis)
b = OrthogonalLine(Vista, 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[Arista * u])
d = Segment(O, A)
S = Translate(O, Vector[Altura * w])
B = Translate(O, Vector[Arista * v])
e = Segment(O, B)
f = Segment(O, S)
D = Mirror(B, O)
E = Mirror(A, O)
F = Mirror(S, O)
h = Segment(D, O)
i = Segment(E, O)
j = Segment(O, F)
G = Translate(B, Vector[Arista * u])
H = Mirror(G, O)
I = Translate(E, Vector[Arista * v])
J = Mirror(I, O)
poly1, h_1, i_1, g_1, j_1 = Polygon(H, I, G, J)
l = Segment(E, B)
M = Midpoint(l)
N = Midpoint(M, E)
P = Midpoint(N, M)
m = Line(O, P)
Q = Intersect(m, h_1)
R = Midpoint(P, Q)
S_1 = Midpoint(Q, R)
T = Midpoint(S_1, R)
p = Conic(B, T, E, D, A)
n = Line(D, f)
r = Line(B, f)
t = Line(A, j)
q = Segment(S, E)
s = Segment(S, D)
a1 = Segment(S, A)
b1 = Segment(S, B)
c1 = Segment(D, A)
d1 = Segment(A, B)
e1 = Segment(B, E)
f1 = Segment(E, D)
K = Point(b1)
L = Point(s)
g1 = Line(K, d1)
U = Point(q)
V = Intersect(g1, a1)
poly2, v_1, l_1, u_1, k_1 = Polygon(V, L, U, K)
W = (3.520721590749516, 0.4217363155771813)
z = Vector(O, W)
o = 0 (slider from 0 to 0.7, step 0.1)
A1 = Translate(S, z)
h1 = Line(A1, W)
k1 = Circle(W, o)
B1, C1 = Intersect(k1, h1)
u1 = Vector(O, B1)
poly3, d_1, a_1, b_1, e_1 = Polygon(D, A, B, E)
D' = Translate(D, z)
A' = Translate(A, z)
B' = Translate(B, z)
E' = Translate(E, z)
poly3', d', a', b', e' = Polygon(D', A', B', E')
V' = Translate(V, z)
L' = Translate(L, z)
U' = Translate(U, z)
K' = Translate(K, z)
poly2', v', l', u', k' = Polygon(V', L', U', K')
i1 = Segment(K', B')
j1 = Segment(U', E')
V'_1 = Translate(V, u1)
L'_1 = Translate(L, u1)
U'_1 = Translate(U, u1)
K'_1 = Translate(K, u1)
poly2'_1, v'_1, l'_1, u'_1, k'_1 = Polygon(V'_1, L'_1, U'_1, K'_1)
l1 = Segment(D, K)
D1 = Intersect(f, l1)
E1 = Translate(D1, z)
m1 = Segment(E1, W)
n1 = Segment(V', A')
p1 = Segment(L', D')
F1 = Translate(D1, u1)
G1 = Translate(S, u1)
q1 = Segment(G1, K'_1)
r1 = Segment(G1, V'_1)
s1 = Segment(G1, L'_1)
t1 = Segment(G1, U'_1)
a2 = Segment(D', A')
b2 = Segment(A', B')
c2 = Segment(B', E')
d2 = Segment(E', D')
e2 = Segment(G1, F1)
g = Segment(A, O)