spielwiese
Last change
on this file since 47a5c2 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 nontrunk default branches.
gitsvnid: file:///usr/local/Singular/svn/trunk@1397 2c84dea37e6841379b89c4e89433aadc


Property mode set to
100644

File size:
953 bytes

Line  

1  LIB "tst.lib"; 

2  tst_init(); 

3  

4  LIB"normal.lib"; 

5  

6  ring r=31991,(a,b,c,d,e),dp; 

7  ideal i= 

8  5abcdea5b5c5d5e5, 

9  ab3c+bc3d+a3be+cd3e+ade3, 

10  a2bc2+b2cd2+a2d2e+ab2e2+c2de2, 

11  abc5b4c2d2a2b2cde+ac3d2ea4de2+bcd2e3+abe5, 

12  ab2c4b5cda2b3de+2abc2d2e+ad4e2a2bce3cde5, 

13  a3b2cdbc2d4+ab2c3eb5ded6e+3abcd2e2a2be4de6, 

14  a4b2cabc2d3ab5eb3c2dead5e+2a2bcde2+cd2e4, 

15  b6c+bc6+a2b4e3ab2c2de+c4d2ea3cde2abd3e2+bce5; 

16  

17  list pr=normal(i); 

18  pr; 

19  def r1=pr[1]; 

20  setring r1; 

21  KK; 

22  kill r,r1; 

23  

24  ring r=32003,(x,y,z),wp(2,3,6); 

25  ideal i=zy2zx3x6; 

26  list pr=normal(i); 

27  pr; 

28  def r1=pr[1]; 

29  setring r1; 

30  KK; 

31  kill r,r1; 

32  

33  ring r=32003,(x,y,z),dp; 

34  ideal i=(xy)*(xz)*(yz); 

35  

36  list pr=normal(i); 

37  pr; 

38  def r1=pr[1]; 

39  def r2=pr[2]; 

40  setring r1; 

41  KK; 

42  kill r,r1; 

43  

44  ring r=32003,(b,s,t,u,v,w,x,y,z),dp; 

45  

46  ideal k= 

47  wyvz, 

48  vxuy, 

49  tvsw, 

50  subv, 

51  tuybvz; 

52  ideal j=x2y2+x2z2+y2z2; 

53  ideal i=mstd(intersect(j,k))[2]; 

54  list pr=normal(i); 

55  pr; 

56  def r1=pr[1]; 

57  def r4=pr[4]; 

58  setring r1; 

59  KK; 

60  setring r4; 

61  KK; 

62  

63  kill r,r1; 

64  $ 

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