P

P'

Rastro visible

Rastro no visible

Ver envolvente

Segmento

Recta

Otras cónicas

Ver elementos construcción

Parábola

Mueve el punto F 

Elipse

Circunferencia

Hipérbola

Haz de rectas secantes

Mueve los puntos A, B y C.

G = Point(yAxis)
H = (-2.9, 2.58)
H' = Mirror(H, yAxis)
d = Segment(H, G)
e = Segment(G, H')
n = 50 (slider from 1 to 100, step 1)
lista11 = Sequence(G + (i * (H - G) / n), i, 1, n)
lista12 = Sequence(G + (i * (H' - G) / n), i, 1, n)
lista13 = Sequence(Segment[Element[lista11, i], Element[lista12, n - i]], i, 1, n)
h: (y(H) + y(G)) / 2
O_1: (0, h)
lista14: {H, O_1, H'}
p_1 = Polynomial(lista14)
q = Simplify(p_1)
r_1(x) = ((y(H) - y(G)) / ((2 * x(H)^(2))) * x^(2)) + (y(H) + y(G)) / 2
ejer: 1
B = (-3.74, 3.2)
A = (-0.16, -3.48)
C = (4.72, 3.12)
a = Segment(B, A)
b = Segment(A, C)
m = 0.64 (slider from 0 to 1, step 0.02)
D: B + (m * (A - B))
E: A + (m * (C - A))
c = Segment(D, E)
est = 0 (slider from 0 to 1, step 1)
lista1 = Sequence(A + (i * (B - A) / n), i, 1, n - 1)
lista2 = Sequence(A + (i * (C - A) / n), i, 1, n - 1)
lista3 = Sequence(Segment[Element[lista1, i], Element[lista2, n - i]], i, 1, n - 1)
f = false
s = Line(D, E)
p = 0 (slider from 0 to 1, step 1)
r = 3 (slider from 1 to 4, step 0.1)
O = (0, 0)
g = Circle(O, r)
F = (-3.4006186793575224, -1.403093396787622)
M = Point(g)
lista4 = Sequence(Rotate[M, ((i * 360) * ° / n)], i, 1, n)
lista5 = Zip(LineBisector[F, N], N, lista4)
i = false
dis = Distance(O, F)