source: git/Tst/Long/pMult0_l.tst @ 09f10e

spielwiese
Last change on this file since 09f10e was 818256, checked in by Olaf Bachmann <obachman@…>, 24 years ago
* new tests and updates of stats git-svn-id: file:///usr/local/Singular/svn/trunk@4566 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 757 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");
12
13tst_rgen_init();
14
15intvec how_often = 0,0,0,25,15,10,7,5,4,3;
16proc pAdd_Test(string rs)
17{
18  rs;
19  rs = "ring r = " + rs + ";";
20  execute(rs);
21  int n_vars = tst_rgen_nvars[tst_rgen_var_index];
22  ideal id = tst_cyclic(n_vars);
23  tst_TestMult(id, how_often[n_vars],
24               size(tst_rgen_comp_orderings[tst_rgen_comp_index]));
25 
26  kill r;
27}
28
29string rs = tst_next_ring();
30
31while (size(rs) > 1)
32{
33  pAdd_Test(rs);
34  rs = tst_next_ring();
35}
36
37tst_status(1); $
38
Note: See TracBrowser for help on using the repository browser.