Hi to all,
I have a error using itensor:
(%i1) load(itensor);
STYLE-WARNING: redefining $NAME in DEFUN
STYLE-WARNING: redefining DERIV in DEFUN
STYLE-WARNING: redefining SDIFF in DEFUN
STYLE-WARNING: redefining I-$DEPENDENCIES in DEFUN
STYLE-WARNING: redefining $DECSYM in DEFUN
STYLE-WARNING: redefining $CANFORM in DEFUN
(%o1) /usr/local/share/maxima/5.22.0/share/tensor/itensor.lisp
(%i2) imetric(g);
(%o2) done
(%i3)
kdelta([1],[i])*kdelta([1],[j])*g([i,j],[])*kdelta([1],[k])*kdelta([1],[p])*g([k,p],[])$
(%i4) contract(%);
g g has improper indices
1 1 1 1
-- an error. To debug this try: debugmode(true);
(%i5)
or (actually the same thing):
(%i1) load(itensor);
STYLE-WARNING: redefining $NAME in DEFUN
STYLE-WARNING: redefining DERIV in DEFUN
STYLE-WARNING: redefining SDIFF in DEFUN
STYLE-WARNING: redefining I-$DEPENDENCIES in DEFUN
STYLE-WARNING: redefining $DECSYM in DEFUN
STYLE-WARNING: redefining $CANFORM in DEFUN
(%o1) /usr/local/share/maxima/5.22.0/share/tensor/itensor.lisp
(%i2) defcon(g,g,kdelta);
(%o2) done
(%i3)
kdelta([1],[i])*kdelta([1],[j])*g([i,j],[])*kdelta([1],[k])*kdelta([1],[p])*g([k,p],[])$
(%i4) contract(%);
g g has improper indices
1 1 1 1
-- an error. To debug this try: debugmode(true);
(%i5)
correct answer is something like g([1,1],[])^2 in both cases.
Thanks in advance,
Yaroslav