Changeset 56790ef in git for Tst/Short/slimgb_s.tst

Timestamp:

Jun 3, 2005, 2:14:59 PM (19 years ago)

Author:

Michael Brickenstein <bricken@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

1fd35f0df5b4f027db65fc547a7f4396ac429a3e

Parents:

ef3e3d152584beff84467bb23091b1f51b303f81

Message:

*bricken: new example


git-svn-id: file:///usr/local/Singular/svn/trunk@8330 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Tst/Short/slimgb_s.tst (modified) (3 diffs)

Tst/Short/slimgb_s.tst

@@ -1 @@
-// $Id: slimgb_s.tst,v 1.3 2005-05-12 07:40:03 bricken Exp $
+// $Id: slimgb_s.tst,v 1.4 2005-06-03 12:14:59 bricken Exp $
 
 //
@@ -10 +10 @@
 
 tst_init();
-tst_ignore("CVS: $Id: slimgb_s.tst,v 1.3 2005-05-12 07:40:03 bricken Exp $");
+tst_ignore("CVS: $Id: slimgb_s.tst,v 1.4 2005-06-03 12:14:59 bricken Exp $");
 
 proc char_out(ideal i){
@@ -69 +69 @@
 kill r;
 
+
+//twomat3
+ring @r=32003,(a, b, c, d, e, f, g, h, i, A, B, C, D, E, F, G, H, I),lp;
+ideal @i=
+d*C-c*D-f*E+e*F-i*F+f*I,
+-d*B-g*C+b*D+c*G,
+d*B-b*D-h*F+f*H,
+g*A+h*D-a*G+i*G-d*H-g*I,
+d*A-a*D+e*D-d*E-g*F+f*G,
+-c*A-f*B+a*C-i*C+b*F+c*I,
+-b*A+a*B-e*B-h*C+b*E+c*H,
+-g*h*C*I+g*B+h*E+h*F-b*G-c*G-e*H-f*H+i*H;
+char_out(slimgb(@i));
+
+
 tst_status(1);$