source: git/Tst/Buch/Example_2_7_14.tst @ 1ebec3

spielwiese
Last change on this file since 1ebec3 was 891438c, checked in by Gerhard Pfister <pfister@…>, 23 years ago
*GP: initial release git-svn-id: file:///usr/local/Singular/svn/trunk@5579 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 569 bytes
Line 
1LIB "tst.lib";
2tst_init();
3
4ring A1=0,(a,b,c),dp;
5ideal P=ab-c2;
6qring A=std(P);               
7poly p=abc;
8
9ring B1=0,(x,y,z,a,b,c),dp;
10ideal I=x2,y,ab-c2;
11qring B=std(I);               
12map ib=A,a,b,c;               
13
14ring C1=0,(u,v,a,b,c),lp;
15ideal J=uv,ab-c2;
16qring C=std(J);               
17map ic=A,a,b,c;             
18
19ring T1=0,(x,y,z,u,v,a,b,c),dp;
20ideal K=imap(C1,J)+imap(B1,I);
21qring T=std(K);               
22map jb=B,x,y,z,a,b,c;       
23map jc=C,u,v,a,b,c;           
24
25map psi=jc(ic);                //
26map phi=jb(ib);
27psi(p);
28
29phi(p);
30
31
32tst_status(1);$
Note: See TracBrowser for help on using the repository browser.