Changeset 78f84b8 in git for Singular/LIB
- Timestamp:
- Dec 6, 2010, 2:18:47 PM (13 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 62dc18e64e0afd2619c26b9da6ea6a56f9dfa2f5
- Parents:
- 77352a3db5f5906df3f03cc2f8772002814963fc
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/jacobson.lib
r77352a r78f84b8 787 787 } 788 788 789 //static 789 //static 790 790 proc triangle(matrix MA, int B) 791 791 { … … 888 888 p=0; 889 889 i=1; 890 while(STD_EX[j-1][i]==0){i++;} ;890 while(STD_EX[j-1][i]==0){i++;} 891 891 p=i-1; 892 892 nextp=1; … … 959 959 { 960 960 TrafoL=transpose(LT)*TrafoL; 961 962 963 964 965 966 961 dbprint(ppl-1,"Left transformation matrix:"); 962 dbprint(ppl-1,TrafoL); 963 @s = texobj("",matrix(TrafoL)); 964 dbprint(ppl-2,"Left transformation matrix in TeX format:"); 965 dbprint(ppl-2,@s); 966 } 967 967 else 968 968 { 969 969 TrafoR=TrafoR*involution(LT,inv); 970 971 972 973 974 970 dbprint(ppl-1,"Right transformation matrix:"); 971 dbprint(ppl-1,matrix(TrafoR)); 972 @s = texobj("",TrafoR); 973 dbprint(ppl-2,"Right transformation matrix in TeX format:"); 974 dbprint(ppl-2,@s); 975 975 } 976 976 … … 1159 1159 matrix m[2][3] = s,x^2*s,x^3*s,s*x^2,s*x+1,(x+1)^3; 1160 1160 matrix m[2][3] = s,x^2*s,x^3*s,s*x^2,s*x+1,(x+s)^2; // variation 1161 matrix m[2][4] = s,x^2*s,x^3*s,s*x^2,s*x+1,(x+1)^3, (x+s)^2, x*s; // bug (matrix sizes 1161 matrix m[2][4] = s,x^2*s,x^3*s,s*x^2,s*x+1,(x+1)^3, (x+s)^2, x*s; // bug (matrix sizes 1162 1162 matrix m[3][4] = s,x^2*s,x^3*s,s*x^2,s*x+1,(x+1)^3, (x+s)^2, x*s; // here the last row contains zeros 1163 1163
Note: See TracChangeset
for help on using the changeset viewer.