Changeset 59e2a7 in git

Timestamp:

Nov 27, 2006, 2:29:59 PM (17 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

(u'spielwiese', '91fdef05f09f54b8d58d92a472e9c4a43aa4656f')

Children:

1eaa1dc3ce472107c471d84ea116e5ad1fede744

Parents:

c7f6279033649b3f5357156945676f32251e22fe

Message:

*levandov: added real Uso3 proc, some cleanup


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

File:

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

Singular/LIB/ncalg.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: ncalg.lib,v 1.21 2006-07-28 13:01:09 motsak Exp $";
+version="$Id: ncalg.lib,v 1.22 2006-11-27 13:29:59 levandov Exp $";
 category="Noncommutative";
 info="
@@ -352 +352 @@
 };
 
+
+
 ///////////////////////////////////////////////////////////////////////////////
 proc makeQso3(list #)
@@ -649 +651 @@
 ///////////////////////////////////////////////////////////////////////////////
 
+// need: real Uso3 in the symmetric presentation
+// is not isomorphic to Usl2 over R (but C)
+proc makeUso3(list #)
+"USAGE:   makeUso3([p]), p an optional int
+PURPOSE: set up the real U(so_3) algebra in the symmetric presentation; if p is specified, 
+RETURN:  ring
+NOTE:    activate this ring with the @code{setring} command
+SEE ALSO: makeUsl, makeUgl, makeUso5
+EXAMPLE: example makeUso3; shows examples
+"{
+  int @p = defInt(#);
+  ring @@@r=@p,(x,y,z),dp;
+  matrix D[3][3];
+  D[1,2]=-z;
+  D[1,3]=y;
+  D[2,3]=-x;
+  ncalgebra(1,D);
+  return(@@@r);
+}
+example
+{ "EXAMPLE:"; echo = 2;
+   def K = makeUso3(5);
+   setring K;
+   K;
+}
 
-
-
-
+///////////////////////////////////////////////////////////////////////////////