Changeset 7f11e05 in tol

Timestamp:

Jan 9, 2012, 10:12:53 AM (15 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

acc9f1a

Parents:

612d116

Message:

Fixed bug in ConcatColumns and ConcatRows with empty matrices

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@3998 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/btol/matrix_type/matgra.cpp (modified) (6 diffs)

tol/btol/matrix_type/matgra.cpp

@@ -3193 +3193 @@
   BInt  i, j, k=0, l;
   BInt  numCol = 0;
-  BInt  numRow = Mat(Arg(1)).Rows();
+  BInt  numRow = 0;
   BInt  numMat = NumArgs();
   for(i=1; i<=numMat; i++)
@@ -3199 +3199 @@
     BMat& Mi = Mat(Arg(i));
     numCol+=Mi.Columns();
-    if(!numRow) { numRow=Mi.Rows(); }
+    if(numRow<Mi.Rows()) { numRow = Mi.Rows(); }
+  }
+  for(i=1; i<=numMat; i++)
+  {
+    BMat& Mi = Mat(Arg(i));
     if(Mi.Columns() && (Mi.Rows()!=numRow))
     {
@@ -3216 +3220 @@
   {
     DMat& Mi = dMat(Arg(i));
-    for(j=0; j < Mi.Columns(); j++, k++)
-    {
-      for(l=0; l < numRow; l++)
+    if(Mi.Columns() && (Mi.Rows()==numRow))
+    {
+      for(j=0; j < Mi.Columns(); j++, k++)
       {
-        b2dMat(contens_)(l,k)=Mi(l,j);
+        for(l=0; l < numRow; l++)
+        {
+          b2dMat(contens_)(l,k)=Mi(l,j);
+        }
       }
     }
@@ -3249 +3256 @@
 {
   BInt  i, j, k=0, l;
-  BInt  numCol = Mat(Arg(1)).Columns();
+  BInt  numCol = 0;
   BInt  numRow = 0;
   BInt  numMat = NumArgs();
@@ -3256 +3263 @@
     BMat& Mi = Mat(Arg(i));
     numRow+=Mi.Rows();
-    if(!numCol) { numRow=Mi.Columns(); }
+    if(numCol<Mi.Columns()) { numCol = Mi.Columns(); }
+  }
+  for(i=1; i<=numMat; i++)
+  {
+    BMat& Mi = Mat(Arg(i));
     if(Mi.Rows() && (Mi.Columns()!=numCol))
     {
@@ -3273 +3284 @@
   {
     DMat& Mi = dMat(Arg(i));
-    for(j=0; j < Mi.Rows(); j++, k++) 
-    {
-      for(l=0; l < numCol; l++) 
+    if(Mi.Rows() && (Mi.Columns()==numCol))
+    {
+      for(j=0; j < Mi.Rows(); j++, k++) 
       {
-       b2dMat(contens_)(k,l)=Mi(j,l); 
-      } 
+        for(l=0; l < numCol; l++) 
+        {
+          b2dMat(contens_)(k,l)=Mi(j,l); 
+        } 
+      }
     }
   }