source: git/Tst/Short/stratify.tst @ f1cfef

spielwiese
Last change on this file since f1cfef was 37ad5ff, checked in by Anne Frühbis-Krüger <anne@…>, 23 years ago
*anne: changes corresponding to changes in general.lib, poly.lib and spcurve.lib and to new library stratify.lib git-svn-id: file:///usr/local/Singular/svn/trunk@4878 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 604 bytes
Line 
1LIB "tst.lib";
2tst_init();
3LIB "spcurve.lib";
4LIB "stratify.lib";
5example prepMat;
6intvec watchProgress=0,1,1,1,1;
7example stratify;
8
9ring r=0,(x,y,z),ds;
10matrix M2[3][2]=z,0,y^2,z-x^7,x^9,y;
11def KS=KSpencerKernel(M2);
12ring rt=0,(T(1..8)),wp(8,5,2,10,7,4,1,2);
13def KS=imap(reneu,KS);
14intvec wr=10,8,7,5,4,2,2,1;
15intvec ws=9,6,3,0;
16int step=3;
17list l=stratify(KS,wr,ws,step);
18l;
19
20ring r=0,(x,y,z),ds;
21matrix M1[3][2]=z,x^9,x,y,y,z;
22def KS=KSpencerKernel(M1);
23ring rt=0,(T(1..2)),wp(5,2);
24def KS=imap(reneu,KS);
25intvec wr=5,2;
26intvec ws=3,0;
27int step=3;
28list l=stratify(KS,wr,ws,step);
29l;
30
31tst_status(1);$
Note: See TracBrowser for help on using the repository browser.