Sponsored links: Algebra eBooks
 

Related

contract-ev-load

load(itensor);

imetric(g);

ishow(g([j,k],[])*g([...

Calculate

contract-load

load(itensor);

imetric(g);

ishow(contract( g([],...

Calculate

contract-load-ratexpand

load(itensor);

ishow(g([],[i,j])*A([...

ishow(ratexpand(contr...

Calculate

contract-ev-load

load(itensor);

imetric(g);

ishow(g([j,k],[])*g([...

Calculate

contract-elem

s1: x1+x2+x3+x4;

s2: x1^2+x2^2+x3^2+x4^2;

s3: x1^3+x2^3+x3^3+x4^3;

Calculate

contract-ev-load

load(itensor);

imetric(g);

ishow(g([j,k],[])*g([...

Calculate

contract-load

load(itensor);

ishow(g([],[i,j])*A([...

contract(%o2);

Calculate

contract-load-ratexpand

load(itensor);

ishow(g([],[i,j])*A([...

ishow(ratexpand(contr...

Calculate

contract-load

load(itensor);

ishow(g([],[i,j])*A([...

ishow(contract(g([],[...

Calculate

contract

Run Example
(%i1)load(itensor);
(%o1)         /usr/share/maxima/5.21.1/share/tensor/itensor.lisp
(%i2) ishow(g([],[i,j])*A([j],[]));
                                     i j
(%t2)                               g    A
                                          j
(%o2)                      g([], [i, j]) A([j], [])
(%i3) show(ratexpand(contract(g([],[i,j])*A([j],[]))));
(%o3)                   show(g([], [i, j]) A([j], []))
(%i4) 
Run Example
load(itensor);
(%o1)         /usr/share/maxima/5.21.1/share/tensor/itensor.lisp
(%i2) ishow(g([],[i,j])*A([j],[]));
                                     i j
(%t2)                               g    A
                                          j
(%o2)                      g([], [i, j]) A([j], [])
(%i3) ishow(contract(g([],[i,j])*A([j],[])));
                                     i j
(%t3)                               g    A
                                          j
(%o3)                      g([], [i, j]) A([j], [])
(%i4) 
Run Example
load(itensor);
(%o1)         /usr/share/maxima/5.21.1/share/tensor/itensor.lisp
(%i2) ishow(g([],[i,j])*A([j],[]));
                                     i j
(%t2)                               g    A
                                          j
(%o2)                      g([], [i, j]) A([j], [])
(%i3) ishow(ratexpand(contract(g([],[i,j])*A([j],[]))));
                                     i j
(%t3)                               g    A
                                          j
(%o3)                      g([], [i, j]) A([j], [])
(%i4) 

Related Help

Help for Contract