Refleja

Homotecia

P (X, Y)

f = false
o = false
e = 1.4142135623730951
C = (0, 0)
d = Circle(C, 2.0)
V: (1.0, 1.0 - 2.0 * f)
a = Line(C, V)
aa = Ray(C, V)
G = Point(aa)
q = Function(1.0 / x, 0.1, 1.0)
F', F = Intersect(d, a)
g = Circle(V, Distance[V, F] / e)
A_1 = Intersect(g, a, 1.0)
r = Circle(F, e * Distance[G, A_1])
k_1 = OrthogonalLine(A_1, a)
b = Line(G, k_1)
E = Intersect(b, yAxis)
bb = Ray(G, E)
J = Intersect(r, bb)
lugar1 = Locus(J, G)
P = Point(lugar1)
l = OrthogonalLine(P, k_1)
D = Intersect(k_1, l)
j = Segment(P, F)
m = Segment(P, D)
H = (1, 0)
B: (0.0, 1.0 - 2.0 * f)
polígono3: {Polygon[C, H, V, B]}
c: x * y = 1.0 - 2.0 * f
k = 2 (slider from -3 to 3, step 0.05)
c' = Dilate(c, k, C)
P' = Dilate(P, k, C)
p = Segment(C, P')
lista3: {Polygon[P', (0.0, y(P')), C, (x(P'), 0.0)]}
texto1: "y\;=\;\frac{" + ((1.0 - 2.0 * f) * k^(2.0)) + "  }{x } "
A = (-4.551294873251453, 1.818346675021182)
lista1: {Polygon[A, A - (20.0, 0.0), A + (-(20.0), 20.0), A + (0.0, 20.0)]}
lista2: {Polygon[C + f * ((k, 0.0) - C), (k, 0.0) + f * (C - (k, 0.0)), 4.0]}