Changeset 46d427b in git for Tst/BuchDL


Ignore:
Timestamp:
Oct 30, 2007, 7:16:00 PM (16 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
Children:
b9ed9219019a539488427520e4fd4f0a1f50e0a0
Parents:
0273dec39cc5a468a269edd6c08a5ba742e0fb14
Message:
*hannes: ncalgebra


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

Legend:

Unmodified
Added
Removed
  • Tst/BuchDL/Ex_L3.tst

    r0273de r46d427b  
    733733matrix H[6][6];
    734734H[1,4] = 1;  H[2,5] = 1;  H[3,6] = 1;
    735 ncalgebra(C,H);
     735def @S=ncalgebra(C,H); setring @S;
    736736
    737737kill D3;   // ---- Alternatively:
    738738if (not(defined(Exterior))){ LIB "nctools.lib"; }
    739739ring D3 = 0, (x(1..3),d(1..3)), dp;
    740 Weyl();
     740def @S3=Weyl(); setring @S3;
    741741
    742742basering;
     
    804804for (i=1; i<=3; i++) { for (j=i+1; j<=3; j++) { C[i,j] = -1; } }
    805805matrix H[3][3];
    806 ncalgebra(C,H);
     806def @S=ncalgebra(C,H); setring @S;
    807807ideal Q = x(1)^2, x(2)^2, x(3)^2;
    808808Q = twostd(Q);     // compute two-sided Groebner basis
Note: See TracChangeset for help on using the changeset viewer.