O

O

C = (-0.64, 2.38)
j_1 = OrthogonalLine(C, xAxis)
R = (2, -2)
a = Line((0.0, 0.0), (1.0, 1.0))
k_1 = Line(R, a)
A = Point(a)
g_1 = Line(R, C)
S = Intersect(g_1, a)
i_1 = Segment(S, R)
T = Intersect(k_1, j_1)
h_1 = Segment(C, R)
N = (4, 0.58)
J = (-2.2800000000000002, 0.44)
F = (0, 0)
c_1 = Segment(N, F)
b_1 = Ray(F, N)
I = Point(xAxis)
I' = Mirror(I, F)
q = Ellipse(I, I', J)
O = Intersect(q, b_1, 1.0)
d_1 = Segment(O, F)
M = Point(q)
e = OrthogonalLine(A, a)
ii = 1 (slider from 1 to 3, step 1)
B = Point(e)
i: round(ii)
b = Line(B, B + (1.0, 1.0))
d = Segment(B, A)
tipotipo = 1 (slider from 1 to 2, step 1)
tipo: round(tipotipo)
D = Point(a)
D' = Dilate(D, h_1 / i_1 * sgn(y(C - T)), R)
A' = Dilate(A, h_1 / i_1 * sgn(y(C - T)), R)
f = Line(D', A')
c = Circle((0.0, 0.0), (2.0, 0.0))
E = (2.82, 1.52)
h = Circle(E, 2.0)
G = Point(c)
u = Vector(F, G)
E' = Translate(E, u)
l = Segment(G, E')
k = Tangent(G, c)
H = (0, 0)
G' = (1.68, 2.54)
p = Circle(F, G')
m = Segment(F, G')
K = Point(c)
r = Ray(F, K)
L = Intersect(p, r)
s = Tangent(K, c)
t = Segment(L, K)
M' = Dilate(M, c_1 / d_1, F)
lugar1 = Locus(M', M)
n = Segment(M', M)
a_1 = Tangent(M, q)
P = (-2.56, 0.96)
e_1 = Ellipse(P + I, P + I', P + J)
Q: P + M - F
f_1 = Segment(Q, M)
texto = If(i ≟ 1.0, "Recta", If[i ≟ 2.0, "Circunferencia", "Elipse"])
g = Segment(R, A')
j = Segment(R, D')
texto1: "\bgcolor{ffffff}{Figura:\;" + texto + "}"
texto2: "\bgcolor{ffffff}{Operación:\;" + (If[tipo ≟ 1.0, "Traslación", "Homotecia"]) + "}"