L

Animar F

Animar A

Animar B

Posiciones predeterminadas

F

B

A

A = Point(yAxis)
L = Intersect(xAxis, yAxis)
c = Circle(A, L)
A' = Mirror(A, xAxis)
f = Line(A', xAxis)
ControlG = Point(f)
g = Segment(A, ControlG)
h = LineBisector(g)
i = OrthogonalLine(ControlG, f)
G = Intersect(h, i)
lugar1 = Locus(G, ControlG)
B = Point(yAxis)
d = Circle(B, A')
F_1 = Point(d)
j = Line(B, F_1)
k = Segment(A, F_1)
l = LineBisector(k)
G_1 = Intersect(j, l)
lugar2 = Locus(G_1, F_1)
F = Point(yAxis)
e = Circle(F, A')
I_1 = Point(e)
m = Line(F, I_1)
n = Segment(I_1, A)
p = LineBisector(n)
J = Intersect(p, m)
lugar3 = Locus(J, I_1)
K' = Midpoint(A, F)
B' = Mirror(L, K')
q = Line(K', xAxis)
r = Circle(L, Segment[K', F])
L_1 = Intersect(r, q, 1)
M = Intersect(r, q, 2)
s = OrthogonalLine(L_1, xAxis)
t = OrthogonalLine(M, xAxis)
a = Line(B', xAxis)
N = Intersect(s, a)
O = Intersect(t, a)
P = Intersect(s, xAxis)
Q = Intersect(t, xAxis)
b = Line(N, Q)
f_1 = Line(O, P)
g_1 = OrthogonalLine(L, yAxis)
h_1 = OrthogonalLine(L, g_1)
i_1 = OrthogonalLine(K', yAxis)
L': L
K: L
S: L
C: A
D: A
VelocidadAnimación = 0.29 (slider from -1 to 1, step 0.01)
H = Intersect(i_1, i)
I = If(y(G) < y(L), (x(G), y(G) - 1), (x(G), y(G) + 1))
o = false
u = false
v = false

Tool: Parabola tangente a una recta en un punto (command Parabolatangenteaunarectaenunpunto)
Parabolatangenteaunarectaenunpunto[ <Recta>, <Punto>, <Punto> ]
Input: yAxis, A, B
Output: c

f = Line(A, B)
g = OrthogonalLine(B, yAxis)
C = Intersect(g, yAxis)
D = Midpoint(C, B)
h = Line(D, yAxis)
i = Line(B, yAxis)
E = Intersect(f, h)
j = OrthogonalLine(E, f)
F = Intersect(j, yAxis)
G = Intersect(i, j)
k = OrthogonalLine(G, yAxis)
c = Parabola(F, k)