Changeset 2a10547 in git
 Timestamp:
 Mar 9, 1999, 1:22:18 PM (25 years ago)
 Branches:
 (u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
 Children:
 41442f095ba5a5301108857c89ac604ccfdcf0f3
 Parents:
 17e692576cbeb0b918e77a2b33f3d8bac726d8fe
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/ring.h
r17e692 r2a10547 7 7 * ABSTRACT  the interpreter related ring operations 8 8 */ 9 /* $Id: ring.h,v 1.2 1 19990308 17:30:50 SingularExp $ */9 /* $Id: ring.h,v 1.22 19990309 12:22:18 obachman Exp $ */ 10 10 11 11 /* includes */ … … 49 49 50 50 #define rInternalChar(r) ((r)>ch) 51 #ifndef ABS 52 #define ABS(x) ((x) < 0 ? ((x)) : (x)) 53 #endif 51 54 inline BOOLEAN rField_is_Zp(ring r=currRing) 52 { return (r>ch>1) && (r>parameter==NULL); } 55 { return (r>ch > 1) && (r>parameter==NULL); } 56 inline BOOLEAN rField_is_Zp(ring r, int p) 57 { return (r>ch > 1 && r>ch == ABS(p) && r>parameter==NULL); } 53 58 inline BOOLEAN rField_is_Q(ring r=currRing) 54 { return (r>ch ==0) && (r>parameter==NULL); }59 { return (r>ch == 0) && (r>parameter==NULL); } 55 60 inline BOOLEAN rField_is_R(ring r=currRing) 56 { return (r>ch ==1); }61 { return (r>ch == 1); } 57 62 inline BOOLEAN rField_is_GF(ring r=currRing) 58 { return (r>ch >1) && (r>parameter!=NULL); }63 { return (r>ch > 1) && (r>parameter!=NULL); } 59 64 inline BOOLEAN rField_is_Zp_a(ring r=currRing) 60 { return (r>ch<1); } 65 { return (r>ch < 1); } 66 inline BOOLEAN rField_is_Zp_a(ring r, int p) 67 { return (r>ch < 1 ) && ((r>ch) == ABS(p)); } 61 68 inline BOOLEAN rField_is_Q_a(ring r=currRing) 62 { return (r>ch ==1); }69 { return (r>ch == 1); } 63 70 inline BOOLEAN rField_has_simple_inverse(ring r=currRing) 64 71 { return (r>ch>1); } /* Z/p and GF(p,n) */
Note: See TracChangeset
for help on using the changeset viewer.