Wdrażanie tensorów

Question

Zobacz poniższe pytanie. To jest to, co muszę zaimplementować w Mathematica.

Answer 1

Czy odpowiada na twoje pytanie?

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]