Changeset 7656d7 in git


Ignore:
Timestamp:
Feb 16, 2002, 7:26:08 PM (21 years ago)
Author:
Mathias Schulze <mschulze@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'f875bbaccd0831e36aaed09ff6adeb3eb45aeb94')
Children:
ebcda0c47fce53217b409edb6303bb31e69e3ef4
Parents:
f7920d74712be88b8563c04fb13d4ae609e1ca9a
Message:
*** empty log message ***


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

Legend:

Unmodified
Added
Removed

  • Singular/LIB/linalg.lib

    rf7920d7 r7656d7  
    11//GMG last modified: 04/25/2000
    22//////////////////////////////////////////////////////////////////////////////
    3 version="$Id: linalg.lib,v 1.24 2002-02-16 13:50:19 mschulze Exp $";
     3version="$Id: linalg.lib,v 1.25 2002-02-16 18:26:08 mschulze Exp $";
    44category="Linear Algebra";
    55info="
    … …  
    12491249"
    12501250{
    1251   return(system("eigenvalues",M));
     1251  return(system("eigenvals",M));
    12521252}
    12531253example

  • Singular/eigenval.cc

    rf7920d7 r7656d7  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: eigenval.cc,v 1.8 2002-02-16 18:07:49 mschulze Exp $ */
     4/* $Id: eigenval.cc,v 1.9 2002-02-16 18:26:07 mschulze Exp $ */
    55/*
    66* ABSTRACT: eigenvalues of constant square matrices
    … …  
    223223
    224224
    225 lists evEigenvalue(matrix M)
     225lists evEigenvals(matrix M)
    226226{
    227227  lists l=(lists)omAllocBin(slists_bin);
    … …  
    232232  }
    233233
    234   M=(matrix)idJet((ideal)M,0);
    235 
    236   M=evHessenberg(M);
     234  M=evHessenberg((matrix)idJet((ideal)M,0));
    237235
    238236  int n=MATROWS(M);
    … …  
    366364
    367365
    368 BOOLEAN evEigenvalue(leftv res,leftv h)
     366BOOLEAN evEigenvals(leftv res,leftv h)
    369367{
    370368  if(currRingHdl)
    … …  
    374372      matrix M=(matrix)h->Data();
    375373      res->rtyp=LIST_CMD;
    376       res->data=(void*)evEigenvalue(mpCopy(M));
     374      res->data=(void*)evEigenvals(mpCopy(M));
    377375      return FALSE;
    378376    }

  • Singular/eigenval.h

    rf7920d7 r7656d7  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: eigenval.h,v 1.2 2002-02-16 10:56:19 mschulze Exp $ */
     4/* $Id: eigenval.h,v 1.3 2002-02-16 18:26:07 mschulze Exp $ */
    55/*
    66* ABSTRACT: eigenvalues of constant square matrices
    … …  
    1818matrix evHessenberg(matrix M);
    1919BOOLEAN evHessenberg(leftv res,leftv h);
    20 lists evEigenvalue(matrix M);
    21 BOOLEAN evEigenvalue(leftv res,leftv h);
     20lists evEigenvals(matrix M);
     21BOOLEAN evEigenvals(leftv res,leftv h);
    2222
    2323#endif /* EIGENVAL_H */

  • Singular/extra.cc

    rf7920d7 r7656d7  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: extra.cc,v 1.178 2002-02-16 18:07:28 mschulze Exp $ */
     4/* $Id: extra.cc,v 1.179 2002-02-16 18:26:07 mschulze Exp $ */
    55/*
    66* ABSTRACT: general interface to internals of Singular ("system" command)
    … …  
    14631463/*==================== eigenvalues ==================================*/
    14641464#ifdef HAVE_EIGENVAL
    1465     if(strcmp(sys_cmd,"eigenvalues")==0)
    1466     {
    1467       return evEigenvalue(res,h);
     1465    if(strcmp(sys_cmd,"eigenvals")==0)
     1466    {
     1467      return evEigenvals(res,h);
    14681468    }
    14691469    else
Note: See TracChangeset for help on using the changeset viewer.