Changeset 44bf84 in git


Ignore:
Timestamp:
Mar 11, 2009, 10:43:29 AM (15 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '3a4bc649f1d0185cc9f8b122bd75f21f75ac9c9a')
Children:
6872439b7590944bd69e6388ace91d8c08381594
Parents:
9815814eeb1856dd1d7c58ddf0c1f53374c516fc
Message:
*hannes: variables() -> ideal


git-svn-id: file:///usr/local/Singular/svn/trunk@11546 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
Singular
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • Singular/LIB/dmodapp.lib

    r9815814 r44bf84  
    11//////////////////////////////////////////////////////////////////////////////
    2 version="$Id: dmodapp.lib,v 1.24 2009-03-10 16:27:56 Singular Exp $";
     2version="$Id: dmodapp.lib,v 1.25 2009-03-11 09:43:29 Singular Exp $";
    33category="Noncommutative";
    44info="
     
    18091809  int ppl = printlevel - voice +2;
    18101810  def save = basering;
    1811   list L = variables(F);
    1812   int i = size(L);
     1811  ideal LI = variables(F);
     1812  list L;
     1813  int i = size(LI);
    18131814  if (i>1) { ERROR("poly has to be univariate")}
    18141815  if (i == 0)
     
    18181819    return(L);
    18191820  }
    1820   poly v = L[1];
     1821  poly v = LI[1];
    18211822  L = ringlist(save); L = L[1..4];
    18221823  L[2] = list(string(v));
  • Singular/iparith.cc

    r9815814 r44bf84  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.499 2009-03-02 15:43:24 Singular Exp $ */
     4/* $Id: iparith.cc,v 1.500 2009-03-11 09:43:29 Singular Exp $ */
    55
    66/*
     
    53125312,{jjTYPEOF,     TYPEOF_CMD,      STRING_CMD,     ANY_TYPE       ALLOW_PLURAL}
    53135313,{jjUNIVARIATE, UNIVARIATE_CMD,  INT_CMD,        POLY_CMD       ALLOW_PLURAL}
    5314 ,{jjVARIABLES_P,VARIABLES_CMD,   LIST_CMD,       POLY_CMD       ALLOW_PLURAL}
    5315 ,{jjVARIABLES_ID,VARIABLES_CMD,  LIST_CMD,       IDEAL_CMD       ALLOW_PLURAL}
    5316 ,{jjVARIABLES_ID,VARIABLES_CMD,  LIST_CMD,       MATRIX_CMD       ALLOW_PLURAL}
     5314,{jjVARIABLES_P,VARIABLES_CMD,   IDEAL_CMD,      POLY_CMD       ALLOW_PLURAL}
     5315,{jjVARIABLES_ID,VARIABLES_CMD,  IDEAL_CMD,      IDEAL_CMD       ALLOW_PLURAL}
     5316,{jjVARIABLES_ID,VARIABLES_CMD,  IDEAL_CMD,      MATRIX_CMD       ALLOW_PLURAL}
    53175317,{jjDUMMY,      VECTOR_CMD,      VECTOR_CMD,     VECTOR_CMD     ALLOW_PLURAL}
    53185318,{jjVDIM,       VDIM_CMD,        INT_CMD,        IDEAL_CMD      ALLOW_PLURAL}
  • Singular/ipshell.cc

    r9815814 r44bf84  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ipshell.cc,v 1.202 2009-02-13 09:16:27 Singular Exp $ */
     4/* $Id: ipshell.cc,v 1.203 2009-03-11 09:43:29 Singular Exp $ */
    55/*
    66* ABSTRACT:
     
    52145214}
    52155215
    5216 void jjINT_S_TO_LIST(int n,int *e, leftv res)
    5217 {
    5218   lists l=(lists)omAlloc0Bin(slists_bin);
    5219   l->Init(n);
     5216void jjINT_S_TO_ID(int n,int *e, leftv res)
     5217{
     5218  if (n==0) n=1;
     5219  ideal l=idInit(n,1);
    52205220  int i;
    52215221  poly p;
     
    52255225    {
    52265226      n--;
    5227       l->m[n].rtyp=POLY_CMD;
    52285227      p=pOne();
    52295228      pSetExp(p,i,1);
    52305229      pSetm(p);
    5231       l->m[n].data=(char *)p;
     5230      l->m[n]=p;
    52325231      if (n==0) break;
    52335232    }
     
    52405239  int *e=(int *)omAlloc0((pVariables+1)*sizeof(int));
    52415240  int n=pGetVariables((poly)u->Data(),e);
    5242   jjINT_S_TO_LIST(n,e,res);
     5241  jjINT_S_TO_ID(n,e,res);
    52435242  return FALSE;
    52445243}
     
    52545253    n=pGetVariables(I->m[i],e);
    52555254  }
    5256   jjINT_S_TO_LIST(n,e,res);
     5255  jjINT_S_TO_ID(n,e,res);
    52575256  return FALSE;
    52585257}
Note: See TracChangeset for help on using the changeset viewer.