Changeset 0f7ce1 in git for kernel/hdegree.cc

Timestamp:

Apr 26, 2005, 10:59:10 AM (19 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

dda2fd472582bc5fdf1e2052d1c46f9c9e7023d8

Parents:

5d00520a016f7e7089be25484b5cc41e3b897fd4

Message:

*hannes: scDegree prints...


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

File:

• kernel/hdegree.cc (modified) (2 diffs)

kernel/hdegree.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: hdegree.cc,v 1.3 2004-10-05 11:25:39 pohl Exp $ */
+/* $Id: hdegree.cc,v 1.4 2005-04-26 08:57:54 Singular Exp $ */
 /*
 *  ABSTRACT -  dimension, multiplicity, HC, kbase
@@ -807 +807 @@
 }
 
-int scDegree(ideal S, ideal Q)
-{
-  hDegree(S, Q);
-  int di = pVariables-hCo;
-  if (di!=0) return hMu;
-  else /*variety is empty or not projective*/ return 0;
+void scDegree(ideal S, intvec *modulweight, ideal Q)
+{
+  int co, mu, l;
+  intvec *hseries2;
+  intvec *hseries1 = hFirstSeries(S, modulweight, Q);
+  l = hseries1->length()-1;
+  if (l > 1)
+    hseries2 = hSecondSeries(hseries1);
+  else
+    hseries2 = hseries1;
+  hDegreeSeries(hseries1, hseries2, &co, &mu);
+  if ((l == 1) &&(mu == 0))
+    scPrintDegree(pVariables+1, 0);
+  else
+    scPrintDegree(co, mu);
+  if (l>1)
+    delete hseries1;
+  delete hseries2;
 }