Changeset f2ae935 in git


Ignore:
Timestamp:
Oct 17, 1997, 9:39:27 AM (27 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c7af8613769b29c741d6c338945669719f1fc4f8')
Children:
5a0ed955131d7599eab21daa5501110dfa2661d6
Parents:
45911d49ef5783e6e1bdc04c7f687589d71288a8
Message:
* hannes: added attrib(result,"isSB,1) to result of stdhilbert
    (LIB/standard.lib)


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

Legend:

Unmodified
Added
Removed
  • Singular/LIB/standard.lib

    r45911d rf2ae935  
    1 // $Id: standard.lib,v 1.4 1997-09-12 07:40:37 Singular Exp $
     1// $Id: standard.lib,v 1.5 1997-10-17 07:39:27 Singular Exp $
    22///////////////////////////////////////////////////////////////////////////////
    33
     
    1818   string os;
    1919   def dr= basering;
    20    if( (size(#)==0) or (typeof(#[1]) != "string") ) 
     20   if( (size(#)==0) or (typeof(#[1]) != "string") )
    2121   {
    2222     os = "dp(" + string( nvars(dr) ) + ")";
    23      if ( (find( ordstr(dr), os ) != 0) and (find( ordstr(dr), "a") == 0) ) 
     23     if ( (find( ordstr(dr), os ) != 0) and (find( ordstr(dr), "a") == 0) )
    2424     {
    2525       os= "Dp";
    26      } 
    27      else 
     26     }
     27     else
    2828     {
    2929       os= "dp";
     
    4242example
    4343{ "EXAMPLE:"; echo = 2;
    44    ring r  = 0,(x,y,z),lp; 
     44   ring r  = 0,(x,y,z),lp;
    4545   ideal i = y3+x2, x2y+x2, x3-x2, z4-x2-y;
    4646   ideal i1= stdfglm(i);         //uses fglm from "dp" to "lp"
    47    i1;     
     47   i1;
    4848   ideal i2= stdfglm(i,"Dp");    //uses fglm from "Dp" to "lp"
    4949   i2;
     
    6666         return(std(i,#[1]));
    6767      }
    68 
    6968      return(std(i));
    7069   }
    71  
     70
    7271   execute "ring S = ("+charstr(R)+"),("+varstr(R)+",@t),dp;";
    7372   ideal i=homog(imap(R,i),@t);
     
    8988     {
    9089       a=ideal(1);
     90       attrib(a,"isSB",1);
    9191       return(a);
    9292     }
     
    103103     }
    104104   }
    105    return(simplify(a,2));   
     105   a=simplify(a,2);
     106   attrib(a,"isSB",1);
     107   return(a);
    106108}
    107109example
    108110{ "EXAMPLE:"; echo = 2;
    109    ring  r = 0,(x,y,z),lp; 
     111   ring  r = 0,(x,y,z),lp;
    110112   ideal i = y3+x2, x2y+x2, x3-x2, z4-x2-y;
    111113   ideal i1= stdhilbert(i); i1;
Note: See TracChangeset for help on using the changeset viewer.