Changeset a5b215 in git

Timestamp:

Jan 19, 2002, 11:15:06 AM (22 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

bdafd27e3f8a34411bd9de93a6d81c235a0458ea

Parents:

80e295d6bdce8c8e1d59946a487bcf589264bd87

Message:

*hannes: Eval into fast_eval.cc


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

File:

• Singular/fast_maps.cc (modified) (2 diffs)

Singular/fast_maps.cc

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 02/01
- *  Version: $Id: fast_maps.cc,v 1.3 2002-01-19 09:54:51 Singular Exp $
+ *  Version: $Id: fast_maps.cc,v 1.4 2002-01-19 10:15:06 Singular Exp $
  *******************************************************************/
 #include "mod2.h"
@@ -468 +468 @@
 #endif
 
-/*****************************************************************
-* evaluate all monomial in the mapoly list,
-* put the results also into the corresponding sBuckets
-******************************************************************/
-
-void mapolyEval(mapoly root)
-{
-  // invert the list rooted at root:
-  if ((root!=NULL) && (root->next!=NULL))
-  {
-    mapoly q=root->next;
-    mapoly qn;
-    root->next=NULL;
-    do
-    {
-      qn=q->next;
-      q->next=root;
-      root=q;
-    }
-    while (qn !=NULL);
-  }
-
-  mapoly p=root;
-  while (p!=NULL)
-  {
-     // look at each mapoly: compute its value in ->dest
-     if (p->dest==NULL)
-     {
-       if (p->factors==0) p->dest=pOne();
-       else if (p->factors==2)
-       {
-         poly f1=p->f1->dest;
-         p->f1->ref--;
-         poly f2=p->f2->dest;
-         p->f2->ref--;
-         if (p->f1->ref>0) f1=pCopy(f1);
-         else
-         {
-           // clear p->f1
-           p->f1->dest=NULL;
-         }
-         if (p->f2->ref>0) f2=pCopy(f2);
-         else
-         {
-           // clear p->f2
-           p->f2->dest=NULL;
-         }
-         p->dest=pMult(f1,f2);
-      // substitute the monomial: go through macoeff
-         int len=pLength(p->dest);
-         macoeff c=p->coeff;
-         macoeff cc;
-         while (c!=NULL)
-         {
-           poly t=ppMult_nn(p->dest,c->n);
-           sBucket_Add_p(c->bucket, t, len);
-           cc=c;
-           c=c->next;
-           // clean up
-           nDelete(&(cc->n));
-           omFreeBin(cc,macoeffBin);
-         }
-         p->coeff=NULL;
-       } /* p->factors==2 */
-     } /* p->dest==NULL */
-     p=p->next;
-   }
-}
+