source: git/Tst/Buch/Example_1_3_3.tst @ bf8015

spielwiese
Last change on this file since bf8015 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: 422 bytes
Line 
1LIB "tst.lib";
2tst_init();
3
4
5ring S = 0,(a,b,c),lp;
6ring R = 0,(x,y,z),dp;
7ideal i = x, y, x2-y3;
8map phi = S,i;     
9LIB "algebra.lib";
10
11is_injective(phi,S);
12
13ideal j = x, x+y, z-x2+y3;
14map psi = S,j;                 
15is_injective(psi,S);
16
17alg_kernel(phi,S);
18
19alg_kernel(psi,S);
20
21ideal Z;                   
22setring S;
23preimage(R,phi,Z);     
24
25setring R;
26is_surjective(psi,S);
27
28is_bijective(psi,S);
29
30tst_status(1);$
Note: See TracBrowser for help on using the repository browser.