Rectángulo

Circunferencia

Hipérbola

Homotecia

Efecto zoom

verRectángulo = false
verCircunferencia = false
verHipérbola = false
homotecia = false
zoom = false
F = (7.0000000000000036, 0.21999999999999656)
f_1 = OrthogonalLine(F, d)
A = Intersect(f_1, d)
h_1 = Circle(F, A)
a = OrthogonalLine(F, f_1)
I, J = Intersect(h_1, a)
FF: I + 0.01 * (I - F) / abs(I - F)
aa = Ray(I, FF)
E = Point(aa)
e: Distance[E, F] / Distance[F, A]
texto1: "e\; = \;" + e
V: A + (F - A) / (e + 1.0)
p = Line(V, d)
C: F + (V - F) * e / (e - 1.0)
r = Circle(C, F)
L, M = Intersect(r, p)
V' = Mirror(V, C)
q = Line(V', d)
N, O_1 = Intersect(r, q)
j_1 = Line(N, M)
l_1 = OrthogonalLine(M, j_1)
F'_2 = Mirror(F, C)
g_1 = Hyperbola(F, F'_2, V)
k = 1.5 (slider from -5 to 5, step 0.05)
V'_1 = Dilate(V, k, C)
F'_1 = Dilate(F, k, C)
H = Mirror(F'_1, C)
E' = Dilate(E, k, C)
h = Line(C, F)
P'_1 = Mirror(E, h)
i_1 = OrthogonalLine(P'_1, d)
j = OrthogonalLine(E, d)
A_1 = Intersect(d, i_1)
B = Intersect(d, j)
P1' = Dilate(P'_1, k, C)
A' = Dilate(A_1, k, C)
B' = Dilate(B, k, C)
O = Intersect(f_1, l_1)
c = Circle(O, V)
D = Point(c)
D' = Dilate(D, k, C)
rectangulo, g, i, l, m = Polygon(E, P'_1, A_1, B)
rectangulo', s, t, a_1, b_1 = Polygon(E', P1', A', B')
E_1 = Point(rectangulo)
E'_1 = Dilate(E_1, k, C)
G = Point(g_1)
G' = Dilate(G, k, C)
e_1 = Hyperbola(F'_1, H, V'_1)
d_1 = Segment(C, G')
b = Segment(C, E')
O' = Dilate(O, k, C)
d_2 = Circle(O', V'_1)
c_1 = Segment(C, E'_1)
F' = Mirror(F, I)
f = Segment(D', C)
a_2 = Segment(C, O')
K = Point(g_1)
K' = Dilate(K, k, C)
n = Segment(K', C)
e1 = Segment(C, F'_1)
d' = Dilate(d, k, C)
P = (-1.9199999999999957, 1.4599999999999964)
lista1: {Polygon[P, P - (20.0, 0.0), P + (-(20.0), 20.0), P + (0.0, 20.0)]}