Changeset 0e4a9f in git

Timestamp:

Sep 12, 2011, 8:07:36 PM (12 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

8b1efb2b3e527671e8c39ab0f22861b67b0c18d5

Parents:

ae133ba91b95dd0c7bbb4be8f6c934e62042c013

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2011-09-12 20:07:36+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 16:12:45+01:00

Message:

ADD: simple test for polynomial multiplication

File:

• kernel/test.cc (modified) (3 diffs)

kernel/test.cc

@@ -212 +212 @@
   n[2]=omStrDup("z2");
 
-  ring R=rDefault(32003,3,n);
+  ring R = rDefault(32003,3,n); //  ring R = rDefault(0,3,n);
+
+  rWrite(R); PrintLn();
+
+#ifdef RDEBUG
+  rDebugPrint(R);
+#endif
+
+  
+  poly p = p_ISet(1,R); p_SetExp(p,1,1, R); p_Setm(p, R);
+
+  assume( p_GetExp(p,1, R) == 1 );
+  
+  poly pp = pp_Mult_qq( p, p, R);
+
+  Print("p: "); p_Write0(p, R);
+  Print("; p*p : "); p_Write(pp, R); 
+
+  p_Delete(&p, R);
+  
+  assume( p_GetExp(pp,1, R) == 2 );
+  
+  p_Delete(&pp, R);
+  
+  
+//  rDelete(R);
+   
   // make R the default ring:
   rChangeCurrRing(R);
-
+  
   // create the polynomial 1
   poly p1=pISet(1);
@@ -226 +252 @@
 
   // print p1 + p2
-  pWrite(p1); printf(" + \n"); pWrite(p2); printf("\n");
+  Print("p1: "); pWrite0(p1); 
+  Print(" + p2: "); pWrite0(p2); 
+  Print("  ---- >>>> ");
 
   // compute p1+p2
@@ -233 +261 @@
 
   // clean up:
-  pDelete(&p1);
-   
-  rDelete(R);
+//  pDelete(&p1);
+   
+  rDelete(R); // should cleanup every belonging polynomial, right!?