fieker-DuValspielwiese
Last change
on this file since 1ebec3 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
|
Rev | Line | |
---|
[b35b93] | 1 | // |
---|
| 2 | // test script for std command |
---|
| 3 | // |
---|
| 4 | ring r= 32003,(x,y,z),ds; |
---|
| 5 | int a = 3; |
---|
| 6 | int b = 5; |
---|
| 7 | int c = 2; |
---|
| 8 | int d = 7; // c*b+d*a > 2ab, ggt(a,b) = 1 |
---|
| 9 | |
---|
| 10 | poly f = (x^a+y^b)^2+x^c*y^d; |
---|
| 11 | poly f'x = diff(f,x); |
---|
| 12 | f; |
---|
| 13 | f'x; |
---|
| 14 | poly f'y = diff(f,y); |
---|
| 15 | f'y; |
---|
| 16 | //ideal i = f'x,f'y; |
---|
| 17 | ideal i = diff(f,x), diff(f,y); |
---|
| 18 | i; |
---|
| 19 | "vdim i:", vdim(i); |
---|
| 20 | "dim i:", dim(i); |
---|
| 21 | "multiplicity i:", mult(i); |
---|
| 22 | i; |
---|
| 23 | option(prot); |
---|
| 24 | test(15); |
---|
| 25 | ideal j = std(i); |
---|
| 26 | //degree(j); |
---|
| 27 | "dim",dim(j); |
---|
| 28 | "multiplicity", mult(j); |
---|
| 29 | j; |
---|
| 30 | // |
---|
| 31 | "-------------------------------"; |
---|
| 32 | // |
---|
| 33 | ring r1 = 32003,(x,y,z),ds; |
---|
| 34 | r1; |
---|
| 35 | ideal i1=maxideal(3); |
---|
| 36 | ideal i2=x6,y4,z5,xy,yz,xz; |
---|
| 37 | i2; |
---|
| 38 | ideal j1=std(i2); |
---|
| 39 | j1; |
---|
| 40 | //maxdeg(3); |
---|
| 41 | vdim(j1); |
---|
| 42 | "---------------------------------"; |
---|
| 43 | i1; |
---|
| 44 | //maxdeg(2); |
---|
| 45 | ideal j2=std(i1); |
---|
| 46 | j2; |
---|
| 47 | vdim(j2); |
---|
| 48 | "---------------------------------"; |
---|
| 49 | vector v1=[x4,y2,xz2]; |
---|
| 50 | vector v2=[y3,x8,2z4]; |
---|
| 51 | module m=v1,v2; |
---|
| 52 | m; |
---|
| 53 | //maxdeg(3); |
---|
| 54 | module m1=std(m); |
---|
| 55 | m1; |
---|
| 56 | vdim(m1); |
---|
| 57 | "--------------------------------"; |
---|
| 58 | listvar(all); |
---|
| 59 | kill r1; |
---|
[46976a6] | 60 | LIB "tst.lib";tst_status(1);$; |
---|
Note: See
TracBrowser
for help on using the repository browser.