Changeset a38f5ea in git


Ignore:
Timestamp:
Mar 27, 1998, 4:43:29 PM (25 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')
Children:
df3f4f16f3d0aaeb2f08170f8cae81b5d5c395b5
Parents:
0498af627b4dbd25f3b68c7b681256ffe9cfdda5
Message:
	* configure.in (VERSION_DATE): Passed universal tst test:Increased
	version to 1.1.8 (i.e. version which has COMP_FAST built in, by
	default).

	* longalg.cc (naDBTest): fixed lines for number tests


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

Legend:

Unmodified
Added
Removed

  • Singular/ChangeLog

    r0498af ra38f5ea  
     11998-03-27  Olaf Bachmann  <obachman@mathematik.uni-kl.de>
     2
     3        * longalg.cc (naDBTest): fixed lines for number tests
     4
     5        * added spSpolyLoop.inc to repository
     6
     7        * algmap.cc (maAlgpolyMap): fixed bug which changed preimage
     8
    191998-03-23  Olaf Bachmann  <obachman@mathematik.uni-kl.de>
    210

  • Singular/algmap.cc

    r0498af ra38f5ea  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: algmap.cc,v 1.9 1998-03-27 14:44:23 obachman Exp $ */
     4/* $Id: algmap.cc,v 1.10 1998-03-27 15:43:17 obachman Exp $ */
    55/*
    66* ABSTRACT - the mapping of polynomials from rings with
    … …  
    197197}
    198198
    199 static poly maLongalgMap(poly res, poly p0, int s, int t,
     199static poly maLongalgMap(poly res, ring r, poly p0, int s, int t,
    200200                         BOOLEAN *nom, poly monpart, ideal F)
    201201{
    … …  
    205205  int i;
    206206 
    207   pTest(monpart);
    208207  if (s == 0)
    209208  {
    … …  
    222221      pMultN(monpart,pGetCoeff(p0));
    223222    }
    224     pSetCompP(monpart, pGetComp(p0));
     223    pSetCompP(monpart, pRingGetComp(r, p0));
    225224    return pAdd(res, monpart);
    226225  }
    … …  
    262261        }
    263262      }
    264       pTest(q);
    265263    }
    266264    q1 = pAdd(q1, q);
    267     pTest(q1);
    268265    a0 = napNext(a0);
    269266  }
    270267  while (a0 != NULL);
    271268  q1 = pMult(q1,monpart);
    272   pTest(q1);
    273   pSetCompP(q1,pGetComp(p0));
    274   pTest(q1);
     269  pSetCompP(q1,pRingGetComp(r, p0));
    275270  return pAdd(res, q1);
    276271}
    … …  
    319314    p0->next=NULL;
    320315    monpart = maEval((map)G, p0, R);
    321     result = maLongalgMap(result, p0, s, t, &nom, monpart, F);
     316    result = maLongalgMap(result, R, p0, s, t, &nom, monpart, F);
    322317    pTest(result);
    323318    if (nom)
    … …  
    328323    p0=pr;
    329324  }
    330   pTest(result);
    331325  return result;
    332326}

  • Singular/configure

    r0498af ra38f5ea  
    540540SINGULAR_MAJOR_VERSION=1
    541541SINGULAR_MINOR_VERSION=1
    542 SINGULAR_SUB_VERSION=7
    543 VERSION_DATE="March 1998"
     542SINGULAR_SUB_VERSION=8
     543VERSION_DATE="April 1998"
    544544
    545545

  • Singular/configure.in

    r0498af ra38f5ea  
    88SINGULAR_MAJOR_VERSION=1
    99SINGULAR_MINOR_VERSION=1
    10 SINGULAR_SUB_VERSION=7
    11 VERSION_DATE="March 1998"
     10SINGULAR_SUB_VERSION=8
     11VERSION_DATE="April 1998"
    1212AC_SUBST(SINGULAR_MAJOR_VERSION)
    1313AC_SUBST(SINGULAR_MINOR_VERSION)

  • Singular/extra.cc

    r0498af ra38f5ea  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: extra.cc,v 1.30 1998-03-27 14:44:24 obachman Exp $ */
     4/* $Id: extra.cc,v 1.31 1998-03-27 15:43:27 obachman Exp $ */
    55/*
    66* ABSTRACT: general interface to internals of Singular ("system" command)
    … …  
    483483      {
    484484        i1->m[k] = maAlgpolyMap(r0, i0->m[k], i, j);
    485         pTest(i1->m[k]);
    486485      }
    487486      res->rtyp = IDEAL_CMD;

  • Singular/longalg.cc

    r0498af ra38f5ea  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: longalg.cc,v 1.19 1998-02-17 15:06:40 obachman Exp $ */
     4/* $Id: longalg.cc,v 1.20 1998-03-27 15:43:28 obachman Exp $ */
    55/*
    66* ABSTRACT:   algebraic numbers
    … …  
    24732473    //  return FALSE;
    24742474    //}
    2475     if (naIsChar0 && nlDBTest(p->ko,f,l))
     2475    if (naIsChar0 && !(nlDBTest(p->ko,f,l)))
    24762476      return FALSE;
    24772477#ifdef MDEBUG
    … …  
    24832483  while(p!=NULL)
    24842484  {
    2485     if (naIsChar0 && nlDBTest(p->ko,f,l))
     2485    if (naIsChar0 && !(nlDBTest(p->ko,f,l)))
    24862486      return FALSE;
    24872487#ifdef MDEBUG

  • Singular/polys-impl.cc

    r0498af ra38f5ea  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: polys-impl.cc,v 1.13 1998-03-27 14:44:26 obachman Exp $ */
     4/* $Id: polys-impl.cc,v 1.14 1998-03-27 15:43:29 obachman Exp $ */
    55
    66/***************************************************************
    … …  
    665665      return FALSE;
    666666#endif
    667     if (pGetComp(p) > 10)
    668     {
    669       Print("Component > 10 in poly in %s: %d\n", f,l);
    670     }
    671667#ifdef LDEBUG
    672668    if (!nDBTest(p->coef,f,l))
    673        return FALSE;
     669      return FALSE;
    674670#endif
    675671    if ((p->coef==NULL)&&(nGetChar()<2))

  • configure

    r0498af ra38f5ea  
    561561SINGULAR_MAJOR_VERSION=1
    562562SINGULAR_MINOR_VERSION=1
    563 SINGULAR_SUB_VERSION=5
    564 VERSION_DATE="December 1997"
     563SINGULAR_SUB_VERSION=8
     564VERSION_DATE="April 1998"
    565565
    566566

  • configure.in

    r0498af ra38f5ea  
    88SINGULAR_MAJOR_VERSION=1
    99SINGULAR_MINOR_VERSION=1
    10 SINGULAR_SUB_VERSION=5
    11 VERSION_DATE="December 1997"
     10SINGULAR_SUB_VERSION=8
     11VERSION_DATE="April 1998"
    1212AC_SUBST(SINGULAR_MAJOR_VERSION)
    1313AC_SUBST(SINGULAR_MINOR_VERSION)
Note: See TracChangeset for help on using the changeset viewer.