source: git/Tst/New/print_param_poly_short.tst @ d208a80

spielwiese
Last change on this file since d208a80 was 5a72fe, checked in by Oleksandr Motsak <motsak@…>, 12 years ago
added a print-out test over rings with parameters
  • Property mode set to 100644
File size: 1.8 KB
Line 
1LIB "tst.lib"; tst_init();
2
3short;
4
5proc Test()
6{
7  ":: TEST :: ";
8  basering;
9  "short value: ", short;
10
11  "::::             pars: ";
12  "(par(1)):                           ", (par(1));
13  "(par(1)**2):                        ", (par(1)**2);
14  "(par(1)**2 + 2*par(1)):             ", (par(1)**2 + 2*par(1));
15
16  "::::             vars: ";
17  "(var(1)):                           ", (var(1));
18  "(var(1)**2):                        ", (var(1)**2);
19  "(-2)*(var(1)**2):                   ", (-2)*(var(1)**2);
20 
21  "::::             both: ";
22  "(par(1))*(var(1)):                  ", (par(1))*(var(1));
23  "(par(1))*(var(1)**2):               ", (par(1))*(var(1)**2);
24  "(par(1)**3)*(var(1)):               ", (par(1)**3)*(var(1));
25  "(par(1)**3)*(var(1)**2):            ", (par(1)**3)*(var(1)**2);
26  "(par(1)**2 + 2*par(1))*(var(1)**2): ", (par(1)**2 + 2*par(1))*(var(1)**2);
27}
28
29" ::::::::::::::::::::: SHORT!!! ::::::::::::::::::::: ";
30
31ring r=(0,Q),(x),dp;
32Test();
33minpoly = par(1)^2 - par(1) + 1;
34Test();
35kill r;
36ring r=(121,Q),(x),dp;
37Test();
38kill r;
39ring r=(complex,30,Q),(x),dp;
40Test();
41kill r;
42
43
44" ::::::::::::::::::::: PAR:LONG!! ::::::::::::::::::::: ";
45
46ring r=(0,Q9),(x),dp;
47Test();
48minpoly = par(1)^2 - par(1) + 1;
49Test();
50kill r;
51ring r=(121,Q9),(x),dp;
52Test();
53kill r;
54ring r=(complex,30,Q9),(x),dp;
55Test();
56kill r;
57
58
59
60
61" ::::::::::::::::::::: VAR:LONG!! ::::::::::::::::::::: ";
62
63ring r=(0,Q),(x9),dp;
64Test();
65minpoly = par(1)^2 - par(1) + 1;
66Test();
67kill r;
68ring r=(121,Q),(x9),dp;
69Test();
70kill r;
71ring r=(complex,30,Q),(x9),dp;
72Test();
73kill r;
74
75
76
77
78" ::::::::::::::::::::: LONG!! ::::::::::::::::::::: ";
79
80ring r=(0,Q9),(x9),dp;
81Test();
82minpoly = par(1)^2 - par(1) + 1;
83Test();
84kill r;
85
86ring r=(121,Q9),(x9),dp;
87Test();
88kill r;
89
90ring r=(complex,30,Q9),(x9),dp;
91Test();
92kill r;
93
94
95
96tst_status(1);$
Note: See TracBrowser for help on using the repository browser.