Changeset 49c821 in git for Singular/LIB/poly.lib
- Timestamp:
- Dec 14, 2006, 9:47:33 AM (17 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 1f19f1a79d738c00245bdf06723d3105a365d31a
- Parents:
- ea9f7aa993e912904cb71ed1c8fd0b8b2252f26a
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/poly.lib
rea9f7aa r49c821 1 1 /////////////////////////////////////////////////////////////////////////////// 2 version="$Id: poly.lib,v 1.3 8 2006-07-20 14:51:56 Singular Exp $";2 version="$Id: poly.lib,v 1.39 2006-12-14 08:47:33 pfister Exp $"; 3 3 category="General purpose"; 4 4 info=" … … 674 674 degBound=0; 675 675 string mp=string(minpoly); 676 execute("ring R=("+charstr(br)+"),(x(1..n), z),dp;");676 execute("ring R=("+charstr(br)+"),(x(1..n),@z),dp;"); 677 677 execute("minpoly=number("+mp+");"); 678 678 ideal irrel=x(1..n); 679 679 map f=br,irrel; 680 680 poly p=f(g); 681 ideal J=f(I)+ideal(p* z-1);681 ideal J=f(I)+ideal(p*@z-1); 682 682 J=std(J); 683 683 degBound=dB; 684 684 if (J[1]==1) 685 { return(1); 685 { 686 setring br; 687 return(1); 686 688 } 687 689 else 688 { return(0); 690 { 691 setring br; 692 return(0); 689 693 } 690 694 }
Note: See TracChangeset
for help on using the changeset viewer.