拋物線的光學性質
Author: 藍邦偉　老師

拋物線的光學性質

t = -1.76 (slider from -2.4 to 2.4, step 0.01)
F = (1, 0)
P: (t^(2.0), 2.0 * t)
a = Tangent(P, c)
A_1: (x(Corner[2.0]), y(P))
d = Ray(P, A_1)
b = Ray(P, F)
A, B = Intersect(c, b)
e = Segment(A, B)
A_2: (100.0, y(B))
f = Ray(B, A_2)
A_0 = Corner(4.0)
A_3: Corner[4.0] + (3.5, 0.0)
A_i: A_1 + A_3 - A_0
多邊形1, a_0, a_3, a_i, a_1 = Polygon(A_0, A_3, A_i, A_1)
u = Vector((x(Corner[1.0]), 0.0), (x(Corner[3.0]), 0.0))
v = Vector((0.0, y(Corner[1.0])), (0.0, y(Corner[3.0])))