fieker-DuValspielwiese
Last change
on this file since 2cdd72 was
341696,
checked in by Hans Schönemann <hannes@…>, 15 years ago
|
Adding Id property to all files
git-svn-id: file:///usr/local/Singular/svn/trunk@12231 2c84dea3-7e68-4137-9b89-c4e89433aadc
|
-
Property mode set to
100644
|
File size:
950 bytes
|
Rev | Line | |
---|
[341696] | 1 | // $Id$ |
---|
[b35b93] | 2 | |
---|
| 3 | // |
---|
| 4 | // fglm_s.tst - long tests for fglm |
---|
| 5 | // fglm: cassou-mod1, lamm1 in char 0 |
---|
| 6 | // |
---|
| 7 | |
---|
| 8 | |
---|
| 9 | LIB "tst.lib"; |
---|
| 10 | tst_init(); |
---|
[341696] | 11 | tst_ignore("CVS: $Id$"); |
---|
[b35b93] | 12 | |
---|
| 13 | option(redSB); |
---|
| 14 | |
---|
| 15 | // ========================= |
---|
| 16 | // cassou-mod1 in char 0 |
---|
| 17 | ring r=0,(a,b,c,d), dp; |
---|
| 18 | ideal i= 15a4bc2+6a4b3+21a4b2c-144a2b-8a2b2d-28a2bcd-648a2c+36c2d+9a4c3-120, 30b3a4c-32cd2b-720ca2b-24b3a2d-432b2a2+576db-576cd+16ba2c2d+16c2d2+16d2b2+9b4a4+5184+39c2a4b2+18c3a4b-432c2a2+24c3a2d-16b2a2cd-240b, 216ca2b-162c2a2-81b2a2+5184+1008db-1008cd+15b2a2cd-15b3a2d-80cd2b+40c2d2+40d2b2, 261+4ca2b-3c2a2-4b2a2+22db-22cd; |
---|
| 19 | ideal is=std(i); |
---|
| 20 | ring s=0,(a,b,c,d), lp; |
---|
| 21 | fglm(r,is); |
---|
| 22 | kill r,s; |
---|
| 23 | |
---|
| 24 | // ============================================= |
---|
| 25 | // lamm in char 0, with permutation of variables |
---|
| 26 | ring r=0,(x,y), dp; |
---|
| 27 | ideal i=45x8+3x7+39x6+30x5+13x4+41x3+5x2+46x+7, 49x7y+35xy7+37xy6+9y7+4x6+6y6+27x3y2+20xy4+31x4+33x2y+24x2+49y+43; |
---|
| 28 | ideal is=std(i); |
---|
| 29 | ring s=0,(y,x), lp; |
---|
| 30 | fglm(r,is); |
---|
| 31 | kill r,s; |
---|
| 32 | |
---|
[46976a6] | 33 | tst_status(1);$ |
---|
[b35b93] | 34 | |
---|
Note: See
TracBrowser
for help on using the repository browser.