source: git/Tst/Short/bug_barei_2.tst @ b7d0a9c

spielwiese
Last change on this file since b7d0a9c was 6e385f, checked in by Olaf Bachmann <obachman@…>, 23 years ago
* test for Singulara git-svn-id: file:///usr/local/Singular/svn/trunk@4731 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 502 bytes
Line 
1LIB "tst.lib";
2tst_init();
3
4option(prot);
5int d=13;
6int b=3;
7int db=d-b;
8int i;
9ring r=0,(x,y,z),(c,dp);
10module mm;
11poly xd;
12d=9;
13b=3;
14db=d-b;
15for(i=d;i>0;i--)
16{
17  mm[i]=1/3*x*gen(i);
18}
19for(i=db;i;i--)
20{
21  mm[i]=mm[i]+1/7*y*gen(i+b);
22}
23for(i=d;i>db;i--)
24{
25  mm[i]=mm[i]+1/7*y*gen(i-db);
26}
27for(i=d;i>b;i--)
28{
29  mm[i]=mm[i]+1/11*z*gen(i-b);
30}
31for(i=b;i;i--)
32{
33  mm[i]=mm[i]+1/11*z*gen(i+db);
34}
35list ss=bareiss(mm);
36vector vv=ss[1][size(ss[1])];
37xd=det(mm);
38vector ww=xd*gen(d);
39ww-vv;
40
41tst_status(1);$
42$
Note: See TracBrowser for help on using the repository browser.