Changeset 6f84e21 in git for Singular/LIB/multigrading.lib
- Timestamp:
- Mar 19, 2012, 6:56:53 PM (12 years ago)
- Branches:
- (u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
- Children:
- 1090a989f7d101fde20b92a6a0a5544ba05b8f9b
- Parents:
- 6725bc35b7238be24cfd7a910c9493d9a59d5a91
- git-author:
- Oleksandr Motsak <motsak@mathematik.uni-kl.de>2012-03-19 18:56:53+01:00
- git-committer:
- Oleksandr Motsak <motsak@mathematik.uni-kl.de>2012-03-19 19:03:54+01:00
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/multigrading.lib
r6725bc3 r6f84e21 3828 3828 // this uniqueness if switching to this torsion ring. 3829 3829 3830 poly monom, summand, numerator;3831 poly denominator = 1;3830 poly monom, summand, @numerator; 3831 poly @denominator = 1; 3832 3832 3833 3833 for( i = 1; i <= cc; i++) … … 3853 3853 } 3854 3854 3855 denominator =denominator * (1 - monom);3855 @denominator = @denominator * (1 - monom); 3856 3856 } 3857 3857 … … 3878 3878 summand = summand + monom; 3879 3879 } 3880 numerator =numerator - (-1)^j * summand;3881 } 3882 3883 if( denominator == 0 )3880 @numerator = @numerator - (-1)^j * summand; 3881 } 3882 3883 if( @denominator == 0 ) 3884 3884 { 3885 3885 ERROR("Multigrading not positive."); 3886 3886 } 3887 3887 3888 poly denominator1 = denominator;3889 poly numerator1 = numerator;3888 poly denominator1 = @denominator; 3889 poly numerator1 = @numerator; 3890 3890 3891 3891 export denominator1; … … 3894 3894 if( numerator != 0 ) 3895 3895 { 3896 poly d = gcd( denominator,numerator);3897 3898 poly denominator2 = denominator/d;3899 poly numerator2 = numerator/d;3896 poly d = gcd(@denominator, @numerator); 3897 3898 poly denominator2 = @denominator/d; 3899 poly numerator2 = @numerator/d; 3900 3900 3901 3901 if( gcd(denominator2, numerator2) != 1 ) … … 3906 3906 else 3907 3907 { 3908 poly denominator2 = denominator;3909 poly numerator2 = numerator;3908 poly denominator2 = @denominator; 3909 poly numerator2 = @numerator; 3910 3910 } 3911 3911
Note: See TracChangeset
for help on using the changeset viewer.