spielwiese
Last change
on this file since a6e7454 was
a6e7454,
checked in by Viktor Levandovskyy <levandov@…>, 20 years ago

nontrivial examples from Plural doc
gitsvnid: file:///usr/local/Singular/svn/trunk@6653 2c84dea37e6841379b89c4e89433aadc


Property mode set to
100644

File size:
337 bytes

Line  

1  LIB "tst.lib"; 

2  tst_init(); 

3  ring r=0,(x,y,z),dp; 

4  matrix d[3][3]; 

5  d[1,2]=z; 

6  d[1,3]=2x; 

7  d[2,3]=2y; 

8  system("PLURAL",1,d); 

9  // it is algebra U(sl_2) 

10  int N=3; 

11  poly f=1; 

12  for(int n=0;n<=N;n++) 

13  { 

14  f=f*(z+N2*n); 

15  } 

16  f; 

17  ideal i=x^(N+1),y^(N+1),f; 

18  option(redSB); 

19  option(redTail); 

20  ideal I=std(i); 

21  I; 

22  ideal J=system("twostd",i); 

23  J; 

24  tst_status(1);$ 

Note: See
TracBrowser
for help on using the repository browser.