source: git/Tst/Long/pMult0L_l.tst @ 6263f2

spielwiese
Last change on this file since 6263f2 was 742b12, checked in by Hans Schoenemann <hannes@…>, 14 years ago
overflow checks too strong git-svn-id: file:///usr/local/Singular/svn/trunk@12870 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 837 bytes
Line 
1LIB "tst.lib";
2tst_init();
3
4LIB "poly.lib";
5
6list tst_rgen_simple_orderings = list("lp", "dp", "ls", "ds");
7intvec tst_rgen_products = 1;
8intvec tst_rgen_extra_weights = intvec(0);
9intvec tst_rgen_nvars = 4..10;
10list tst_rgen_comp_orderings = list("", "cc");
11list tst_rgen_charstrs = list("0");
12list tst_rgen_exp_bounds = list(63);
13
14tst_rgen_init();
15
16intvec how_often = 0,0,0,25,15,10,7,5,4,3;
17proc pAdd_Test(string rs)
18{
19   tst_rgen_Lring;
20  rs = "ring r = " + rs + ";";
21  execute(rs);
22  int n_vars = tst_rgen_nvars[tst_rgen_var_index];
23//  ideal id = 1, tst_FullIdeal();
24  ideal id = cyclic(n_vars);
25  tst_TestMult(id, how_often[n_vars],
26               size(tst_rgen_comp_orderings[tst_rgen_comp_index]));
27 
28  kill r;
29}
30
31string rs = tst_next_ring();
32
33while (size(rs) > 1)
34{
35  pAdd_Test(rs);
36  rs = tst_next_ring();
37}
38
39tst_status(1); $
Note: See TracBrowser for help on using the repository browser.