Changeset 6c94fb in git for Singular

Timestamp:

Apr 24, 1998, 6:51:43 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'd1b01e9d51ade4b46b745d3bada5c5f3696be3a8')

Children:

5b54c8b87e7d9b8048cf6ca127512be4c334290c

Parents:

6ddbf53b34c0fdce02514053d39a0599dfffe3ef

Message:

*** empty log message ***


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

File:

• Singular/polys.cc (modified) (2 diffs)

Singular/polys.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys.cc,v 1.24 1998-04-24 16:39:24 Singular Exp $ */
+/* $Id: polys.cc,v 1.25 1998-04-24 16:51:43 Singular Exp $ */
 
 /*
@@ -1403 +1403 @@
   }
 
+  // Set default Var Indicies
+  pSetVarIndicies(pVariables);
+  
   // Initialize memory management
   mmSpecializeBlock(pMonomSize);
 
+  pOrdSgn = r->OrdSgn;
+  pVectorOut=(r->order[0]==ringorder_c);
+  order=r->order;
+  block0=r->block0;
+  block1=r->block1;
+  firstwv=NULL;
+  polys_wv=r->wvhdl;
+  /*------- only one real block ----------------------*/
+  pLexOrder=FALSE;
+  pMixedOrder=FALSE;
+  pFDeg=pDeg;
+  if (pOrdSgn == 1) pLDeg = ldegb;
+  else              pLDeg = ldeg0;
+  /*======== ordering type is (_,c) =========================*/
+  if ((order[0]==ringorder_unspec)
+  ||(
+    ((order[1]==ringorder_c)||(order[1]==ringorder_C))
+    && (order[0]!=ringorder_M)
+    && (order[2]==0))
+  )
+  {
+    if ((order[0]!=ringorder_unspec)
+    && (order[1]==ringorder_C))
+      pComponentOrder=-1;
+    if (pOrdSgn == -1) pLDeg = ldeg0c;
+    SimpleChoose(order[0],order[1], &pComp0);
+    SetpSetm(order[0],0);
+  }
+  /*======== ordering type is (c,_) =========================*/
+  else if (((order[0]==ringorder_c)||(order[0]==ringorder_C))
+  && (order[1]!=ringorder_M)
+  &&  (order[2]==0))
+  {
+    /* pLDeg = ldeg0; is standard*/
+    if (order[0]==ringorder_C)
+      pComponentOrder=-1;
+    SimpleChooseC(order[1], &pComp0);
+    SetpSetm(order[1],1);
+  }
+  /*------- more than one block ----------------------*/
+  else
+  {
+    //pLexOrder=TRUE;
+    pVectorOut=order[0]==ringorder_c;
+    if ((pVectorOut)||(order[0]==ringorder_C))
+    {
+      if(block1[1]!=pVariables) pLexOrder=TRUE;
+    }
+    else
+    {
+      if(block1[0]!=pVariables) pLexOrder=TRUE;
+    }
+    /*the number of orderings:*/
+    i = 0;
+    while (order[++i] != 0);
+    do
+    {
+      i--;
+      HighSet(i, order[i]);/*sets also pMixedOrder to TRUE, if...*/
+      SetpSetm(order[i],i);
+    }
+    while (i != 0);
+
+    pComp0 = BlockComp;
+    if ((order[0]!=ringorder_c)&&(order[0]!=ringorder_C))
+    {
+      pLDeg = ldeg1c;
+    }
+    else
+    {
+      pLDeg = ldeg1;
+    }
+    pFDeg = pWTotaldegree; // may be improved: pTotaldegree for lp/dp/ls/.. blocks
+  }
   if (complete)
   {
-    // Set default Var Indicies
-    pSetVarIndicies(pVariables);
-  
-    pOrdSgn = r->OrdSgn;
-    pVectorOut=(r->order[0]==ringorder_c);
-    order=r->order;
-    block0=r->block0;
-    block1=r->block1;
-    firstwv=NULL;
-    polys_wv=r->wvhdl;
-    /*------- only one real block ----------------------*/
-    pLexOrder=FALSE;
-    pMixedOrder=FALSE;
-    pFDeg=pDeg;
-    if (pOrdSgn == 1) pLDeg = ldegb;
-    else              pLDeg = ldeg0;
-    /*======== ordering type is (_,c) =========================*/
-    if ((order[0]==ringorder_unspec)
-    ||(
-      ((order[1]==ringorder_c)||(order[1]==ringorder_C))
-      && (order[0]!=ringorder_M)
-      && (order[2]==0))
-    )
-    {
-      if ((order[0]!=ringorder_unspec)
-      && (order[1]==ringorder_C))
-        pComponentOrder=-1;
-      if (pOrdSgn == -1) pLDeg = ldeg0c;
-      SimpleChoose(order[0],order[1], &pComp0);
-      SetpSetm(order[0],0);
-    }
-    /*======== ordering type is (c,_) =========================*/
-    else if (((order[0]==ringorder_c)||(order[0]==ringorder_C))
-    && (order[1]!=ringorder_M)
-    &&  (order[2]==0))
-    {
-      /* pLDeg = ldeg0; is standard*/
-      if (order[0]==ringorder_C)
-        pComponentOrder=-1;
-      SimpleChooseC(order[1], &pComp0);
-      SetpSetm(order[1],1);
-    }
-    /*------- more than one block ----------------------*/
-    else
-    {
-      //pLexOrder=TRUE;
-      pVectorOut=order[0]==ringorder_c;
-      if ((pVectorOut)||(order[0]==ringorder_C))
-      {
-        if(block1[1]!=pVariables) pLexOrder=TRUE;
-      }
-      else
-      {
-        if(block1[0]!=pVariables) pLexOrder=TRUE;
-      }
-      /*the number of orderings:*/
-      i = 0;
-      while (order[++i] != 0);
-      do
-      {
-        i--;
-        HighSet(i, order[i]);/*sets also pMixedOrder to TRUE, if...*/
-        SetpSetm(order[i],i);
-      }
-      while (i != 0);
-  
-      pComp0 = BlockComp;
-      if ((order[0]!=ringorder_c)&&(order[0]!=ringorder_C))
-      {
-        pLDeg = ldeg1c;
-      }
-      else
-      {
-        pLDeg = ldeg1;
-      }
-      pFDeg = pWTotaldegree; // may be improved: pTotaldegree for lp/dp/ls/.. blocks
-    }
     if ((pLexOrder) || (pOrdSgn==-1))
     {