Changeset f2ae935 in git
 Timestamp:
 Oct 17, 1997, 9:39:27 AM (27 years ago)
 Branches:
 (u'fiekerDuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c7af8613769b29c741d6c338945669719f1fc4f8')
 Children:
 5a0ed955131d7599eab21daa5501110dfa2661d6
 Parents:
 45911d49ef5783e6e1bdc04c7f687589d71288a8
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/LIB/standard.lib
r45911d rf2ae935 1 // $Id: standard.lib,v 1. 4 19970912 07:40:37 Singular Exp $1 // $Id: standard.lib,v 1.5 19971017 07:39:27 Singular Exp $ 2 2 /////////////////////////////////////////////////////////////////////////////// 3 3 … … 18 18 string os; 19 19 def dr= basering; 20 if( (size(#)==0) or (typeof(#[1]) != "string") ) 20 if( (size(#)==0) or (typeof(#[1]) != "string") ) 21 21 { 22 22 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) ) 24 24 { 25 25 os= "Dp"; 26 } 27 else 26 } 27 else 28 28 { 29 29 os= "dp"; … … 42 42 example 43 43 { "EXAMPLE:"; echo = 2; 44 ring r = 0,(x,y,z),lp; 44 ring r = 0,(x,y,z),lp; 45 45 ideal i = y3+x2, x2y+x2, x3x2, z4x2y; 46 46 ideal i1= stdfglm(i); //uses fglm from "dp" to "lp" 47 i1; 47 i1; 48 48 ideal i2= stdfglm(i,"Dp"); //uses fglm from "Dp" to "lp" 49 49 i2; … … 66 66 return(std(i,#[1])); 67 67 } 68 69 68 return(std(i)); 70 69 } 71 70 72 71 execute "ring S = ("+charstr(R)+"),("+varstr(R)+",@t),dp;"; 73 72 ideal i=homog(imap(R,i),@t); … … 89 88 { 90 89 a=ideal(1); 90 attrib(a,"isSB",1); 91 91 return(a); 92 92 } … … 103 103 } 104 104 } 105 return(simplify(a,2)); 105 a=simplify(a,2); 106 attrib(a,"isSB",1); 107 return(a); 106 108 } 107 109 example 108 110 { "EXAMPLE:"; echo = 2; 109 ring r = 0,(x,y,z),lp; 111 ring r = 0,(x,y,z),lp; 110 112 ideal i = y3+x2, x2y+x2, x3x2, z4x2y; 111 113 ideal i1= stdhilbert(i); i1;
Note: See TracChangeset
for help on using the changeset viewer.