Changeset 4508ce5 in git for Singular/fglm.cc

Timestamp:

Dec 15, 2000, 7:49:36 PM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

a5f564c88c2600acb20b8afdd6dd84d9d3f715df

Parents:

d3bf0986c4b1a7bac5ffc43b873646317a0d91de

Message:

*hannes: nMap removed nSetMap returns now the routine


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

File:

• Singular/fglm.cc (modified) (3 diffs)

Singular/fglm.cc

@@ -1 +1 @@
 // emacs edit mode for this file is -*- C++ -*-
-// $Id: fglm.cc,v 1.23 2000-12-06 11:03:09 Singular Exp $
+// $Id: fglm.cc,v 1.24 2000-12-15 18:49:28 Singular Exp $
 
 /****************************************
@@ -172 +172 @@
         // check if sring->qideal is contained in dring->qideal:
         rSetHdl( dringHdl );
-        //nSetMap( rInternalChar(sring), sring->parameter, npar, sring->minpoly );
-        nSetMap( sring );
+        nMapFunc nMap=nSetMap( sring );
         ideal sqind = idInit( IDELEMS( sring->qideal ), 1 );
         for ( k= IDELEMS( sring->qideal )-1; k >= 0; k-- )
-            (sqind->m)[k]= pPermPoly( (sring->qideal->m)[k], vperm, sring);
+          (sqind->m)[k]= pPermPoly( (sring->qideal->m)[k], vperm, sring, nMap);
         ideal sqindred = kNF( dring->qideal, NULL, sqind );
         if ( ! idIs0( sqindred ) ) {
@@ -190 +189 @@
         maFindPerm( dring->names, nvar, NULL, 0, sring->names, nvar, NULL, 0, 
                     dsvperm, NULL, sring->ch);
-        //nSetMap(rInternalChar(dring), dring->parameter, npar, dring->minpoly);
-        nSetMap(dring);
+        nMap=nSetMap(dring);
         ideal dqins = idInit( IDELEMS( dring->qideal ), 1 );
         for ( k= IDELEMS( dring->qideal )-1; k >= 0; k-- )
-            (dqins->m)[k]= pPermPoly( (dring->qideal->m)[k], dsvperm, sring);
+          (dqins->m)[k]=pPermPoly( (dring->qideal->m)[k], dsvperm, sring, nMap);
         ideal dqinsred = kNF( sring->qideal, NULL, dqins );
         if ( ! idIs0( dqinsred ) ) {