Changeset 1f5d21d in git

Timestamp:

Apr 21, 1998, 3:20:39 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

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

Children:

8e16a6c3a121910925a67405d4a6e125dcd30b6b

Parents:

559a4bf0a3b03fde23553e3ceb0d6c6ff9e2d4e3

Message:

* hannes/jens: gcd in Q(a) retuns "not impl."


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

Location:

Singular

Files:

• ChangeLog (modified) (1 diff)
• clapsing.cc (modified) (2 diffs)

Singular/ChangeLog

@@ +1 @@
+Tue Apr 21 15:19:10 MET DST 1998 hannes/jens
+  * gdc in Q(a) returns "not implemented" (clapsing.cc)
+  
+
 Fri Apr 17 09:53:53 MET DST 1998 hannes
  * fixed a minor but very nasty bug: nlSetMap was resetting npPrimeM

Singular/clapsing.cc

@@ -3 +3 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-// $Id: clapsing.cc,v 1.29 1998-04-21 10:42:57 schmidt Exp $
+// $Id: clapsing.cc,v 1.30 1998-04-21 13:20:39 Singular Exp $
 /*
 * ABSTRACT: interface between Singular and factory
@@ -77 +77 @@
     if (currRing->minpoly!=NULL)
     {
-      CanonicalForm mipo=convSingTrClapP(((lnumber)currRing->minpoly)->z);
-      Variable a=rootOf(mipo);
-      CanonicalForm F( convSingAPClapAP( f,a ) ), G( convSingAPClapAP( g,a ) );
-      res= convClapAPSingAP( gcd( F, G ) );
+      if ( nGetChar()==1 ) /* Q(a) */
+      {
+        WerrorS( feNotImplemented );
+      }
+      else
+      {
+        CanonicalForm mipo=convSingTrClapP(((lnumber)currRing->minpoly)->z);
+        Variable a=rootOf(mipo);
+        CanonicalForm F( convSingAPClapAP( f,a ) ), G( convSingAPClapAP( g,a ) );
+        res= convClapAPSingAP( gcd( F, G ) );
+      } 
     }
     else