Changeset ee17bf in git for Singular/LIB/lejeune.lib


Ignore:
Timestamp:
Jun 24, 2005, 11:25:08 AM (19 years ago)
Author:
Nadine Cremer <cremer@…>
Branches:
(u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
Children:
565d9bfb8ae0ed9b2b9a7f1bfbcdf9ef01f163a8
Parents:
d4cf20d0bbfa138f5d9a3a6458142a06af15604e
Message:
*cremer: still trying to save...


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

Legend:

Unmodified
Added
Removed
  • Singular/LIB/lejeune.lib

    rd4cf20 ree17bf  
    11
    22//-*- mode:C++;-*-
    3 // $Id: lejeune.lib,v 1.8 2005-06-24 08:45:04 cremer Exp $
     3// $Id: lejeune.lib,v 1.9 2005-06-24 09:25:08 cremer Exp $
    44
    55
     
    4747      }
    4848    }
    49   def r=basering;                     // need that in iteratio                 
    50   for(p=b-1;p>1;p--)                   // iterating steps
    51     {   
    52       def tmp=f_set(f,intvec(H[1..p]));       
    53       //setring tmp;
     49  def r=basering;
     50   for(p=b-1;p>1;p--)                   // iterating steps
     51    {
     52      if(p==2)
     53        {   
     54          def tmp=f_set(f,intvec(H[1..p]));
     55          setring tmp;
     56          def tmp1=resultf_set;
     57          export(tmp1);
    5458      //def tmp1=resultf_set;
    55       //setring r;    
    56     }
     59      //setring r;
     60    } 
    5761  def R=formaldiff(f,b-1,c,H[b]);      // actual step
    5862  setring R;
    5963  def T=resultdiff;
    60   ideal resultf_set=T;
    61   export(resultf_set);
     64  ideal resultf_set;
     65  //if(b==2)
     66  //  {
     67  //    ideal resultf_set;
     68  //    resultf_set=T;
     69  //    export(resultf_set);
     70  //  }
     71  //else
     72  //  { ideal resultf_set=imap(tmp,tmp1);
     73  //    resultf_set=resultf_set,T;
     74  //    export(resultf_set);
     75  //  }
     76 
    6277  resultf_set;
    63   return(R);
     78  return(R);   
    6479}
    6580
Note: See TracChangeset for help on using the changeset viewer.