visualizza caustica di riflessione

Caustica di riflessione

A = Intersect(xAxis, yAxis)
B = Point(yAxis)
C = (0, -1)
c = CircleArc(A, B, C)
b = -0.56 (slider from -1 to 1, step 0.02)
E: (2, b)
a = Line(E, xAxis)
D = Intersect(c, a, 1)
d = Segment(A, D)
a' = Mirror(a, d)
e = Circle(D, 0.5)
F = Intersect(e, a', 2)
f = Segment(D, F)
G = (-0.5, 0)
h = CurveCartesian((3 / 2 * cos(t)) - cos(t)^(3), sin(t)^(3), t, 1.5707963267948966, 4.71238898038469)
g = Segment(E, D)
i = true