A: {{1, -1}, {1, 1}}
angles: {0, π / 3, (2 * π / 3), π, (4 * π / 3), (5 * π / 3)}
rot = Sequence({{cos(angles(i)), sin(angles(i))}, {(-sin(angles(i))), cos(angles(i))}}, i, 1, Length[angles])
ini = Sequence((rot(i) * (1, 0)), i, 1, Length[rot])
t: {1, 2, 3, 4}
evol = Sequence({{(exp(t(i)) * cos(t(i))), ((-exp(t(i))) * sin(t(i)))}, {(exp(t(i)) * sin(t(i))), (exp(t(i)) * cos(t(i)))}}, i, 1, Length[t])
p = Join(Sequence[Sequence[(evol(i) * ini(k)), i, 1, Length[evol]], k, 1, Length[ini]])
vec = Sequence(Vector[p(i), p(i) + ((0.5 * A) * p(i))], i, 1, Length[p])
a = CurveCartesian(({{(ℯ^(t) * cos(t)), ((-ℯ^(t)) * sin(t))}, {(ℯ^(t) * sin(t)), (ℯ^(t) * cos(t))}} * (1, 0)), t, 1, 4)
lines = Sequence(CurveCartesian[((ℯ^(t) * cos(t)) * x(ini(i))) - ((ℯ^(t) * sin(t)) * y(ini(i))), ((ℯ^(t) * sin(t)) * x(ini(i))) + ((ℯ^(t) * cos(t)) * y(ini(i))), t, 0, 6], i, 1, Length[ini])