Implémentation de Tensors

Question

Veuillez consulter la question ci-dessous. C'est ce que je dois implémenter dans Mathematica.

Answer 1

Cela répond-il à votre question?

f={{l x[1],0},{0,l(x[1]+x[2])}};
g[μ_]:=Sum[f[[μ,κ]]D[f[[ν,κ]],x[ν]],{ν,2},{κ,2}]
g[1]
Out[1]= l^2 x[1]