Changeset fb2240 in git for Tst/Long/solve_l.tst

Timestamp:

May 6, 2005, 4:56:13 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

0eb1737da689f9ef8cc69629e5c894c9c30a4000

Parents:

8ad9898728b1819d2a50262b0dca7487830141a0

Message:

*hannes: removed all solve_s tests


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

File:

• Tst/Long/solve_l.tst (modified) (3 diffs)

Tst/Long/solve_l.tst

@@ -4 +4 @@
 LIB "tst.lib";
 tst_init();
-tst_ignore("CVS ID $Id: solve_l.tst,v 1.4 2005-05-03 13:02:59 Singular Exp $");
+tst_ignore("CVS ID $Id: solve_l.tst,v 1.5 2005-05-06 14:56:13 Singular Exp $");
 
 LIB "solve.lib";
@@ -10 +10 @@
 ////////////////////////////
 
-tst_ignore( "ring rs1 = 0,(x,y,z),lp;" );
-ring rs1 = 0,(h,x,y,z),lp;
+//tst_ignore( "ring rs1 = 0,(x,y,z),lp;" );
+//ring rs1 = 0,(h,x,y,z),lp;
+//
+//poly f0= x+y+z+1;
+//poly f1= x^2 + 6*x + 3*y + 6*z - 4;
+//poly f2= y^2 + 2*x -7*y + 5 + 2*z;
+//poly f3= x^2 + y^2 + z^2 - 1;
+//ideal i=f1,f2,f3;
+//ideal im=f0,f1,f2,f3;
 
-poly f0= x+y+z+1;
-poly f1= x^2 + 6*x + 3*y + 6*z - 4;
-poly f2= y^2 + 2*x -7*y + 5 + 2*z;
-poly f3= x^2 + y^2 + z^2 - 1;
-ideal i=f1,f2,f3;
-ideal im=f0,f1,f2,f3;
+//def A=ures_solve(homog(i,h),1);
+//setring A; SOL;
+//kill A;
+//setring rs1;
+//mp_res_mat(homog(im,h),1);
 
-def A=ures_solve(homog(i,h),1);
-setring A; SOL;
-kill A;
-setring rs1;
-mp_res_mat(homog(im,h),1);
-
-tst_ignore( "ring rs2 = 0,(x,y,z),lp;" );
-ring rs2 = 0,(x,y,z),lp;
-
-poly f0= x+y+z;
-poly f1= x^2 + 6*x + 3*y + 6*z - 4;
-poly f2= y^2 + 2*x -7*y + 5 + 2*z;
-poly f3= x^2 + y^2 + z^2 - 1;
-ideal i=f1,f2,f3;
-ideal im=f0,f1,f2,f3;
-
-def A=ures_solve(i);
-setring A; SOL;
-kill A;
-setring rs2;
-mp_res_mat(im);
-
-def rinC=fglm_solve(i,30);
-setring rinC;
-rlist;
-
-setring rs2;
-kill rinC;
-def rinC=triangL_solve(i,30);
-setring rinC; rlist;
-
-setring rs2;
-kill rinC;
-def rinC=triangLf_solve(i,30);
-setring rinC; rlist;
-
-setring rs2;
-kill rinC;
-def rinC=triangM_solve(i,30);
-setring rinC; rlist;
-kill rinC;
+//tst_ignore( "ring rs2 = 0,(x,y,z),lp;" );
+//ring rs2 = 0,(x,y,z),lp;
+//
+//poly f0= x+y+z;
+//poly f1= x^2 + 6*x + 3*y + 6*z - 4;
+//poly f2= y^2 + 2*x -7*y + 5 + 2*z;
+//poly f3= x^2 + y^2 + z^2 - 1;
+//ideal i=f1,f2,f3;
+//ideal im=f0,f1,f2,f3;
+//
+//def A=ures_solve(i);
+//setring A; SOL;
+//kill A;
+//setring rs2;
+//mp_res_mat(im);
+//
+//def rinC=fglm_solve(i,30);
+//setring rinC;
+//rlist;
+//
+//setring rs2;
+//kill rinC;
+//def rinC=triangL_solve(i,30);
+//setring rinC; rlist;
+//
+//setring rs2;
+//kill rinC;
+//def rinC=triangLf_solve(i,30);
+//setring rinC; rlist;
+//
+//setring rs2;
+//kill rinC;
+//def rinC=triangM_solve(i,30);
+//setring rinC; rlist;
+//kill rinC;
 
 ////////////////////////////
@@ -116 +116 @@
 ////////////////////////////
 
-tst_ignore( "ring rs6= 0,(x,y),lp;" );
-ring rs6= 0,(x,y),lp;
-poly f = 15x5 + x3 + x2 - 10;
-laguerre_solve(f);
-
-laguerre_solve(f,10);
-
-tst_ignore( "ring rsc= (real,20,I),x,lp;" );
-ring rsc= (real,20,I),x,lp;
-poly f = (15.4+I*5)*x^5 + (25.0e-2+I*2)*x^3 + x2 - 10*I;
-laguerre_solve(f);
-
+//tst_ignore( "ring rs6= 0,(x,y),lp;" );
+//ring rs6= 0,(x,y),lp;
+//poly f = 15x5 + x3 + x2 - 10;
+//laguerre_solve(f);
+//
+//laguerre_solve(f,10);
+//
+//tst_ignore( "ring rsc= (real,20,I),x,lp;" );
+//ring rsc= (real,20,I),x,lp;
+//poly f = (15.4+I*5)*x^5 + (25.0e-2+I*2)*x^3 + x2 - 10*I;
+//laguerre_solve(f);
+//
 ////////////////////////////
 
-ring rs7 = 0,(x),lp;
-ideal v=16,0,11376,1046880,85949136;
-interpolate( 3, v, 4 );
-
-ring rs8 = 0,(x,y),dp;
-ideal p = 2,3;
-ideal v= 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16;
-poly ip= interpolate( p,v,3 );
-ip;
+//ring rs7 = 0,(x),lp;
+//ideal v=16,0,11376,1046880,85949136;
+//interpolate( 3, v, 4 );
+//
+//ring rs8 = 0,(x,y),dp;
+//ideal p = 2,3;
+//ideal v= 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16;
+//poly ip= interpolate( p,v,3 );
+//ip;
 
 ////////////////////////////