source: git/Tst/Long/fglm1_l.tst @ ff8a6bf

fieker-DuValspielwiese
Last change on this file since ff8a6bf was b35b93, checked in by Olaf Bachmann <obachman@…>, 26 years ago
This commit was generated by cvs2svn to compensate for changes in r1396, which included commits to RCS files with non-trunk default branches. git-svn-id: file:///usr/local/Singular/svn/trunk@1397 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 1.0 KB
Line 
1// $Id: fglm1_l.tst,v 1.1.1.1 1998-04-17 15:07:39 obachman Exp $
2
3//
4// fglm_s.tst - long tests for fglm
5//              fglm: cassou-mod1, lamm1 in char 0
6//
7
8
9LIB "tst.lib";
10tst_init();
11tst_ignore("CVS: $Id: fglm1_l.tst,v 1.1.1.1 1998-04-17 15:07:39 obachman Exp $");
12
13option(redSB);
14
15// =========================
16// cassou-mod1 in char 0
17ring r=0,(a,b,c,d), dp;
18ideal 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;
19ideal is=std(i);
20ring s=0,(a,b,c,d), lp;
21fglm(r,is);
22kill r,s;
23
24// =============================================
25// lamm in char 0, with permutation of variables
26ring r=0,(x,y), dp;
27ideal i=45x8+3x7+39x6+30x5+13x4+41x3+5x2+46x+7, 49x7y+35xy7+37xy6+9y7+4x6+6y6+27x3y2+20xy4+31x4+33x2y+24x2+49y+43;
28ideal is=std(i);
29ring s=0,(y,x), lp;
30fglm(r,is);
31kill r,s;
32
33quit;
34
Note: See TracBrowser for help on using the repository browser.