source: git/Tst/Manual/areZeroElements.tst @ 7bb006

spielwiese
Last change on this file since 7bb006 was 894057, checked in by Oleksandr Motsak <motsak@…>, 13 years ago
ADD: Tests from online manual (res+stat on mamawutz): short ones Tst/Manual/s.lst
  • Property mode set to 100644
File size: 403 bytes
Line 
1LIB "tst.lib"; tst_init();
2LIB "multigrading.lib";
3ring r = 0,(x,y,z),dp;
4intmat S[2][3]=
51,0,1,
60,1,1;
7intmat L[2][1]=
82,
92;
10setBaseMultigrading(S,L);
11poly a = 1;
12poly b = xyz;
13ideal I = a, b;
14print(multiDeg(I));
15intmat m[5][2]=multiDeg(a),multiDeg(b); m=transpose(m);
16print(multiDeg(a));
17print(multiDeg(b));
18print(m);
19areZeroElements(m);
20intmat LL[2][1]=
211,
22-1;
23areZeroElements(m,LL);
24tst_status(1);$
Note: See TracBrowser for help on using the repository browser.