Spuren löschen

Leitgerade einer Parabel

IMP10

t

t

a = 0.25 (slider from 0 to 2, step 0.05)
p: y = (a * x^(2))
x_P = 1.8541497557915736 (slider from -4.5 to 4.5, step 0.2)
P: (x_P, p(x_P))
t, f_1 = Tangent(P, p)
n = OrthogonalLine(P, t)
v = Vector((0, 0), (0, 1))
s = Ray(P, v)
P' = Mirror(P, n)
gl1: x = x(P)
gl1' = Mirror(gl1, n)
B_1, C = Intersect(p, gl1')
f = Tangent(C, p)
g = OrthogonalLine(C, f)
E = Point(n)
gl1'' = Mirror(gl1', g)
j = Segment(C, P)
D = Point(gl1'')
k = Ray(C, D)
G = Point(f)
H = Point(f)
B = Focus(p)
n_1 = Segment(P, E)
l_1: {-1.5, 1, 3, 4}
l_2 = Sequence((Element[l_1, i], p(Element[l_1, i])), i, 1, 4)
I = Point(t)
J = Point(t)
t_1 = Segment(I, J)
L: (x_P, 5.3)
i = Segment(L, P)
A: (-5.85, 5.56)
F = (7.674626737376072, -1.2985578131928608)