Changeset 7656d7 in git


Ignore:
Timestamp:
Feb 16, 2002, 7:26:08 PM (22 years ago)
Author:
Mathias Schulze <mschulze@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
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.