source: git/Tst/Short/solve_s.tst @ 09cb443

spielwiese
Last change on this file since 09cb443 was 341696, checked in by Hans Schönemann <hannes@…>, 14 years ago
Adding Id property to all files git-svn-id: file:///usr/local/Singular/svn/trunk@12231 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 1.6 KB
Line 
1//
2// solve_s.tst - short tests for
3
4LIB "tst.lib";
5tst_init();
6tst_ignore("CVS ID $Id$");
7
8LIB "solve.lib";
9
10////////////////////////////
11
12tst_ignore( "ring rs1 = 0,(x,y,z),lp;" );
13ring rs1 = 0,(h,x,y,z),lp;
14
15poly f0= x+y+z+1;
16poly f1= x^2 + 6*x + 3*y + 6*z - 4;
17poly f2= y^2 + 2*x -7*y + 5 + 2*z;
18poly f3= x^2 + y^2 + z^2 - 1;
19ideal i=f1,f2,f3;
20ideal im=f0,f1,f2,f3;
21
22def A=ures_solve(homog(i,h),1);
23setring A; SOL;
24kill A;
25setring rs1;
26mp_res_mat(homog(im,h),1);
27
28tst_ignore( "ring rs2 = 0,(x,y,z),lp;" );
29ring rs2 = 0,(x,y,z),lp;
30
31poly f0= x+y+z;
32poly f1= x^2 + 6*x + 3*y + 6*z - 4;
33poly f2= y^2 + 2*x -7*y + 5 + 2*z;
34poly f3= x^2 + y^2 + z^2 - 1;
35ideal i=f1,f2,f3;
36ideal im=f0,f1,f2,f3;
37
38def A=ures_solve(i);
39setring A; SOL;
40kill A;
41setring rs2;
42mp_res_mat(im);
43
44def rinC = fglm_solve(i,30);
45setring rinC;
46rlist;
47
48setring rs2;
49kill rinC;
50def rinC = triangL_solve(i,30);
51setring rinC;
52rlist;
53
54setring rs2;
55kill rinC;
56def rinC = triangLf_solve(i,30);
57setring rinC;
58rlist;
59
60setring rs2;
61kill rinC;
62def rinC = triangM_solve(i,30);
63setring rinC;
64rlist;
65kill rinC;
66
67////////////////////////////
68
69tst_ignore( "ring rs6= 0,(x,y),lp;" );
70ring rs6= 0,(x,y),lp;
71poly f = 15x5 + x3 + x2 - 10;
72laguerre_solve(f);
73
74laguerre_solve(f,10);
75
76tst_ignore( "ring rsc= (real,20,I),x,lp;" );
77ring rsc= (real,20,I),x,lp;
78poly f = (15.4+I*5)*x^5 + (25.0e-2+I*2)*x^3 + x2 - 10*I;
79laguerre_solve(f);
80
81////////////////////////////
82
83ring rs7 = 0,(x),lp;
84ideal v=16,0,11376,1046880,85949136;
85interpolate( 3, v, 4 );
86
87ring rs8 = 0,(x,y),dp;
88ideal p = 2,3;
89ideal v= 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16;
90poly ip= interpolate( p,v,3 );
91ip;
92
93////////////////////////////
94
95example simplexOut;
96
97tst_status(1);$
98
Note: See TracBrowser for help on using the repository browser.