Changeset 0936ad in git
 Timestamp:
 Feb 27, 2001, 7:11:57 PM (23 years ago)
 Branches:
 (u'fiekerDuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '45e267b9942dec9429fe249ce3e5e44ab80a6a3a')
 Children:
 c4c09e76adac559bf8a62d01b19240258705f112
 Parents:
 2d19a1bcc1aee3296e6608f8ae49f22b191d6880
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/iparith.cc
r2d19a1b r0936ad 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: iparith.cc,v 1.25 7 20010214 12:31:07 SingularExp $ */4 /* $Id: iparith.cc,v 1.258 20010227 18:11:57 mschulze Exp $ */ 5 5 6 6 /* … … 4434 4434 return TRUE; 4435 4435 } 4436 res>data = (char *)red nf((ideal)v>CopyD(),(poly)u>CopyD(),4436 res>data = (char *)redNF((ideal)v>CopyD(),(poly)u>CopyD(), 4437 4437 (poly)w>CopyD()); 4438 4438 return FALSE; … … 4446 4446 return TRUE; 4447 4447 } 4448 res>data = (char *)red nf((ideal)v>CopyD(),(ideal)u>CopyD(),4448 res>data = (char *)redNF((ideal)v>CopyD(),(ideal)u>CopyD(), 4449 4449 (matrix)w>CopyD()); 4450 4450 return FALSE; … … 4974 4974 return r; 4975 4975 } 4976 static BOOLEAN jjREDUCE5(leftv res, leftv v) 4977 { 4978 leftv u1=v; 4979 leftv u2=v>next; 4980 leftv u3=u2>next; 4981 leftv u4=u3>next; 4982 leftv u5=u4>next; 4983 if((u1>Typ()==IDEAL_CMD)&&(u2>Typ()==IDEAL_CMD)&&(u3>Typ()==MATRIX_CMD)&& 4984 (u4>Typ()==INT_CMD)&&(u5>Typ()==INTVEC_CMD)) 4985 { 4986 if(!mpIsDiagUnit((matrix)u3>Data())) 4987 { 4988 Werror("3rd argument must be a diagonal matrix of units"); 4989 return FALSE; 4990 } 4991 res>rtyp=IDEAL_CMD; 4992 res>data=(char*)redNF(idCopy((ideal)u2>Data()),idCopy((ideal)u1>Data()), 4993 mpCopy((matrix)u3>Data()), 4994 (int)u4>Data(),(intvec*)u5>Data()); 4995 return FALSE; 4996 } 4997 else 4998 if((u1>Typ()==POLY_CMD)&&(u2>Typ()==IDEAL_CMD)&&(u3>Typ()==POLY_CMD)&& 4999 (u4>Typ()==INT_CMD)&&(u5>Typ()==INTVEC_CMD)) 5000 { 5001 if(!pIsUnit((poly)u3>Data())) 5002 { 5003 Werror("3rd argument must be a unit"); 5004 return FALSE; 5005 } 5006 res>rtyp=POLY_CMD; 5007 res>data=(char*)redNF(idCopy((ideal)u2>Data()),pCopy((poly)u1>Data()), 5008 pCopy((poly)u3>Data()), 5009 (int)u4>Data(),(intvec*)u5>Data()); 5010 return FALSE; 5011 } 5012 else 5013 { 5014 Werror("%s(`ideal`,`ideal`,`matrix`,`int`,`intvec`) exppected", 5015 Tok2Cmdname(iiOp)); 5016 return TRUE; 5017 } 5018 } 4976 5019 static BOOLEAN jjRESERVED0(leftv res, leftv v) 4977 5020 { … … 5213 5256 ,{jjCALL3ARG, REDUCE_CMD, IDEAL_CMD/*or set by p*/, 3 } 5214 5257 ,{jjREDUCE4, REDUCE_CMD, IDEAL_CMD/*or set by p*/, 4 } 5258 ,{jjREDUCE5, REDUCE_CMD, IDEAL_CMD/*or set by p*/, 5 } 5215 5259 ,{jjCALL1ARG, RESERVEDNAME_CMD, INT_CMD, 1 } 5216 5260 ,{jjRESERVED0, RESERVEDNAME_CMD, NONE, 0 }
Note: See TracChangeset
for help on using the changeset viewer.