Changeset fcdc4e in git
- Timestamp:
- Mar 18, 2004, 10:36:09 PM (20 years ago)
- Branches:
- (u'spielwiese', 'e7cc1ebecb61be8b9ca6c18016352af89940b21a')
- Children:
- b3082aecde5b2bf7ac5652c2bd96123ae61d04a9
- Parents:
- 972862b70bd04676f798402908397895dad57a38
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/qmatrix.lib
r972862 rfcdc4e 1 1 /////////////////////////////////////////////////////////////////////////////// 2 version="$Id: qmatrix.lib,v 1. 1 2004-03-18 20:40:22levandov Exp $";2 version="$Id: qmatrix.lib,v 1.2 2004-03-18 21:36:09 levandov Exp $"; 3 3 category="Noncommutative"; 4 4 info=" 5 LIBRARY: qmatrix.lib Definition of quantum matrix ring and quantum minors.5 LIBRARY: qmatrix.lib Quantum matrices, quantum minors and symmetric groups. 6 6 AUTHORS: Lobillo, F.J., email: jlobillo@ugr.es 7 7 Rabelo, C., email: crabelo@ugr.es … … 10 10 11 11 MAIN PROCEDURES: 12 quant(n ); generates the quantum matrix ring of order n13 qminor(u, v,nr); calculate a quantum minor of a quantum matrix12 quant(n, [p]); generates the quantum matrix ring of order n, the quantum parameter q will be specified at the p-th root of unity 13 qminor(u, v, nr); calculate a quantum minor of a quantum matrix 14 14 15 15 AUXILIARY PROCEDURES: … … 18 18 LengthSym(M); calculates the length of each element of M, being M a subset of S(n) 19 19 "; 20 21 LIB "nctools.lib"; 20 22 21 23 /////////////////////////////////////////////////////////////////////////////// … … 129 131 proc quant(int n, list #) 130 132 "USAGE: quant(n, [p]); n integer, n>1, p (optional) integer 131 RETURN: a ring, describing the quantum matrix ring of order n; if p is specified, the quantum parameter will be specialized at p-th root of unity133 RETURN: a ring, describing the quantum matrix ring of order n; if p is specified, the quantum parameter q will be specialized at p-th root of unity 132 134 NOTE: You have to activate this ring with the "setring" command. 133 135 The usual representation of the variables in this quantum … … 147 149 } 148 150 ring @rrr=(0,q),(y(1..nv)),Dp; 149 if (size(#)>0) // check whether we are at special q151 if (size(#)>0) 150 152 { 151 153 if ( typeof( #[1] ) == "int" ) … … 154 156 if (chr>1) 155 157 { 156 LIB "nctools.lib";157 158 minpoly = RooOfUnity(chr); 158 159 } … … 216 217 proc qminor(intvec I, intvec J, int nr) 217 218 "USAGE: qminor(I,J,nr); I is the ORDERED LIST of the rows to consider 218 in the minor, J is the ORDERED LIST of the cols to consider in the minor 219 and nr is the order of the quantum matrix algebra where you are working (quant(nr)). 219 in the minor, J is the ORDERED LIST of the cols to consider in the minor and nr is the order of the quantum matrix algebra where you are working (quant(nr)). 220 220 RETURN: poly, the quantum minor. 221 221 NOTE: I and J must have the same number of elements.
Note: See TracChangeset
for help on using the changeset viewer.