Changeset cda3bf in git


Ignore:
Timestamp:
Dec 6, 2013, 11:15:40 AM (9 years ago)
Author:
Jakob Kroeker <kroeker@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '48f1dd268d0ff74ef2f7dccbf02545425002ddcc')
Children:
b960f1a8dce04288b07c183de8184dc249aa3dca
Parents:
54e01d660f6a2e9fa9ffd4f0b6e0d7ed9b5e68d9
Message:
fixed accidental option modifications in primdec.lib
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/LIB/primdec.lib

    r54e01d rcda3bf  
    709709    return(l);
    710710  }
     711  def op = option(get);
    711712  def P=basering;
    712713  int i,j,k,m,q,d,o;
    713   int n=nvars(basering);
     714  int n = nvars(basering);
    714715  ideal s,t,u,sact;
    715716  poly ni;
     
    769770        {
    770771          setring RL;
     772
    771773          option(redSB);
    772774          t=std(t);
     
    786788          keep1=keep1+rp;
    787789          option(noredSB);
     790
    788791        }
    789792        kill RL;
     
    803806  }
    804807  l=l+keep1;
     808  option(set,op)
    805809  return(l);
    806810}
     
    18981902   list @res,empty;
    18991903   ideal ser;
    1900    option(redSB);
     1904   def op = option( get );
     1905   option( redSB );
    19011906   list @pr=facstd(i);
    19021907   //if(size(@pr)==1)
     
    19231928//      }
    19241929//   }
    1925     option(noredSB);
     1930   // option( noredSB );
     1931   option( set, op );
    19261932   int j,k,odim,ndim,count;
    19271933   attrib(@pr[1],"isSB",1);
     
    20962102  }
    20972103
    2098   if(dim(i) == -1){setring P0;return(ideal(1));}
    2099   if((dim(i) == 0) && (npars(P) == 0))
     2104  if( dim(i) == -1 )
     2105  { 
     2106    option( set,op );
     2107    setring P0;
     2108    return( ideal(1) );
     2109  }
     2110  if( (dim(i) == 0 ) && ( npars(P) == 0) )
    21002111  {
    21012112    int di = vdim(i);
     
    25462557   int n=nvars(R);
    25472558
     2559   def op = option(get);
     2560
    25482561//---Anfang Provisorium
    25492562   if((size(i)==2) && (w==2))
    25502563   {
    2551       option(redSB);
    2552       ideal J=std(i);
    2553       option(noredSB);
    2554       if((size(J)==2)&&(deg(J[1])==1))
     2564      option( redSB );
     2565      ideal J = std(i);
     2566      option( noredSB );
     2567      if ((size(J)==2)&&(deg(J[1])==1))
    25552568      {
    25562569         ideal keep;
     
    25772590            resu[j]=L;
    25782591         }
     2592         option( set, op );
    25792593         return(resu);
    25802594      }
     
    26522666      re=convList(pr);
    26532667   }
    2654    return(re);
     2668   option( set, op );
     2669   return( re );
    26552670}
    26562671///////////////////////////////////////////////////////////////////////////////
     
    70097024      primary=resu;
    70107025    }
     7026    option(set,op);
    70117027    if (intersectOption == "intersect")
    70127028    {
Note: See TracChangeset for help on using the changeset viewer.