Changeset 305057 in git for Singular/extra.cc

Timestamp:

Nov 27, 2010, 11:52:21 AM (13 years ago)

Author:

Martin Monerjan

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

Children:

97939e5ee5fff70c24cb3d9f9582523bf3efaf60

Parents:

43317d7c168dc7963686b32ca4150c8777e93843

Message:

grcone to compute a single cone. Needs wp ordering. Just a wrapper to call gfan in a special way. 
gfan has new third parameter which is by default FALSE
removed two cddlib frees in getConeNormals


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

File:

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

Singular/extra.cc

@@ -3610 +3610 @@
       ideal I=((ideal)h->Data());
       res->rtyp=LIST_CMD;
-      res->data=(lists) gfan(I,heuristic);
+      res->data=(lists) gfan(I,heuristic,FALSE);
       return FALSE;
     }
@@ -3619 +3619 @@
     }
   }
+  //Possibility to have only one Gröbner cone computed by specifying a weight vector FROM THE RELATIVE INTERIOR!
+  //Needs wp as ordering!
+  if(strcmp(sys_cmd,"grcone")==0)
+  {
+    if(h!=NULL && h->Typ()==IDEAL_CMD && h->next!=NULL && h->next->Typ()==INT_CMD)
+    {
+      ideal I=((ideal)h->Data());
+      res->rtyp=LIST_CMD;
+      res->data=(lists)grcone_by_intvec(I);
+    }
+  }
   else
+    
 #endif
 /*==================== Error =================*/