source: git/Tst/Short/bug_47.tst @ a866f1

spielwiese
Last change on this file since a866f1 was b9ed92, checked in by Hans Schönemann <hannes@…>, 16 years ago
*hannes: ncalgebra git-svn-id: file:///usr/local/Singular/svn/trunk@10357 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 393 bytes
Line 
1LIB "tst.lib";
2tst_init();
3
4LIB "nctools.lib";
5ring r = 0,(x,d),dp;
6def S=Weyl(); setring S;
7matrix E[2][2]=[-x,d],[x2,-x*d+1];
8matrix T[2][2]=[d,d2],[x,x*d-1];
9matrix A = E*T;
10print(A);
11A[2,1] - (E[2,1]*T[1,1] + E[2,2]*T[2,1]);
12
13// Eintrag A[2,1]:
14// in 3-0-0: 0 (richtig!)
15// in 3-0-2: x (falsch!)
16// in 3-0-3: 0 (richtig!)
17// check: A[2,1] = E[2,1]*T[1,1] + E[2,2]*T[2,1];
18
19tst_status(1);$
Note: See TracBrowser for help on using the repository browser.