source: git/Tst/Buch/Example_6_2_15.tst @ 891438c

spielwiese
Last change on this file since 891438c 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: 346 bytes
Line 
1LIB "tst.lib";
2tst_init();
3
4proc mapIsFinite(R,map phi,ideal I)
5{
6   def S=basering;
7   setring R;
8   ideal ma=maxideal(1);
9   setring S;
10   ideal ma=phi(ma);
11   ma=std(ma+I);
12   if(dim(ma)==0)
13   {
14      return(1)
15   }
16   return(0)
17}
18
19ring A=0,(x,y),ds;
20ring B=0,(x,y,z),ds;
21map phi=A,x,y;
22ideal I=z2-x2y;
23mapIsFinite(A,phi,I);
24
25tst_status(1);$
Note: See TracBrowser for help on using the repository browser.