B2 = (0.5, -1.5)
B1 = (-2, 1.5)
t = 0 (slider from 0 to 26000, step 0.01)
A: (x(B1) + (t - 100.0 * floor(t / 100.0)) * (x(B2) - x(B1)) / 100.0, y(B1) + floor(t / 100.0) * (y(B2) - y(B1)) / 500.0)
A1: A
A2: A + A1^(2.0)
A3: A + A2^(2.0)
A4: A + A3^(2.0)
A5: A + A4^(2.0)
A6: A + A5^(2.0)
A7: A + A6^(2.0)
A8: A + A7^(2.0)
A9: A + A8^(2.0)
A10: A + A9^(2.0)
A11: A + A10^(2.0)
A12: A + A11^(2.0)
A13: A + A12^(2.0)
A14: A + A13^(2.0)
A15: A + A14^(2.0)
A16: A + A15^(2.0)
A17: A + A16^(2.0)
A18: A + A17^(2.0)
A19: A + A18^(2.0)
A20: A + A19^(2.0)
L: {A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17, A18, A19, A20}
M = Sequence(Length[Element[RemoveUndefined[L], k]], k, 1.0, Length[RemoveUndefined[L]])
N = Sequence(exp(-1.0 * Element[M, k]), k, 1.0, Length[M])
i = (0, 1)
c = Max(N)
A' = Mirror(A, xAxis)