Rectángulo

Circunferencia

Parábola

Homotecia

Efecto zoom

V = (5.620000000000004, -1.4200000000000033)
verRectángulo = false
verCircunferencia = false
verParábola = false
homotecia = false
k = 2 (slider from -5 to 5, step 0.05)
F = Point(Ray[V, V + (0.0, 1.0)])
zoom = false
directriz = Line(2.0 * V - F, Vector[OrthogonalVector[Vector[F, V]]])
parabola = Parabola(F, directriz)
P: F + (2.0 * y(F - V), 0.0)
F' = Dilate(F, k, V)
P' = Dilate(P, k, V)
directriz' = Line(2.0 * V - F', Vector[OrthogonalVector[Vector[V, F']]])
h = Line(V, F)
P'_1 = Mirror(P, h)
i = OrthogonalLine(P'_1, directriz)
j = OrthogonalLine(P, directriz)
A = Intersect(directriz, i)
B = Intersect(directriz, j)
P1' = Dilate(P'_1, k, V)
A' = Dilate(A, k, V)
B' = Dilate(B, k, V)
parábola' = Parabola(F', directriz')
b = Segment(V, P')
n = Segment(V, B')
l = Segment(V, P1')
m = Segment(V, A')
e = Segment(V, F')
C: F + F - V
C': F' + F' - V
c = Circle(C, V)
d = Circle(C', V)
a_2 = Segment(V, C')
D = Point(c)
D' = Dilate(D, k, V)
f = Segment(D', V)
rectangulo, g, p, q, r = Polygon(P, P'_1, A, B)
rectangulo', s, t, a_1, b_1 = Polygon(P', P1', A', B')
E = Point(rectangulo)
E' = Dilate(E, k, V)
c_1 = Segment(V, E')
G = Point(parabola)
G' = Dilate(G, k, V)
d_1 = Segment(V, G')
a = Tangent(G, parabola)
e_1 = Tangent(G', parábola')
H = (-1.8999999999999957, 1.2399999999999964)
lista1: {Polygon[H, H - (20.0, 0.0), H + (-(20.0), 20.0), H + (0.0, 20.0)]}