直線的包絡線-拋物線
Author: 藍邦偉  老師

$B'$

直線的包絡線-拋物線

$ A $

$ B $

u = Vector((x(Corner[1]), 0), (x(Corner[3]), 0))
v = Vector((0, y(Corner[1])), (0, y(Corner[3])))
A = (6.1, 4.84)
B = (11.26, -0.62)
t = 1.5009831567151233 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
B' = Rotate(B, -t, A)
a = Segment(B, A)
b = Segment(A, B')
n = 17 (slider from 1 to 25, step 1)
u_1 = Vector(A, B)
v_1 = Vector(A, B')
list1 = Sequence(A + i / n * u_1, i, 1, n - 1)
list2 = Sequence(A + i / n * v_1, i, 1, n - 1)
list3 = Sequence(Segment[Element[list1, k], Element[list2, n - k]], k, 0, n)