Changeset 847e479 in git


Ignore:
Timestamp:
Dec 5, 2010, 6:28:50 PM (14 years ago)
Author:
Viktor Levandovskyy <levandov@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '8a337797cc4177aa8747d661d5c4214ea2095dac')
Children:
4717631dfe1e5705c7ca29fc1b273bd644dce57e
Parents:
6ef8674c2151ddaf022c5535e4863ef67cf1bfc2
Message:
*levandov: tex output for printlevel 4 added

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

Legend:

Unmodified
Added
Removed
  • Singular/LIB/jacobson.lib

    r6ef8674 r847e479  
    5151LIB "dmodapp.lib"; // engine
    5252LIB "qhmoduli.lib"; // Min
     53LIB "latex.lib"; // tex output for printlevel=4
    5354
    5455proc tstjacobson()
     
    786787}
    787788
    788 static proc triangle( matrix MA, int B)
     789//static
     790proc triangle(matrix MA, int B)
    789791{
    790792 int ppl = printlevel-voice+2;
     
    839841    STDFIN=STD;
    840842    list COMPARE=STDFIN;
    841 
     843    string @s;
    842844
    843845  while(finish==0)
     
    957959        {
    958960         TrafoL=transpose(LT)*TrafoL;
    959         }
     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        }
    960967       else
    961968        {
    962969         TrafoR=TrafoR*involution(LT,inv);
     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);
    963975        }
    964976
     
    969981       }
    970982       ////////////////////////////////// change to the opposite module
    971        TSTD=transpose(STD);
    972        STD=involution(TSTD,inv);
    973        flag++;
    974        dbprint(ppl,"Finished one while cycle");
     983      dbprint(ppl-1,"Matrix for the next step:");
     984      dbprint(ppl-1,STD);
     985      dbprint(ppl-2,"Matrix for the next step in TeX format:");
     986      @s = texobj("",matrix(STD));
     987      dbprint(ppl-2,@s);
     988      TSTD=transpose(STD);
     989      STD=involution(TSTD,inv);
     990      flag++;
     991      dbprint(ppl,"Finished one while cycle");
    975992    }
    976993
     
    11421159matrix m[2][3] = s,x^2*s,x^3*s,s*x^2,s*x+1,(x+1)^3;
    11431160matrix m[2][3] = s,x^2*s,x^3*s,s*x^2,s*x+1,(x+s)^2; // variation
    1144 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!
     1161matrix 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
    11451162matrix 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
    11461163
Note: See TracChangeset for help on using the changeset viewer.