Changeset 7acd5f in git
- Timestamp:
- May 15, 2000, 4:21:45 PM (24 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- 2d2cad9977bf9fafe63dcfe797a92cb67a0c2491
- Parents:
- e3315975c336d12ce993c6847c993fa709cbb7a0
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/ipassign.cc
re331597 r7acd5f 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: ipassign.cc,v 1.5 4 2000-05-15 14:11:02Singular Exp $ */4 /* $Id: ipassign.cc,v 1.55 2000-05-15 14:21:45 Singular Exp $ */ 5 5 6 6 /* … … 116 116 static BOOLEAN jjMINPOLY(leftv res, leftv a) 117 117 { 118 if ((rPar(currRing)!=1)119 || (rField_is_GF()))120 {121 WerrorS("no minpoly allowed");122 return TRUE;123 }124 if (currRing->minpoly!=NULL)125 {126 WerrorS("minpoly already set");127 return TRUE;128 }129 118 number p=(number)a->CopyD(NUMBER_CMD); 130 if (!nIsZero(p)) 131 { 119 if (nIsZero(p)) 120 { 121 currRing->minpoly=NULL; 122 naMinimalPoly=NULL; 123 } 124 else 125 { 126 if ((rPar(currRing)!=1) 127 || (rField_is_GF())) 128 { 129 WerrorS("no minpoly allowed"); 130 return TRUE; 131 } 132 if (currRing->minpoly!=NULL) 133 { 134 WerrorS("minpoly already set"); 135 return TRUE; 136 } 132 137 nNormalize(p); 133 138 currRing->minpoly=p; 134 139 naMinimalPoly=((lnumber)currRing->minpoly)->z; 135 }136 else137 {138 naMinimalPoly=NULL;139 140 } 140 141 return FALSE;
Note: See TracChangeset
for help on using the changeset viewer.