source: git/Tst/Old/std1.tst @ 7496bd

spielwiese
Last change on this file since 7496bd was 7496bd, checked in by Hans Schönemann <hannes@…>, 15 years ago
*hannes: test bit git-svn-id: file:///usr/local/Singular/svn/trunk@11861 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 961 bytes
Line 
1//
2// test script for std command
3//
4ring r= 32003,(x,y,z),ds;
5int a = 3;
6int b = 5;
7int c = 2;
8int d = 7;  // c*b+d*a > 2ab, ggt(a,b) = 1
9
10poly f = (x^a+y^b)^2+x^c*y^d;
11poly f'x = diff(f,x);
12f;
13f'x;
14poly f'y = diff(f,y);
15f'y;
16//ideal i = f'x,f'y;
17ideal i = diff(f,x), diff(f,y);
18i;
19"vdim         i:", vdim(i);
20"dim          i:", dim(i);
21"multiplicity i:", mult(i);
22i;
23option(prot);
24test(15);
25ideal j = std(i);
26//degree(j);
27"dim",dim(j);
28"multiplicity", mult(j);
29j;
30//
31"-------------------------------";
32//
33ring r1 = 32003,(x,y,z),ds;
34r1;
35ideal i1=maxideal(3);
36ideal i2=x6,y4,z5,xy,yz,xz;
37i2;
38ideal j1=std(i2);
39j1;
40//maxdeg(3);
41vdim(j1);
42"---------------------------------";
43i1;
44//maxdeg(2);
45ideal j2=std(i1);
46j2;
47vdim(j2);
48"---------------------------------";
49vector v1=[x4,y2,xz2];
50vector v2=[y3,x8,2z4];
51module m=v1,v2;
52m;
53//maxdeg(3);
54module m1=std(m);
55m1;
56vdim(m1);
57"--------------------------------";
58listvar(all);
59kill r1;
60LIB "tst.lib";tst_status(1);$;
Note: See TracBrowser for help on using the repository browser.