Changeset 1e3205 in git for Singular/clapsing.cc


Ignore:
Timestamp:
Apr 15, 1998, 6:15:01 PM (26 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')
Children:
0f678f9af2ce804297ea85555d74aeef2879cded
Parents:
8677912280afed4016cd16f860024d5d2390f1e7
Message:
* hannes/schmidt: bug fixes to gcd and resultant (clapsing.cc)


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

Legend:

Unmodified
Added
Removed

  • Singular/clapsing.cc

    r8677912 r1e3205  
    33*  Computer Algebra System SINGULAR     *
    44****************************************/
    5 // $Id: clapsing.cc,v 1.26 1998-03-31 09:00:43 Singular Exp $
     5// $Id: clapsing.cc,v 1.27 1998-04-15 16:15:01 Singular Exp $
    66/*
    77* ABSTRACT: interface between Singular and factory
    … …  
    2626poly singclap_gcd ( poly f, poly g )
    2727{
    28   if ((f==NULL)||(g==NULL))
    29     return pOne();
     28  if (f==NULL)
     29  {
     30    if(g==NULL)
     31      return NULL;
     32    else
     33      return pCopy(g);
     34  }
     35  else if (g==NULL)
     36    return pCopy(f);
    3037
    3138  poly res=NULL;
    … …  
    7784  #endif
    7885  else
    79     WerrorS( "not implemented" );
     86    WerrorS( feNotImplemented );
    8087
    8188  pDelete(&f);
    … …  
    9299    return NULL;
    93100  }
    94   Variable X(i);
    95101  // for now there is only the possibility to handle polynomials over
    96102  // Q and Fp ...
    … …  
    98104  && (currRing->parameter==NULL))
    99105  {
     106    Variable X(i);
    100107    setCharacteristic( nGetChar() );
    101108    CanonicalForm F( convSingPClapP( f ) ), G( convSingPClapP( g ) );
    … …  
    113120    if (currRing->minpoly!=NULL)
    114121    {
     122      Variable X(i);
    115123      CanonicalForm mipo=convSingTrClapP(((lnumber)currRing->minpoly)->z);
    116124      Variable a=rootOf(mipo);
    … …  
    120128    else
    121129    {
     130      Variable X(i+rPar(currRing));
    122131      CanonicalForm F( convSingTrPClapP( f ) ), G( convSingTrPClapP( g ) );
    123132      res= convClapPSingTrP( resultant( F, G, X ) );
    … …  
    127136  }
    128137  else
    129     WerrorS( "not implemented" );
     138    WerrorS( feNotImplemented );
    130139  return NULL;
    131140}
    … …  
    252261  else
    253262  {
    254     WerrorS( "not implemented" );
     263    WerrorS( feNotImplemented );
    255264    return NULL;
    256265  }
    … …  
    299308  }
    300309  else
    301     WerrorS( "not implemented" );
     310    WerrorS( feNotImplemented );
    302311  Off(SW_RATIONAL);
    303312  return res;
    … …  
    445454      //if (nGetChar()==1)
    446455      //{
    447       //  WerrorS("not implemented");
     456      //  WerrorS( feNotImplemented );
    448457      //  return NULL;
    449458      //}
    … …  
    472481  else
    473482  {
    474     WerrorS( "not implemented" );
     483    WerrorS( feNotImplemented );
    475484    goto end;
    476485  }
    … …  
    586595  else
    587596  {
    588     WerrorS("not implemented");
     597    WerrorS( feNotImplemented );
    589598    return res;
    590599  }
    … …  
    651660  else
    652661  {
    653     WerrorS("not implemented");
     662    WerrorS( feNotImplemented );
    654663    return NULL;
    655664  }
    … …  
    725734  {
    726735err:
    727     WerrorS( "not implemented" );
     736    WerrorS( feNotImplemented );
    728737  }
    729738  return b;
    … …  
    790799  }
    791800  else
    792     WerrorS( "not implemented" );
     801    WerrorS( feNotImplemented );
    793802  Off(SW_RATIONAL);
    794803  return res;
    … …  
    880889{
    881890  res->data=singclap_resultant((poly)u->Data(),(poly)v->Data(), (poly)w->Data());
    882   return (res->data==NULL);
     891  return errorreported;
    883892}
    884893BOOLEAN jjCHARSERIES(leftv res, leftv u)
Note: See TracChangeset for help on using the changeset viewer.