An n-dimensional algebra is represented by a (1,2)-tensor
viewed as an operator with two inputs i,j and one
output k. For example in 2 dimensions
fricas
(1) -> )library DEXPR
DistributedExpression is now explicitly exposed in frame initial
DistributedExpression will be automatically loaded when needed from
/var/aw/var/LatexWiki/DEXPR.NRLIB/DEXPR
n:=2
fricas
T:=CartesianTensor(1,n,DEXPR INT)
Type: Type
fricas
Y:=unravel(concat concat
[[[script(y,[[k],[j,i]])
for i in 1..n]
for j in 1..n]
for k in 1..n]
)$T
Type: CartesianTensor
?(1,
2,
DistributedExpression
?(Integer))
Given two vectors
and
fricas
U:=unravel([script(u,[[i]]) for i in 1..n])$T
Type: CartesianTensor
?(1,
2,
DistributedExpression
?(Integer))
fricas
V:=unravel([script(v,[[i]]) for i in 1..n])$T
Type: CartesianTensor
?(1,
2,
DistributedExpression
?(Integer))
the tensor Y operates on their tensor product to
yield a vector
fricas
W:=contract(contract(Y,3,product(U,V),1),2,3)
Type: CartesianTensor
?(1,
2,
DistributedExpression
?(Integer))
or in a more convenient notation:
fricas
W:=(Y*U)*V
Type: CartesianTensor
?(1,
2,
DistributedExpression
?(Integer))
The algebra Y is commutative if the following tensor
(the commutator) is zero
fricas
K:=Y-reindex(Y,[1,3,2])
Type: CartesianTensor
?(1,
2,
DistributedExpression
?(Integer))
A basis for the ideal defined by the coefficients of the
commutator is given by:
fricas
C:=groebner(ravel(K))
There are 2 exposed and 6 unexposed library operations named
groebner having 1 argument(s) but none was determined to be
applicable. Use HyperDoc Browse, or issue
)display op groebner
to learn more about the available operations. Perhaps
package-calling the operation or using coercions on the arguments
will allow you to apply the operation.
Cannot find a definition or applicable library operation named
groebner with argument type(s)
List(DistributedExpression(Integer))
Perhaps you should use "@" to indicate the required return type,
or "$" to specify which version of the function you need.
An algebra is associative if:
Y I = I Y
Y Y
Note: right figure is mirror image of left!
1 2 5 1 4 5
\/ / \ \/
\/ = \/
\ /
6 3
In other words an algebra is associative if and only
if the following (3,1)-tensor
is zero.
fricas
A := Y*Y - reindex(Y,[1,3,2])*reindex(Y,[1,3,2]); ravel(A)
Type: List(DistributedExpression
?(Integer))