Changeset 2a5ce36 in git

Timestamp:

Mar 6, 2009, 6:51:27 PM (15 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

dfb2c646c61802722d29569f2e01d9a2fe1af023

Parents:

15ac1ca9c4ddde1e5e7ae4229db9244d9e470c6b

Message:

*levandov: two new proc from bfun, isCommutative and isWeyl


git-svn-id: file:///usr/local/Singular/svn/trunk@11520 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/LIB/nctools.lib (modified) (3 diffs)

Singular/LIB/nctools.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: nctools.lib,v 1.40 2009-01-14 16:07:05 Singular Exp $";
+version="$Id: nctools.lib,v 1.41 2009-03-06 17:51:27 levandov Exp $";
 category="Noncommutative";
 info="
@@ -26 +26 @@
 
 AUXILIARY PROCEDURES:
-ncRelations(r);         recover the non-commutative relations of a G-algebra,
-isCentral(p);           check for the commutativity of a polynomial in the G-algebra,
+ncRelations(r);      recover the non-commutative relations of a G-algebra,
+isCentral(p);         check for the commutativity of a polynomial in the G-algebra,
 isNC();                 check whether basering is noncommutative,
-UpOneMatrix(N);         return NxN matrix with 1's in the whole upper triagle,
-AltVarStart();          return first alternating variable of a super-commutative algebra,
-AltVarEnd();            return last alternating variable of a super-commutative algebra,
-IsSCA();                checks whether current ring is a super-commutative algebra
+isCommutative();  check whether basering is commutative
+isWeyl();               check whether basering is a Weyl algebra
+UpOneMatrix(N);   return NxN matrix with 1's in the whole upper triagle,
+AltVarStart();        return first alternating variable of a super-commutative algebra,
+AltVarEnd();          return last alternating variable of a super-commutative algebra,
+IsSCA();                check whether current ring is a super-commutative algebra
 ";
 
@@ -1461 +1463 @@
 
 //////////////////////////////////////////////////////////////////////
+
+proc isCommutative ()
+"USAGE:  isCommutative();
+RETURN:  int, 1 if basering is commutative, or 0 otherwise
+PURPOSE: check whether basering is commutative
+EXAMPLE: example isCommutative; shows an example
+"
+{
+  int iscom = 1;
+  list L = ringlist(basering);
+  if (size(L) > 4) // basering is nc_algebra
+  {
+    matrix C = L[5];
+    matrix D = L[6];
+    if (size(module(D)) <> 0) { iscom = 0; }
+    else
+    {
+      matrix U = UpOneMatrix(nvars(basering));
+      if (size(module(C-U)) <> 0) { iscom = 0; }
+    }
+  }
+  return(iscom);
+}
+example
+{
+  "EXAMPLE:"; echo = 2;
+  ring r = 0,(x,y),dp;
+  isCommutative();
+  def D = Weyl(); setring D;
+  isCommutative();
+  setring r;
+  def R = nc_algebra(1,0); setring R;
+  isCommutative();
+}
+
+//////////////////////////////////////////////////////////////////////
+
+proc isWeyl ()
+"USAGE:  isWeyl();
+RETURN:  int, 1 if basering is a Weyl algebra, or 0 otherwise
+PURPOSE: check whether basering is a Weyl algebra
+EXAMPLE: example isWeyl; shows an example
+"
+{
+  int i,j;
+  int notW = 0;
+  int N = nvars(basering);
+  if (N mod 2 <> 0) { return(notW); } // odd number of generators
+  int n = N/2;
+  list L = ringlist(basering);
+  if (size(L) < 6) { return(notW); } // basering is commutative
+  matrix C = L[5];
+  matrix D = L[6];
+  matrix U = UpOneMatrix(N);
+  if (size(ideal(C-U)) <> 0) { return(notW); } // lt(xy)<>lt(yx)
+  ideal I = D;
+  if (size(I) <> n) { return(notW); } // not n entries<>0
+  I = simplify(I,4+2);
+  int sI = size(I);
+  if (sI > 2) { return(notW); }  // more than 2 distinct entries
+  for (i=1; i<=sI; i++)
+  {
+    if (I[i]<>1 && I[i]<>-1) { return (notW); } // other values apart from 1,-1
+  }
+  ideal Ro,Co;
+  for (i=1; i<=N; i++)
+  {
+    Ro = D[1..N,i];
+    Co = D[i,1..N];
+    if (size(Ro)>1 || size(Co)>1)
+    {
+      return(int(0)); // var(i) doesn't commute with more than 1 other vars
+    }
+  }
+  return(int(1)); // all tests passed: basering is Weyl algebra
+}
+example
+{
+  "EXAMPLE:"; echo = 2;
+  ring r = 0,(a,b,c,d),dp;
+  isWeyl();
+  def D = Weyl(1); setring D; //make from r a Weyl algebra
+  b*a;
+  isWeyl();
+  ring t = 0,(Dx,x,y,Dy),dp;
+  matrix M[4][4]; M[1,2]=-1; M[3,4]=1;
+  def T = nc_algebra(1,M); setring T;
+  isWeyl();
+}