Changeset cae897 in git
- Timestamp:
- Jan 3, 2015, 10:19:12 PM (9 years ago)
- Branches:
- (u'spielwiese', 'd0474371d8c5d8068ab70bfb42719c97936b18a6')
- Children:
- dc65b8cd8fc40a278fe3f1463560c2c62b6b2cdc
- Parents:
- ad5536d65338f14dae4af1add021d4039842fe8b
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/primdec.lib
rad5536d rcae897 1897 1897 { 1898 1898 if (typeof(rl[1])=="list") 1899 list rl1=rl[1]; 1900 list rl2=rl[2]; 1901 rl1[1]=list(rl1[1][1], 1902 rl[1][2]+list(rl2[nnp+1..nvars(basering)]), 1903 list(list("lp",1:(size(rl[1][2])+nvars(basering)-nnp))), 1904 ideal(0)); 1905 rl[1]=rl1; 1906 rl[2]=list(rl2[1..nnp]); 1907 rl[3]=list(list(order,1:nnp),list("C",0)); 1908 } 1899 { 1900 list rl1=rl[1]; 1901 list rl2=rl[2]; 1902 rl1[1]=list(rl1[1][1], 1903 rl[1][2]+list(rl2[nnp+1..nvars(basering)]), 1904 list(list("lp",1:(size(rl[1][2])+nvars(basering)-nnp))), 1905 ideal(0)); 1906 rl[1]=rl1; 1907 rl[2]=list(rl2[1..nnp]); 1908 rl[3]=list(list(order,1:nnp),list("C",0)); 1909 } 1910 else 1911 { 1912 ERROR("Unexpected case in prepareQuotientring. Please inform the authors"); 1913 } 1914 } 1915 1909 1916 def quotring=ring(rl); 1910 1917 return(quotring);
Note: See TracChangeset
for help on using the changeset viewer.