Hi! Could somebody advise me how to invert a 4th order tensor in Mathematica? In other words, how to find (B) in (A)ijkl(B)klmn=(I)ijmn?
Have a look into Tensor on a vector space, especially at the end T^{0,q}(f)=T^{q,0}(f^{*})^{-1}.
To take A^{ijkl}B_{klmn} = \delta^{i}_m \delta^{j}_{n} serious you could check out Tensors and Tensors Tutorial as well as Symbolic Tensors to see what it comes down to.
