Changeset 6fe3a0 in git for Tst/Long/deform_l.tst

Timestamp:

Apr 25, 2005, 12:13:07 PM (19 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

3329dd9bcf2662f9666579abea56c33dfcb530ac

Parents:

8604751c5a5f572004bf8d35d4307e485b728435

Message:

*hannes/lossen: new libs, new tests


git-svn-id: file:///usr/local/Singular/svn/trunk@7891 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Tst/Long/deform_l.tst (modified) (5 diffs)

Tst/Long/deform_l.tst

@@ -8 +8 @@
 ring  r0  = 0,(x,y,z),ls;
  ideal i2 = y4-xy,yz-xz,z4-xz;   
- versal(i2);kill_rings();
-//------------------------------------------------------------------------------
+ list L=versal(i2);
+kill L;
+//-----------------------------------------------------------------------------
 ring  r1  = 0,(x,y,z,u),dp;
  ideal i5 = x3-y2,xz,xu,yz,yu,z3-u2; 
- versal(i5);kill_rings();
+ list L=versal(i5);
  ideal i6 = z2-xz,zu-xu,u2-yu,yz-xu;
- versal(i6);kill_rings();
+ L=versal(i6); kill L;
 //------- cone over rational normal curve ofe degree d -------------------------
  int    d = 4;
@@ -22 +23 @@
        i7 = minor(m,2);
        i7 = minbase(i7);
- versal(i7);kill_rings();
-//------- L_d_d: d generic lines in A^d ________________________________________
+ list L=versal(i7); 
+ def Px=L[1]; setring Px; Fs; print(Js); print(Rs);
+ kill L,Px;
+//------- L_d_d: d generic lines in A^d ---------------------------------------
         d = 4;
 ring r3=0,(x(1..d)),ls;
@@ -31 +34 @@
  } 
         i8 = simplify(i8,10);
- versal(i8,3,"myring");kill_rings("myring");
-//------- two elliptic singularity  (t1=7 and 13,t2=3) ---------------------------
+ list L=versal(i8,3,"myring");
+ def Px=L[1]; setring Px; Fs;
+ kill L,Px;
+//------- two elliptic singularity  (t1=7 and 13,t2=3) ------------------------
 ring r6   = 0,(x,y,z,u,v,w),ds;
  ideal i9 = uv-zw,u2-yw,zu-yv,yu-xw,xu+v2-uw,yz-xv,y2+v2-uw,xy+zv-yw,x2+z2-yu;
- versal(i9);kill_rings();
+ list L=versal(i9);
+ def Px=L[1]; setring Px; Fs;
+ kill L,Px;
 ring r7   = 0,(x,y,z,u,v),dp;
  ideal I1 = xy,xz,xu,xv,yz,yu,yv,zu,zv,uv;    
- versal(I1);kill_rings();
+ list L=versal(I1);
+ def Px=L[1]; setring Px; Fs;
+ kill L,Px;
+
 ring r8   = 0,(w(1..9)),dp;
  ideal I3 = w(8)^2-w(6)*w(9),
@@ -64 +74 @@
             w(2)*w(6)^2-w(3)^2*w(8),
             w(1)*w(6)^2-w(2)*w(3)*w(8);
- versal(I3);kill_rings();
-kill r0,r1,r2,r3,r6,r7,r8;
+list L= versal(I3);
+def Px=L[1]; setring Px; Fs;
+kill L,Px;
+kill r0,r1,r2,r3,r6,r7,r8,m,n,d;
 //////////////////////////////////////////////////////////////////////////////////
 ring   Po = 0,(x,y),dp;
@@ -85 +97 @@
 {
   Mo=m(i');
-  mod_versal(Mo,Io);
-  kill_rings();
+  list L=mod_versal(Mo,Io);
+  def Qx=L[2]; 
+  print(Ms);
+  print(Ls);
+  print(Js); 
+  kill L,Qx;
 }
-mod_versal(m(2),Io,4,"qq","W","dp","oo");
+list L=mod_versal(m(2),Io,4,"qq","W","dp","oo");
+def Px=L[1]; def Qx=L[2]; def So=L[3]; def Ox=L[4];
 listvar(ring);
-qqQx;
+show(Qx);
 tst_status(1);$