Changeset 1f190d7 in git


Ignore:
Timestamp:
Mar 5, 2010, 11:35:50 PM (14 years ago)
Author:
Viktor Levandovskyy <levandov@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '4188d308699580d975efd0f6cca8dcb41c396f70')
Children:
c57a83edd49526195f04ddf602fca071cafed3b7
Parents:
fc46db6c6caaf5753ae95943e23d432236bb7b6c
Message:
*levandov: examples and doc improvements

git-svn-id: file:///usr/local/Singular/svn/trunk@12607 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/LIB/jacobson.lib

    rfc46db r1f190d7  
    873873       }
    874874
    875 
    876 
    877 
    878875       for(i=nz+1; i<=size(STD_EX); i++ )
    879876        {if( leadcoef(STD[i-nz])!=leadcoef(STD_EX[i]) )          {STD[i-nz]=leadcoef(STD_EX[i])*STD[i-nz];}
     
    963960        }
    964961
    965 
    966       ///////////////////////// check whether the alg termined /////////////////
     962      ///////////////////////// check whether the alg terminated /////////////////
    967963      if(size(COMPARE)>=3)
    968964       {
     
    11431139matrix m[3][4] = s,x^2*s,x^3*s,s*x^2,s*x+1,(x+1)^3, (x+s)^2, x*s;
    11441140
    1145 // this one is quite nasty and time consuming
     1141// this one is quite nasty and time consumig
    11461142matrix m[3][4] = s,x^2*s,x^3*s,s*x^2,s*x+1,(x+1)^3, (x+s)^2, x*s,x,x^2,x^3,s;
    11471143
     
    11831179    print(J[1]*m*J[3]-J[2]);
    11841180
     1181// yet another example from the paper, also Middeke
     1182   ring w = (0,y),(x,d),Dp;
     1183   def W=nc_algebra(1,1);
     1184   setring W;
     1185   matrix m[2][2]=y^2*d^2+d+1, 1, x*d, x^2*d^2+d+y;
     1186   list J=jacobson(m,0);
     1187   print(J[1]*m*J[3]);     print(J[2]);     print(J[1]);     print(J[3]);
     1188   print(J[1]*m*J[3]-J[2]);
     1189
     1190
    11851191*/
Note: See TracChangeset for help on using the changeset viewer.