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

spielwiese
Last change on this file since 1ebec3 was 71a293d, checked in by Hans Schönemann <hannes@…>, 15 years ago
*hannes: new libs git-svn-id: file:///usr/local/Singular/svn/trunk@11681 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 368 bytes
Line 
1LIB "tst.lib";
2tst_init();
3
4LIB"normal.lib";
5ring A  =0,(x,y,z),wp(2,3,6);
6ideal I =y;
7ideal J =zy2-zx3-x6;
8list nor=normalC(J);
9def R   =nor[1][1];
10setring R;
11norid;
12
13normap;
14
15
16map phi=A,normap;
17ideal I=phi(I)+norid;
18
19std(I);
20
21radical(I);
22kill A;
23
24LIB"surf.lib";
25ring A=0,(t,x,y),dp;
26ideal J=t3-6t+x,-t4+6t2+y;
27ideal I=eliminate(J,t);
28I;
29
30//plot(I);
31
32tst_status(1);$
Note: See TracBrowser for help on using the repository browser.