spielwiese
Last change
on this file since a7efa79 was
a7efa79,
checked in by Hans Schönemann <hannes@…>, 16 years ago

*hannes: new book version
gitsvnid: file:///usr/local/Singular/svn/trunk@10182 2c84dea37e6841379b89c4e89433aadc


Property mode set to
100644

File size:
595 bytes

Line  

1  LIB "tst.lib"; 

2  tst_init(); 

3  

4  ======================================= example B.6.12 ================== 

5  

6  ring R=0,(x,y),dp; 

7  poly f=3x2y+4xy2+y3+3x2+6xy+y2+3x; 

8  poly g=2x2y+xy2y32x2y22x; 

9  

10  ring S=(0,y),x,dp; 

11  poly f=imap(R,f); poly g=imap(R,g); 

12  f; 

13  g; 

14  

15  ring T1=5,x,dp; 

16  map phi=R,x,0; 

17  poly f=phi(f); poly g=phi(g); 

18  f; 

19  g; 

20  

21  ring T2=7,x,dp; 

22  map psi=R,x,0; 

23  poly f=psi(f); poly g=psi(g); 

24  f; 

25  g; 

26  

27  setring T1; 

28  phi=R,x,2; 

29  f=phi(f); g=phi(g); //we substitute y by 2 

30  gcd(f,g); 

31  

32  setring T2; 

33  psi=R,x,2; 

34  f=psi(f); g=psi(g); 

35  gcd(f,g); 

36  

37  setring R; 

38  gcd(f,g); //the SINGULAR builtin function 

39  

40  tst_status(1);$ 

41  

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