Implementación de tensores

Question

Consulte la siguiente pregunta. Esto es lo que necesito implementar en Mathematica.

Answer 1

¿Responde a tu pregunta?

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]