Re: Tensoralgebra

[Erk Jensen <Erk.Jensen@XXXXXXX.ch>]

Andreas Wick wrote:
> 
> 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

Bin nicht sicher, aber versuch's und schau hinterher ob's macht, was Du willst:

T = Table[f[i,j,k,l],{i,3},{j,3},{k,3},{l,3}]

Das wäre der 3 x 3 x 3 x 3 Tensor
jetzt die Verjüngung:

Sum[T[[All,i,i,All]],{i,3}]

Für mich sah das ganz OK aus ...
Ciao
   -erk-
-- 
 Dr.-Ing. Erk JENSEN                    mailto:Erk.Jensen@XXXXXXX.ch
 CERN  PS/RF  L19510          http://jensene.home.cern.ch/jensene
 CH-1211 Geneva 23                      Tel.:     +41 22 76 74298
 Switzerland                            Fax.:     +41 22 76 78510