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
 gitauthor:
 Oleksandr Motsak <motsak@mathematik.unikl.de>20120319 18:56:53+01:00
 gitcommitter:
 Oleksandr Motsak <motsak@mathematik.unikl.de>20120319 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.