Changeset 82716e in git for Singular/LIB/poly.lib
- Timestamp:
- May 14, 1998, 8:45:19 PM (26 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 68e324ca946be87c2ab75edd4cc0fd161e1f6ead
- Parents:
- 30c91fe3835d6ff4504cc9ddeeb5866465754c2a
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/poly.lib
r30c91f r82716e 1 // $Id: poly.lib,v 1.1 2 1998-05-05 11:55:33 krueger Exp $1 // $Id: poly.lib,v 1.13 1998-05-14 18:45:11 Singular Exp $ 2 2 //system("random",787422842); 3 3 //(GMG, last modified 22.06.96) … … 5 5 /////////////////////////////////////////////////////////////////////////////// 6 6 7 version="$Id: poly.lib,v 1.1 2 1998-05-05 11:55:33 krueger Exp $";7 version="$Id: poly.lib,v 1.13 1998-05-14 18:45:11 Singular Exp $"; 8 8 info=" 9 9 LIBRARY: poly.lib PROCEDURES FOR MANIPULATING POLYS, IDEALS, MODULES 10 10 11 11 cyclic(int); ideal of cyclic n-roots 12 katsura([i]); 12 katsura([i]); katsura [i] ideal 13 13 freerank(poly/...) rank of coker(input) if coker is free else -1 14 14 is_homog(poly/...); int, =1 resp. =0 if input is homogeneous resp. not … … 59 59 60 60 proc katsura 61 "USAGE: 61 "USAGE: katsura([n]); n integer 62 62 RETURN: katsura(n) : n-th katsura ideal of newly created and set ring 63 63 (32003, x(0..n), dp) 64 katsura() : katsura ideal of basering 64 katsura() : katsura ideal of basering 65 65 EXAMPLE: example katsura; shows examples 66 66 " … … 75 75 int n = nvars(basering) -1; 76 76 poly p; 77 77 78 78 p = -1; 79 79 for (i = -n; i <= n; i++) … … 82 82 } 83 83 s[1] = p; 84 84 85 85 for (i = 0; i < n; i++) 86 86 { … … 596 596 "USAGE: lcm(i); i ideal 597 597 RETURN: poly = lcm(i[1],...,i[size(i)]) 598 NOTE: 598 NOTE: 599 599 EXAMPLE: example lcm; shows an example 600 600 " … … 656 656 { 657 657 return(leadcoef(f)/leadcoef(cleardenom(f))); 658 } 658 } 659 659 example 660 660 { "EXAMPLE:"; echo = 2;
Note: See TracChangeset
for help on using the changeset viewer.