Changeset fb2240 in git for Tst/Long/solve_l.tst
 Timestamp:
 May 6, 2005, 4:56:13 PM (18 years ago)
 Branches:
 (u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
 Children:
 0eb1737da689f9ef8cc69629e5c894c9c30a4000
 Parents:
 8ad9898728b1819d2a50262b0dca7487830141a0
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Tst/Long/solve_l.tst
r8ad9898 rfb2240 4 4 LIB "tst.lib"; 5 5 tst_init(); 6 tst_ignore("CVS ID $Id: solve_l.tst,v 1. 4 20050503 13:02:59Singular Exp $");6 tst_ignore("CVS ID $Id: solve_l.tst,v 1.5 20050506 14:56:13 Singular Exp $"); 7 7 8 8 LIB "solve.lib"; … … 10 10 //////////////////////////// 11 11 12 tst_ignore( "ring rs1 = 0,(x,y,z),lp;" ); 13 ring rs1 = 0,(h,x,y,z),lp; 12 //tst_ignore( "ring rs1 = 0,(x,y,z),lp;" ); 13 //ring rs1 = 0,(h,x,y,z),lp; 14 // 15 //poly f0= x+y+z+1; 16 //poly f1= x^2 + 6*x + 3*y + 6*z  4; 17 //poly f2= y^2 + 2*x 7*y + 5 + 2*z; 18 //poly f3= x^2 + y^2 + z^2  1; 19 //ideal i=f1,f2,f3; 20 //ideal im=f0,f1,f2,f3; 14 21 15 poly f0= x+y+z+1; 16 poly f1= x^2 + 6*x + 3*y + 6*z  4; 17 poly f2= y^2 + 2*x 7*y + 5 + 2*z; 18 poly f3= x^2 + y^2 + z^2  1; 19 ideal i=f1,f2,f3; 20 ideal im=f0,f1,f2,f3; 22 //def A=ures_solve(homog(i,h),1); 23 //setring A; SOL; 24 //kill A; 25 //setring rs1; 26 //mp_res_mat(homog(im,h),1); 21 27 22 def A=ures_solve(homog(i,h),1); 23 setring A; SOL; 24 kill A; 25 setring rs1; 26 mp_res_mat(homog(im,h),1); 27 28 tst_ignore( "ring rs2 = 0,(x,y,z),lp;" ); 29 ring rs2 = 0,(x,y,z),lp; 30 31 poly f0= x+y+z; 32 poly f1= x^2 + 6*x + 3*y + 6*z  4; 33 poly f2= y^2 + 2*x 7*y + 5 + 2*z; 34 poly f3= x^2 + y^2 + z^2  1; 35 ideal i=f1,f2,f3; 36 ideal im=f0,f1,f2,f3; 37 38 def A=ures_solve(i); 39 setring A; SOL; 40 kill A; 41 setring rs2; 42 mp_res_mat(im); 43 44 def rinC=fglm_solve(i,30); 45 setring rinC; 46 rlist; 47 48 setring rs2; 49 kill rinC; 50 def rinC=triangL_solve(i,30); 51 setring rinC; rlist; 52 53 setring rs2; 54 kill rinC; 55 def rinC=triangLf_solve(i,30); 56 setring rinC; rlist; 57 58 setring rs2; 59 kill rinC; 60 def rinC=triangM_solve(i,30); 61 setring rinC; rlist; 62 kill rinC; 28 //tst_ignore( "ring rs2 = 0,(x,y,z),lp;" ); 29 //ring rs2 = 0,(x,y,z),lp; 30 // 31 //poly f0= x+y+z; 32 //poly f1= x^2 + 6*x + 3*y + 6*z  4; 33 //poly f2= y^2 + 2*x 7*y + 5 + 2*z; 34 //poly f3= x^2 + y^2 + z^2  1; 35 //ideal i=f1,f2,f3; 36 //ideal im=f0,f1,f2,f3; 37 // 38 //def A=ures_solve(i); 39 //setring A; SOL; 40 //kill A; 41 //setring rs2; 42 //mp_res_mat(im); 43 // 44 //def rinC=fglm_solve(i,30); 45 //setring rinC; 46 //rlist; 47 // 48 //setring rs2; 49 //kill rinC; 50 //def rinC=triangL_solve(i,30); 51 //setring rinC; rlist; 52 // 53 //setring rs2; 54 //kill rinC; 55 //def rinC=triangLf_solve(i,30); 56 //setring rinC; rlist; 57 // 58 //setring rs2; 59 //kill rinC; 60 //def rinC=triangM_solve(i,30); 61 //setring rinC; rlist; 62 //kill rinC; 63 63 64 64 //////////////////////////// … … 116 116 //////////////////////////// 117 117 118 tst_ignore( "ring rs6= 0,(x,y),lp;" );119 ring rs6= 0,(x,y),lp;120 poly f = 15x5 + x3 + x2  10;121 laguerre_solve(f);122 123 laguerre_solve(f,10);124 125 tst_ignore( "ring rsc= (real,20,I),x,lp;" );126 ring rsc= (real,20,I),x,lp;127 poly f = (15.4+I*5)*x^5 + (25.0e2+I*2)*x^3 + x2  10*I;128 laguerre_solve(f);129 118 //tst_ignore( "ring rs6= 0,(x,y),lp;" ); 119 //ring rs6= 0,(x,y),lp; 120 //poly f = 15x5 + x3 + x2  10; 121 //laguerre_solve(f); 122 // 123 //laguerre_solve(f,10); 124 // 125 //tst_ignore( "ring rsc= (real,20,I),x,lp;" ); 126 //ring rsc= (real,20,I),x,lp; 127 //poly f = (15.4+I*5)*x^5 + (25.0e2+I*2)*x^3 + x2  10*I; 128 //laguerre_solve(f); 129 // 130 130 //////////////////////////// 131 131 132 ring rs7 = 0,(x),lp;133 ideal v=16,0,11376,1046880,85949136;134 interpolate( 3, v, 4 );135 136 ring rs8 = 0,(x,y),dp;137 ideal p = 2,3;138 ideal v= 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16;139 poly ip= interpolate( p,v,3 );140 ip;132 //ring rs7 = 0,(x),lp; 133 //ideal v=16,0,11376,1046880,85949136; 134 //interpolate( 3, v, 4 ); 135 // 136 //ring rs8 = 0,(x,y),dp; 137 //ideal p = 2,3; 138 //ideal v= 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16; 139 //poly ip= interpolate( p,v,3 ); 140 //ip; 141 141 142 142 ////////////////////////////
Note: See TracChangeset
for help on using the changeset viewer.