Changeset 01cc3b2 in git
- Timestamp:
- Apr 28, 2005, 5:11:52 PM (18 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
- Children:
- 9ded3eedf5ab4f272ac380c5227b88845c6bc85b
- Parents:
- f83effec729f9c61c16e26b311a1d1fbcaa6b9b5
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/ring.lib
rf83eff r01cc3b2 1 1 /////////////////////////////////////////////////////////////////////////////// 2 version="$Id: ring.lib,v 1.2 2 2005-04-28 09:21:59Singular Exp $";2 version="$Id: ring.lib,v 1.23 2005-04-28 15:11:52 Singular Exp $"; 3 3 category="General purpose"; 4 4 info=" … … 60 60 ring r=0,(x,y,u,v),(dp(2),ds); 61 61 def R=changechar("2,A"); R;""; 62 def R1=changechar("32003",R); R1;62 def R1=changechar("32003",R); setring R1; R1; 63 63 kill R,R1; 64 64 } … … 100 100 ideal i = x^2,y^2-u^3,v; 101 101 qring Q = std(i); 102 def Q'=changeord("lp",Q); Q';102 def Q'=changeord("lp",Q); setring Q'; Q'; 103 103 kill R,Q,Q'; 104 104 } … … 151 151 setring(r); 152 152 def R=changevar("A()"); R; ""; 153 def Q'=changevar("a,b,c,d",Q); Q';153 def Q'=changevar("a,b,c,d",Q); setring Q'; Q'; 154 154 kill R,Q,Q'; 155 155 } … … 674 674 qring qT=std(d2+e2-f3); //create qring of T mod d2+e2-f3 675 675 def Q=ringtensor(s,qS,t,qT); 676 type Q;676 setring Q; type Q; 677 677 kill R,S,T,Q; 678 678 }
Note: See TracChangeset
for help on using the changeset viewer.