Changeset 8942a5 in git for Singular/LIB/matrix.lib

Timestamp:

Dec 22, 2000, 3:33:13 PM (23 years ago)

Author:

Gert-Martin Greuel <greuel@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

8bb77bfee92151ac9ed599c9d789653dc8a3570c

Parents:

803c5a17d620ffa41d14efaab791dcf17ad1f7a4

Message:

* GMG: Kosmetik


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

File:

• Singular/LIB/matrix.lib (modified) (2 diffs)

Singular/LIB/matrix.lib

@@ -1 @@
-// $Id: matrix.lib,v 1.14 2000-12-19 14:37:26 anne Exp $
 // GMG/BM, last modified: 8.10.98
 ///////////////////////////////////////////////////////////////////////////////
-
-version="$Id: matrix.lib,v 1.14 2000-12-19 14:37:26 anne Exp $";
+version="$Id: matrix.lib,v 1.15 2000-12-22 14:15:05 greuel Exp $";
 category="Linear Algebra";
 info="
-LIBRARY:  matrix.lib    PROCEDURES FOR MATRIX OPERATIONS
+LIBRARY:  matrix.lib    Elementary Matrix Operations
 
 PROCEDURES:
@@ -463 +461 @@
 {
    int i,j;
-   matrix C=B;
-   for( i=2; i<=nrows(A); i=i+1 ) { C=dsum(C,B); }
-   matrix D[nrows(C)][ncols(A)*nrows(B)];
-   for( j=1; j<=nrows(B); j=j+1 )
-   {
-      for( i=1; i<=nrows(A); i=i+1 )
-      {
-         D[(i-1)*nrows(B)+j,(j-1)*ncols(A)+1..j*ncols(A)]=A[i,1..ncols(A)];
-      }
-   }
-   return(concat(C,D));
+   matrix C,D;
+   for( i=1; i<=nrows(A); i++ ) 
+   { 
+     C = A[i,1]*B;
+     for( j=2; j<=ncols(A); j++ )
+     {
+       C = concat(C,A[i,j]*B);
+     }  
+     D = concat(D,transpose(C));
+   }
+   D = transpose(D);
+   return(submat(D,2..nrows(D),1..ncols(D)));
 }
 example