Changeset 5411c8 in git

Timestamp:

Apr 20, 2007, 2:27:17 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')

Children:

143c6c90f4919bdaebc7dac8c26d98ffa440c1c0

Parents:

c87dbd39df0e13c6045edaa62b08a33967d37a09

Message:

*hannes: optimizations


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

File:

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

Singular/LIB/matrix.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: matrix.lib,v 1.36 2006-12-11 14:22:46 Singular Exp $";
+version="$Id: matrix.lib,v 1.37 2007-04-20 12:27:17 Singular Exp $";
 category="Linear Algebra";
 info="
@@ -655 +655 @@
 "
 {
-   A[1..nrows(A),c2]=A[1..nrows(A),c2]+p*A[1..nrows(A),c1];
+   int k=nrows(A);
+   A[1..k,c2]=A[1..k,c2]+p*A[1..k,c1];
    return(A);
 }
@@ -673 +674 @@
 "
 {
-   A[r2,1..ncols(A)]=A[r2,1..ncols(A)]+p*A[r1,1..ncols(A)];
+   int k=ncols(A);
+   A[r2,1..k]=A[r2,1..k]+p*A[r1,1..k];
    return(A);
 }
@@ -691 +693 @@
 "
 {
-   A[1..nrows(A),c]=p*A[1..nrows(A),c];
+   int k=nrows(A);
+   A[1..k,c]=p*A[1..k,c];
    return(A);
 }
@@ -709 +712 @@
 "
 {
-   A[r,1..ncols(A)]=p*A[r,1..ncols(A)];
+   int k=ncols(A);
+   A[r,1..k]=p*A[r,1..k];
    return(A);
 }
@@ -728 +732 @@
 {
    matrix B=A;
-   B[1..nrows(B),c1]=A[1..nrows(A),c2];
-   B[1..nrows(B),c2]=A[1..nrows(A),c1];
+   int k=nrows(B);
+   B[1..k,c1]=A[1..k,c2];
+   B[1..k,c2]=A[1..k,c1];
    return(B);
 }
@@ -748 +753 @@
 {
    matrix B=A;
-   B[r1,1..ncols(B)]=A[r2,1..ncols(A)];
-   B[r2,1..ncols(B)]=A[r1,1..ncols(A)];
+   int k=ncols(B);
+   B[r1,1..k]=A[r2,1..k];
+   B[r2,1..k]=A[r1,1..k];
    return(B);
 }