octave-lyh: liboctave/dMatrix.cc comparison

[project @ 2006-03-02 03:40:00 by jwe]

comparison

equal deleted inserted replaced

-:92f8b2723c8c
+:4b45b2bcda89
 octave_idx_type nr = rows ();
 octave_idx_type nc = cols ();
 if (nr == 0 || nc == 0)
 {
-double d[2];
+retval = DET (1.0, 0);
-d[0] = 1.0;
-d[1] = 0.0;
-retval = DET (d);
 }
 else
 {
 Array<octave_idx_type> ipvt (nr);
 octave_idx_type *pipvt = ipvt.fortran_vec ();
 		  info = -1;
 		  retval = DET ();
 		}
 	      else
 		{
-		  double d[2] = { 1., 0.};
+		  double c = 1.0;
-		  for (octave_idx_type i=0; i<nc; i++)
+		  int e = 0;
+		  for (octave_idx_type i = 0; i < nc; i++)
 		    {
-		      if (ipvt(i) != (i+1)) d[0] = -d[0];
+		      if (ipvt(i) != (i+1))
-		      d[0] *= atmp(i,i);
+			c = -c;
-		      if (d[0] == 0.) break;
-		      while (fabs(d[0]) < 1.)
+		      c *= atmp(i,i);
+		      if (c == 0.0)
+			break;
+		      while (fabs (c) < 0.5)
 			{
-			  d[0] = 10. * d[0];
+			  c *= 2.0;
-			  d[1] = d[1] - 1.0;
+			  e--;
 			}
-		      while (fabs(d[0]) >= 10.)
+		      while (fabs (c) >= 2.0)
 			{
-			  d[0] = 0.1 * d[0];
+			  c /= 2.0;
-			  d[1] = d[1] + 1.0;
+			  e++;
 			}
 		    }
-		  retval = DET (d);
+		  retval = DET (c, e);
 		}
 	    }
 	}
 }

Mercurial > hg > octave-lyh