Changeset 51c3da4 in git for Singular/clapsing.cc


Ignore:
Timestamp:
Feb 9, 1998, 12:29:05 PM (26 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd08f5f0bb3329b8ca19f23b74cb1473686415c3a')
Children:
704d81e507ef654e17fd4125305326409c81f229
Parents:
e0953a6dff8708da44f4b629d82a76730534ed77
Message:
* hannes: added tests for coeff-filed GF(q), stubs for GF(q) conversion
  (clapconv.cc clapsing.cc clapconv.h)


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

Legend:

Unmodified
Added
Removed

  • Singular/clapsing.cc

    re0953a r51c3da4  
    33*  Computer Algebra System SINGULAR     *
    44****************************************/
    5 // $Id: clapsing.cc,v 1.22 1998-01-12 18:59:46 obachman Exp $
     5// $Id: clapsing.cc,v 1.23 1998-02-09 11:29:02 Singular Exp $
    66/*
    77* ABSTRACT: interface between Singular and factory
    … …  
    3333  // for now there is only the possibility to handle polynomials over
    3434  // Q and Fp ...
    35   if ( nGetChar() == 0 || nGetChar() > 1 )
     35  if (( nGetChar() == 0 || nGetChar() > 1 )
     36  && (currRing->parameter==NULL))
    3637  {
    3738    setCharacteristic( nGetChar() );
    … …  
    6061    Off(SW_RATIONAL);
    6162  }
     63  #if 0
     64  else if (( nGetChar()>1 )&&(currRing->parameter!=NULL)) /* GF(q) */
     65  {
     66    int p=rChar(currRing);
     67    int n=2;
     68    int t=p*p;
     69    while (t!=nChar) { t*=p;n++; }
     70    setCharacteristic(p,n,'a');
     71    CanonicalForm F( convSingGFClapGF( f ) ), G( convSingGFClapGF( g ) );
     72    res= convClapGFSingGF( gcd( F, G ) );
     73  }
     74  #endif
    6275  else
    6376    WerrorS( "not implemented" );
    … …  
    7992  // for now there is only the possibility to handle polynomials over
    8093  // Q and Fp ...
    81   if ( nGetChar() == 0 || nGetChar() > 1 )
     94  if (( nGetChar() == 0 || nGetChar() > 1 )
     95  && (currRing->parameter==NULL))
    8296  {
    8397    setCharacteristic( nGetChar() );
    … …  
    180194  poly res=NULL,pa=NULL,pb=NULL;
    181195  On(SW_SYMMETRIC_FF);
    182   if ( nGetChar() == 0 || nGetChar() > 1 )
     196  if (( nGetChar() == 0 || nGetChar() > 1 )
     197  && (currRing->parameter==NULL))
    183198  {
    184199    setCharacteristic( nGetChar() );
    … …  
    254269  poly res=NULL;
    255270  On(SW_RATIONAL);
    256   if ( nGetChar() == 0 || nGetChar() > 1 )
     271  if (( nGetChar() == 0 || nGetChar() > 1 )
     272  && (currRing->parameter==NULL))
    257273  {
    258274    setCharacteristic( nGetChar() );
    … …  
    293309  else  if ( nGetChar() < 0 )
    294310    setCharacteristic( -nGetChar() );
    295   else
     311  else if (currRing->parameter==NULL) /* not GF(q) */
    296312    setCharacteristic( nGetChar() );
     313  else
     314    return; /* not implemented*/
    297315  if ( f==NULL )
    298316  {
    … …  
    381399  number N=NULL;
    382400
    383   if ( (nGetChar() == 0) || (nGetChar() > 1) )
     401  if (( (nGetChar() == 0) || (nGetChar() > 1) )
     402  && (currRing->parameter==NULL))
    384403  {
    385404    setCharacteristic( nGetChar() );
    … …  
    542561  CFList L;
    543562  ListCFList LL;
    544   if ( (nGetChar() == 0) || (nGetChar() > 1) )
     563  if (((nGetChar() == 0) || (nGetChar() > 1) )
     564  && (currRing->parameter==NULL))
    545565  {
    546566    setCharacteristic( nGetChar() );
    … …  
    606626  On(SW_SYMMETRIC_FF);
    607627  CFList L;
    608   if ( (nGetChar() == 0) || (nGetChar() > 1) )
     628  if (((nGetChar() == 0) || (nGetChar() > 1) )
     629  && (currRing->paramyer==NULL))
    609630  {
    610631    setCharacteristic( nGetChar() );
    … …  
    669690  Off(SW_RATIONAL);
    670691  //  Q / Fp
    671   if ( (nGetChar() == 0) || (nGetChar() > 1) )
     692  if (((nGetChar() == 0) || (nGetChar() > 1) )
     693  &&(currRing->parameter==NULL))
    672694  {
    673695    setCharacteristic( nGetChar() );
    … …  
    714736  }
    715737  poly res=NULL;
    716   if ( nGetChar() == 0 || nGetChar() > 1 )
     738  if (( nGetChar() == 0 || nGetChar() > 1 )
     739  && (currRing->parameter==NULL))
    717740  {
    718741    setCharacteristic( nGetChar() );
Note: See TracChangeset for help on using the changeset viewer.