Re: Tensoralgebra

["B. Schnizer" <schnizer@XXXXXXX.at>]

> 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.

Aber so:

T2 = Table[Sum[T4[[i, j, j, k]], {j, 1, Length[T4]}],
    {i, 1, Length[T4]}, {k, 1, Length[T4]}]

BS

**************************************************************************
 ao. Prof. Dr. B. Schnizer              Institut fuer Theoretische Physik
 Tel: +43 (316) 873-8173, -8171 (Secr.) Technische Universitaet Graz
 Fax: +43 (316) 873 8678                Petersgasse 16
 e-mail: schnizer@XXXXXXX.at     A-8010 Graz
 http://www.itp.tu-graz.ac.at/schnizer   Austria/Europe
https://online.tu-graz.ac.at/tug_online/tgo_org.display?CORG=2382
***************************************************************************