Changeset 1628b14 in git

Timestamp:

Mar 24, 2011, 10:25:14 AM (12 years ago)

Author:

Frank Seelisch <seelisch@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

2ab830a563f54a42a41eb941f715cec3422755af

Parents:

a87b34163475a42f2c9e60652769c83ac2b67427

Message:

included outputs for time consumption

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

File:

• Singular/LIB/paraplanecurves.lib (modified) (11 diffs)

Singular/LIB/paraplanecurves.lib

@@ -759 +759 @@
 "
 {
+"#############################################";
+int totalTime = timer;
   poly dhf = subst(f,var(3),1);
   def Roriginal = basering;
@@ -780 +782 @@
   def QF = ring(rl);   // make var(1) transcendental
   list LIntB;
+int t = timer;
   if(DATA[1] <= 4)  // use normalization algorithm
     {
@@ -796 +799 @@
       setring Rdummy;
     }
+t = timer - t;
+"### adjointIdealIB, IB-time:", t, "msec";
   int i,j,k,l;
   ideal IB = LIntB[1];
@@ -809 +814 @@
   poly d = imap(Rdummy,d);
   M=1/d*M;
+t = timer;
   list LUM = ludecomp(M);
+t = timer - t;
+"### adjointIdealIB, time for 1st ludecomp:", t, "msec";
   list LS;
   matrix dummyvector[sL][1];
@@ -818 +826 @@
   list Iij, empty;
   matrix Gij[sL][sL];
+t = timer;
   for(i = 1; i <= sL; i++)
      {
@@ -848 +857 @@
           }
      }
+t = timer - t;
+"### adjointIdealIB, time for linear solving:", t, "msec";
+t = timer;
   LUM = ludecomp(Tr);
+t = timer - t;
+"### adjointIdealIB, time for 2nd ludecomp:", t, "msec";
   setring Rred;
   poly d2f = imap(Rdummy,d2f);
@@ -860 +874 @@
   setring Roriginal;
   ideal AI = imap(QF,LL);
+totalTime = timer - totalTime;
+"### adjointIdealIB, total time:", totalTime, "msec";
   return(AI);
 }
@@ -866 +882 @@
 static proc adjointIdealIQ(poly f, list choices)
 {
+"#############################################";
+int totalTime = timer;
   poly dhf = subst(f,var(3),1);
   def Roriginal = basering;
@@ -894 +912 @@
     }
 t = timer - t;
-"#############################################";
-"### IB-time:", t, "msec";
+"### adjointIdealIQ, IB-time:", t, "msec";
   int i,j,k,l;
   ideal IB = LIntB[1];
@@ -904 +921 @@
   ideal AI = quotient(fd, IBf);
 t = timer - t;
-"### quot-time:", t, "msec";
+"### adjointIdealIQ, quot-time:", t, "msec";
 //"#### IB:"; IB;
 //"#### d:", d;
@@ -910 +927 @@
   ideal AI = imap(Rdummy,AI);
 //"#### AI:"; AI;
+totalTime = timer - totalTime;
+"### adjointIdealIQ, total time:", totalTime, "msec";
   return(AI);
 }