拋物線的性質(2)
Author: 藍邦偉  老師

拋物線的定義(2)

a = 1 (slider from 1 to 5, step 1)
F: (a, 0)
i = (0, 1)
list = Sequence(Line[(i, 0), (i, 1)], i, -100, 100, 1)
c: x = -a
d = Parabola(F, c)
b = 1 (slider from 0 to 10, step 1)
e: x = b
f: y = b
g: x = b
V = Vertex(d)
P, B = Intersect(d, g)
h = OrthogonalLine(P, c)
H = Intersect(c, h)
j = Segment(H, P)
k = Segment(F, P)
List1 = Sequence(Circle[F, i], i, 1, 100)
T_4 = Corner(4)
T_3: (3 * Corner[4] + Corner[3]) / 4
T_1 = Corner(1)
T_2: (3 * Corner[1] + Corner[2]) / 4
多邊形1, t_1, t_2, t_3, t_4 = Polygon(T_1, T_2, T_3, T_4)
l = Segment(T_2, T_3)