spielwiese
|
Last change
on this file since 56c0fe was
e0b657,
checked in by Hans Schönemann <hannes@…>, 17 years ago
|
|
*hannes: ncalgebra -> nc_algebra
git-svn-id: file:///usr/local/Singular/svn/trunk@10367 2c84dea3-7e68-4137-9b89-c4e89433aadc
|
-
Property mode set to
100755
|
|
File size:
1.0 KB
|
| Line | |
|---|
| 1 | LIB "tst.lib"; |
|---|
| 2 | tst_init(); |
|---|
| 3 | ring r=0,(x(1..6),y(1..6),Ha,Hb),dp; |
|---|
| 4 | matrix D[14][14]=0; |
|---|
| 5 | D[1,2]=-x(3); |
|---|
| 6 | D[1,3]=-2*x(4); |
|---|
| 7 | D[1,4]=3*x(5); |
|---|
| 8 | D[1,7]=-Ha; |
|---|
| 9 | D[1,9]=3*y(2); |
|---|
| 10 | D[1,10]=2*y(3); |
|---|
| 11 | D[1,11]=-y(4); |
|---|
| 12 | D[1,13]=2*x(1); |
|---|
| 13 | D[1,14]=-x(1); |
|---|
| 14 | D[2,5]=x(6); |
|---|
| 15 | D[2,8]=-Hb; |
|---|
| 16 | D[2,9]=-y(1); |
|---|
| 17 | D[2,12]=-y(5); |
|---|
| 18 | D[2,13]=-3*x(2); |
|---|
| 19 | D[2,14]=2*x(2); |
|---|
| 20 | D[3,4]=3*x(6); |
|---|
| 21 | D[3,7]=3*x(2); |
|---|
| 22 | D[3,8]=-x(1); |
|---|
| 23 | D[3,9]=-Ha-3*Hb; |
|---|
| 24 | D[3,10]=-2*y(1); |
|---|
| 25 | D[3,12]=-y(4); |
|---|
| 26 | D[3,13]=-x(3); |
|---|
| 27 | D[3,14]=x(3); |
|---|
| 28 | D[4,7]=2*x(3); |
|---|
| 29 | D[4,9]=-2*x(1); |
|---|
| 30 | D[4,10]=-2*Ha-3*Hb; |
|---|
| 31 | D[4,11]=y(1); |
|---|
| 32 | D[4,12]=y(3); |
|---|
| 33 | D[4,13]=x(4); |
|---|
| 34 | D[5,7]=-x(4); |
|---|
| 35 | D[5,10]=x(1); |
|---|
| 36 | D[5,11]=-Ha-Hb; |
|---|
| 37 | D[5,12]=y(2); |
|---|
| 38 | D[5,13]=3*x(5); |
|---|
| 39 | D[5,14]=-x(5); |
|---|
| 40 | D[6,8]=-x(5); |
|---|
| 41 | D[6,9]=-x(4); |
|---|
| 42 | D[6,10]=x(3); |
|---|
| 43 | D[6,11]=x(2); |
|---|
| 44 | D[6,12]=-Ha-2*Hb; |
|---|
| 45 | D[6,14]=x(6); |
|---|
| 46 | D[7,8]=y(3); |
|---|
| 47 | D[7,9]=2*y(4); |
|---|
| 48 | D[7,10]=-3*y(5); |
|---|
| 49 | D[7,13]=-2*y(1); |
|---|
| 50 | D[7,14]=y(1); |
|---|
| 51 | D[8,11]=-y(6); |
|---|
| 52 | D[8,13]=3*y(2); |
|---|
| 53 | D[8,14]=-2*y(2); |
|---|
| 54 | D[9,10]=-3*y(6); |
|---|
| 55 | D[9,13]=y(3); |
|---|
| 56 | D[9,14]=-y(3); |
|---|
| 57 | D[10,13]=-y(4); |
|---|
| 58 | D[11,13]=-3*y(5); |
|---|
| 59 | D[11,14]=y(5); |
|---|
| 60 | D[12,14]=-y(6); |
|---|
| 61 | def S=nc_algebra(1,D);setring S; |
|---|
| 62 | ideal i=x(1)^3; |
|---|
| 63 | option(redSB); |
|---|
| 64 | option(redTail); |
|---|
| 65 | ideal J=system("twostd",i); |
|---|
| 66 | J; |
|---|
| 67 | tst_status(1);$ |
|---|
Note: See
TracBrowser
for help on using the repository browser.
