exp(M) A

i = (0, 1)
Me2 = (0.2916407485893291, 0.9890968908585828)
Me1 = (1.0827747362271118, 0.168043193986612)
det: x(Me1) * y(Me2) - y(Me1) * x(Me2)
tr: x(Me1) + y(Me2)
delta: tr^(2.0) - 4.0 * det
A = (0.5020725393527861, 0.9077471828622412)
e_1 = (1, 0)
e_2 = (0, 1)
M: {{x(Me1), x(Me2)}, {y(Me1), y(Me2)}}
MA: M * A
B = (1.5111450161219147, 0.3319195911326894)
C = (1.3959696130771704, 0.2912694488816032)
D = (1.5, 0.5)
vA = Vector(A)
vMA = Vector(MA)
vMe1 = Vector(Me1)
vMe2 = Vector(Me2)
B': M * B
C': M * C
D': M * D
texte1: "$M=\left(\begin{array}{}" + (x(Me1)) + "&" + (x(Me2)) + "\\" + (y(Me1)) + "&" + (y(Me2)) + "\end{array}\right)$"
texte3: "tr(M)=" + tr
texte2: "det (M) = " + det
texte4: "$\Delta = " + delta + "$"
L_1, L_2 = Root(x^(2.0) - tr * x + det)
λ_2: (tr + sqrt(delta)) / 2.0
texte6: "$\lambda_2=" + λ_2 + "$"
λ_1: (tr - sqrt(delta)) / 2.0
texte5: "$\lambda_1=" + λ_1 + "$"
tM = Transpose(M)
tMM: tM * M
normEuclid: sqrt(Element[Element[tMM, 1.0], 1.0] + Element[Element[tMM, 2.0], 2.0])
texte7: "$||M||=" + normEuclid + "$"
c = Conic(Me1, Me2, -(Me1), -(Me2), M * (1.0, 1.0) / sqrt(2.0))
d = Circle((0.0, 0.0), 1.0)
a = SecondAxis(c)
e_3 = FirstAxis(c)
v_1: (x(Me2), λ_1 - x(Me1))
v_2: (x(Me2), λ_2 - x(Me1))
E_1 = Line((0.0, 0.0), v_1)
E_2 = Line((0.0, 0.0), v_2)
P: {{x(v_1), x(v_2)}, {y(v_1), y(v_2)}}
PI = Invert(P)
MiA = Sequence(P * {{λ_1^(i), 0.0}, {0.0, λ_2^(i)}} * PI * A, i, 0.0, 10.0)
MkA = Sequence(M^(k) * A, k, 1.0, 10.0)
e: P * {{exp(λ_1), 0.0}, {0.0, exp(λ_2)}} * PI * A
n = 2 (slider from 1 to 10, step 1)
E = Root(x^(2.0) + 1.0)
l_1: (tr + i * sqrt(-(delta))) / 2.0
l_2: (tr - i * sqrt(-(delta))) / 2.0
PC: {{x(Me2), x(Me2)}, {i * sqrt(-(delta)) - x(Me1), -(i) * sqrt(-(delta)) - x(Me1)}}
PCI: {{-(i) * sqrt(-(delta)) - x(Me1), -x(Me2)}, {-(i) * sqrt(-(delta)) + x(Me1), x(Me2)}}
eM: {{1.0, 0.0}, {0.0, 1.0}} * A + Sum[Sequence[1.0 / k! * M^(k) * A, k, 1.0, n]]
norme = FirstAxisLength(c)
demiPetitAxe = SecondAxisLength(c)
g = Length(MA)
h: sqrt(norme^(2.0) + demiPetitAxe^(2.0))
norm = Max(norme, demiPetitAxe)
normEuclid2: sqrt(Me1^(2.0) + Me2^(2.0))