Update of /cvsroot/mupad-combinat/MuPAD-Combinat/lib/DOMAINS/CATEGORY/TEST
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7307
Modified Files:
AlgebraWithBasis.tst
Log Message:
New method: Cat::AlgebraWithBasis::algebraClosure.
Index: AlgebraWithBasis.tst
===================================================================
RCS file: /cvsroot/mupad-combinat/MuPAD-Combinat/lib/DOMAINS/CATEGORY/TEST/AlgebraWithBasis.tst,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** AlgebraWithBasis.tst 20 Mar 2005 11:06:34 -0000 1.4
--- AlgebraWithBasis.tst 28 Nov 2005 15:26:28 -0000 1.5
***************
*** 63,66 ****
--- 63,100 ----
(FreeAlgebra)::fromList([[7, [2, 2, 5, 5]], [1, [4, 4, 1, 1, 3, 3]]])):
+ //////////////////////////////////////////////////////////////////////////////
+ prog::testfunc(algebraClosure):
+
+ // This is quite minimal, as there is not much linear algebra
+ // involved, but at least it tests that this feature is available and
+ // not completely broken.
+
+ S := Dom::SymmetricGroup(3):
+ H := Dom::GroupAlgebra(S):
+
+ s1 := H(S([2,1,3])):
+ s2 := H(S([1,3,2])):
+ c := H(S([2,3,1])):
+
+ prog::test(H::algebraClosure([s1, s2]),
+ [H::term(S([3, 2, 1])), H::term(S([1, 2, 3])), H::term(S([3, 1, 2])),
+ H::term(S([2, 3, 1])), H::term(S([1, 3, 2])), H::term(S([2, 1, 3]))]):
+ prog::test(H::algebraClosure([s1]),
+ [H::term(S([1, 2, 3])), H::term(S([2, 1, 3]))]):
+ prog::test(H::algebraClosure([1 - s1]),
+ [H::fromList([[1, S([1, 2, 3])], [-1, S([2, 1, 3])]])]):
+ prog::test(H::algebraClosure([1 - s1, H::one]),
+ [H::term(S([1, 2, 3])), H::term(S([2, 1, 3]))]):
+ prog::test(H::algebraClosure([1 - s1, 1 - s2]),
+ [H::fromList([[1, S([3, 2, 1])], [-1, S([2, 1, 3])]]),
+ H::fromList([[1, S([1, 2, 3])], [-1, S([2, 1, 3])]]),
+ H::fromList([[1, S([3, 1, 2])], [-1, S([2, 1, 3])]]),
+ H::fromList([[1, S([2, 3, 1])], [-1, S([2, 1, 3])]]),
+ H::fromList([[1, S([1, 3, 2])], [-1, S([2, 1, 3])]])]):
+ prog::test(H::algebraClosure([c]),
+ [H::term(S([1, 2, 3])), H::term(S([3, 1, 2])), H::term(S([2, 3, 1]))]):
+ prog::test(H::algebraClosure([s1, c]),
+ [H::term(S([3, 2, 1])), H::term(S([1, 2, 3])), H::term(S([3, 1, 2])),
+ H::term(S([2, 3, 1])), H::term(S([1, 3, 2])), H::term(S([2, 1, 3]))]):
//////////////////////////////////////////////////////////////////////////////
|