リサージュ曲線3
Author: knxm

A = Point(yAxis)
c = Circle(A, 1.0)
B = (4, 0)
d = Circle(B, 1.0)
a = 4 (slider from 0 to 10, step 0.1)
b = 7 (slider from 0 to 10, step 0.1)
C = (0, 7)
D = (6.283185307179586, 7)
e = Segment(C, D)
T = Point(e)
t: x(T)
E = (5, 0)
F = (1, 4)
F' = Rotate(F, a * t, A)
α = Angle(F, A, F')
E' = Rotate(E, b * t, B)
β = Angle(E, B, E')
f = OrthogonalLine(F', xAxis)
g = OrthogonalLine(E', yAxis)
G = Intersect(g, f)
軌跡1 = Locus(G, T)