Changeset 69d99e in git


Ignore:
Timestamp:
May 20, 1998, 3:42:14 PM (26 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
Children:
d3716c0b0f03464f78fa19dc4dbb72c2bfc79cb9
Parents:
39d6b45f7817c4e903d19f930f30a29e0f49f8b3
Message:
* hannes: lres only for qring=NULL and homogeneous input


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

Legend:

Unmodified
Added
Removed
  • Singular/iparith.cc

    r39d6b4 r69d99e  
    16931693  intvec **weights=NULL;
    16941694  int wmaxl=maxl;
     1695  ideal u_id=(ideal)u->Data();
    16951696  maxl--;
    16961697  if ((maxl==-1) && (iiOp!=MRES_CMD))
     
    17001701    //if (BTEST1(28))
    17011702    //{
    1702     //  r=syMinRes((ideal)u->Data(),maxl,&l, iiOp==MRES_CMD);
     1703    //  r=syMinRes(u_id,maxl,&l, iiOp==MRES_CMD);
    17031704    //}
    17041705    //else
     
    17111712      //  l=1;
    17121713      //}
    1713       //r=syResolvente((ideal)u->Data(),maxl,&l, &weights, iiOp==MRES_CMD);
    1714       r=syResolution((ideal)u->Data(),maxl, iv, iiOp==MRES_CMD);
     1714      //r=syResolvente(u_id,maxl,&l, &weights, iiOp==MRES_CMD);
     1715      r=syResolution(u_id,maxl, iv, iiOp==MRES_CMD);
    17151716    }
    17161717  }
    17171718  else if (iiOp==SRES_CMD)
    1718   //  r=sySchreyerResolvente((ideal)u->Data(),maxl+1,&l);
    1719     r=sySchreyer((ideal)u->Data(),maxl+1);
     1719  //  r=sySchreyerResolvente(u_id,maxl+1,&l);
     1720    r=sySchreyer(u_id,maxl+1);
    17201721  else /* LRES */
    17211722  {
    17221723    int dummy;
    1723     r=syLaScala3((ideal)u->Data(),&dummy);
     1724    if((currQuotient!=NULL)||
     1725    (!idHomIdeal (u_id,NULL)))
     1726    {
     1727       WerrorS
     1728       ("`lres` can not be called in q ring or with inhomogeneous input");
     1729       return TRUE;
     1730    }
     1731    r=syLaScala3(u_id,&dummy);
    17241732  }
    17251733  if (r==NULL) return TRUE;
     
    27502758  procinfov pi = IDPROC((idhdl)v->data);
    27512759  if((pi->language == LANG_SINGULAR) && (pi->data.s.body!=NULL))
     2760  //if(pi->language == LANG_SINGULAR)
     2761  {
     2762    //if(pi->data.s.body==NULL)
     2763    //  iiGetLibProcBuffer(IDPROC((idhdl)v->data));
    27522764    res->data=mstrdup(pi->data.s.body);
     2765  }
    27532766  else
    27542767    res->data=mstrdup("");
Note: See TracChangeset for help on using the changeset viewer.