i = (0, 1)
Me2 = (0.15094098001848527, 0.9823552152219768)
Me1 = (0.4326211135892206, -0.6439489521864197)
A = (1.171367124274734, 0.9398374592112997)
e_1 = (1, 0)
e_2 = (0, 1)
M: {{x(Me1), x(Me2)}, {y(Me1), y(Me2)}}
MA: M * A
F1 = (1.5111450161219147, 0.3319195911326894)
F2 = (1.3959696130771704, 0.2912694488816032)
F3 = (1.5, 0.5)
vA = Vector(A)
vMA = Vector(MA)
vMe1 = Vector(Me1)
vMe2 = Vector(Me2)
F'1: M * F1
F'2: M * F2
F'3: M * F3
texte1: "$M=\left(\begin{array}{}" + (x(Me1)) + "&" + (x(Me2)) + "\\" + (y(Me1)) + "&" + (y(Me2)) + "\end{array}\right)$"
tM = Transpose(M)
tMM: tM * M
normEuclid: sqrt(Me1^(2.0) + Me2^(2.0))
p = 4.3 (slider from 0.1 to 15, step 0.1)
b = CurveCartesian(cos(t) / (abs(cos(t))^(p) + abs(sin(t))^(p))^(1.0 / p), sin(t) / (abs(cos(t))^(p) + abs(sin(t))^(p))^(1.0 / p), t, 0.0, 6.3)
B = Point(b)
MB: M * B
lieu1 = Locus(MB, B)
v1 = Vector(B)
Mv1 = Vector(MB)
texte5: "$\frac{||MB||_p}{||B||_p}=" + (exp(log(abs(x(MB))^(p) + abs(y(MB))^(p)) / p)) + "$"
d = Conic(Me1, Me2, -(Me1), -(Me2), M * (1.0, 1.0) / sqrt(2.0))
a = FirstAxisLength(d)
e = FirstAxis(d)
f = SecondAxis(d)
texte2: "$||M||_2=" + a + "$"
texte7: "$||M||_e=" + normEuclid + "$"