Changeset 2eb3db in git

Timestamp:

Jan 30, 2003, 10:41:04 PM (21 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

cd22d1a27db3332385586c32609b3ccce07f4c94

Parents:

f93c1c0e645bbb7a98fd80559cdcfe7e08465c20

Message:

noncom syz, nres, mres


git-svn-id: file:///usr/local/Singular/svn/trunk@6451 2c84dea3-7e68-4137-9b89-c4e89433aadc

Location:

Singular

Files:

• gring.cc (modified) (2 diffs)
• ideals.cc (modified) (2 diffs)
• syz.cc (modified) (3 diffs)

Singular/gring.cc

@@ -7 +7 @@
  *  Author:  levandov (Viktor Levandovsky)
  *  Created: 8/00 - 11/00
- *  Version: $Id: gring.cc,v 1.22 2003-01-29 19:13:36 levandov Exp $
+ *  Version: $Id: gring.cc,v 1.23 2003-01-30 21:41:01 levandov Exp $
  *******************************************************************/
 #include "mod2.h"
@@ -624 +624 @@
   if (((a<cMTsize)&&(b<cMTsize))&&(MATELEM(cMT,a,b)!=NULL))
   {
-    out = prCopyR_NoSort(MATELEM(cMT,a,b),r->nc->basering, r);
+    out = nc_p_CopyGet(MATELEM(cMT,a,b),r);
     //   out=p_Copy(MATELEM(cMT,a,b),r);
     return (out);

Singular/ideals.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.cc,v 1.130 2002-05-29 09:38:49 mschulze Exp $ */
+/* $Id: ideals.cc,v 1.131 2003-01-30 21:41:02 levandov Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -1464 +1464 @@
   && (!TEST_OPT_NOTREGULARITY)
   && (setRegularity)
-  && (h==isHomog))
+  && (h==isHomog)
+  && (!rIsPluralRing(currRing))
+  )
   {
     ring dp_C_ring = rCurrRingAssure_dp_C();

Singular/syz.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: syz.cc,v 1.41 2001-10-09 16:36:25 Singular Exp $ */
+/* $Id: syz.cc,v 1.42 2003-01-30 21:41:04 levandov Exp $ */
 
 /*
@@ -198 +198 @@
           syz->m[k] = pMult(syz->m[k],pCopy(Unit1));
           syz->m[k] = pSub(syz->m[k],
-            pMult(pCopy(actWith),Unit2));
+            pMult(Unit2,pCopy(actWith)));
           if (syz->m[k]==NULL)
           {
@@ -390 +390 @@
 *   no limitation in length if maxlength==0
 * input:arg
-*       minim: TRUE means mres cmd, FALSE res cmd.
-*       if *len!=0: modul weights: weights[0]
+*       minim: TRUE means mres cmd, FALSE nres cmd.
+*       if *len!=0: module weights: weights[0]
 *          (and weights is defined:weights[0..len-1]
 *
 * output:resolvente r[0..length-1],
-*        modul weights: weights[0..length-1]
+*        module weights: weights[0..length-1]
 */
 resolvente syResolvente(ideal arg, int maxlength, int * length,