Guten Tag,
Ich moechte einen sehr grossen Ausdruck, der im wesentlichen doppelte
Ueberschiebungen (bzw. Verjuengungen) von Tensoren enthaelt, mit
Mathematica vereinfachen.
Wie kann ich das tun?
Einfaches Beispiel
------------------
Ein Tensor 4. Stufe wird durch Verjuengung zu einem Tensor zweiter
Stufe:
T2_(i,k) = T4_(i,j,j,k)
Ein Versuch mit Mathematica:
d=IdentityMatrix[2]
c={{c11,c12},{c21,c22}}
T4=Outer[Times, c, d]
T2=Sum[T4[[i,j,j,k]],{j,1,2}]
Das klappt so leider nicht.
Anmerkung: Ich habe kein Zusatz-Paket `Tensoranalysis' und habe auch
keine Moeglichkeit eines zu kaufen.
MfG,
A. Wick
|