Changeset 3402b4b in git for Singular/LIB/involut.lib
- Timestamp:
- Apr 14, 2009, 10:26:08 AM (14 years ago)
- Branches:
- (u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')
- Children:
- c13ff567ed904c82c5b40b8d18a42a7c5275627a
- Parents:
- 20bc9aea52d22f8eba9cf7e95131fc34a54bbb4e
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/involut.lib
r20bc9ae r3402b4b 1 version="$Id: involut.lib,v 1.1 6 2009-04-09 12:04:41 seelischExp $";1 version="$Id: involut.lib,v 1.17 2009-04-14 08:26:08 Singular Exp $"; 2 2 category="Noncommutative"; 3 3 info=" … … 166 166 D[1,4]=1; D[2,5]=1; D[3,6]=1; 167 167 def r = nc_algebra(1,D); setring r; 168 map F = r;169 168 ncdetection(); 170 F; // F(F) should be maxideal(1)171 169 kill r, R; 172 170 //---------------------------------------- 173 171 ring R=0,(x,S),dp; 174 172 def r = nc_algebra(1,-S); setring r; 175 map F = r;176 173 ncdetection(); 177 F; // F(F) should be maxideal(1)178 174 kill r, R; 179 175 //---------------------------------------- … … 182 178 D[1,2]=1; D[1,3]=-S; 183 179 def r = nc_algebra(1,D); setring r; 184 map F = r;185 180 ncdetection(); 186 F; // F(F) should be maxideal(1)187 181 } 188 182
Note: See TracChangeset
for help on using the changeset viewer.