diff options
author | Sandeep Gupta | 2017-06-21 12:42:02 +0530 |
---|---|---|
committer | Sandeep Gupta | 2017-06-21 12:42:02 +0530 |
commit | d8c9e974d3ce553198b487dadc51c7612e92de85 (patch) | |
tree | 7dc3555c1675960321ce93b2df81915f2b8840e7 /src/c/linearAlgebra/pbig | |
parent | 681fe5c15be0a3a29dc9fdfa30142916a2ce6675 (diff) | |
parent | e92d6c6791aae06053637ad3bf6b0f9d8986986c (diff) | |
download | Scilab2C_fossee_old-d8c9e974d3ce553198b487dadc51c7612e92de85.tar.gz Scilab2C_fossee_old-d8c9e974d3ce553198b487dadc51c7612e92de85.tar.bz2 Scilab2C_fossee_old-d8c9e974d3ce553198b487dadc51c7612e92de85.zip |
Updated - Linear Algebra
Diffstat (limited to 'src/c/linearAlgebra/pbig')
-rw-r--r-- | src/c/linearAlgebra/pbig/pbig.c | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/src/c/linearAlgebra/pbig/pbig.c b/src/c/linearAlgebra/pbig/pbig.c new file mode 100644 index 0000000..c13a942 --- /dev/null +++ b/src/c/linearAlgebra/pbig/pbig.c @@ -0,0 +1,35 @@ +/* Copyright (C) 2017 - IIT Bombay - FOSSEE + + This file must be used under the terms of the CeCILL. + This source file is licensed as described in the file COPYING, which + you should have received as part of this distribution. The terms + are also available at + http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt + Author: Sandeep Gupta + Organization: FOSSEE, IIT Bombay + Email: toolbox@scilab.in + */ + +/*This function finds the hessenberg form of a matrix A.*/ + +#include "schur.h" +#include <stdio.h> +#include "string.h" +#include "stdlib.h" +#include "lapack.h" + +//Projection on eigensubspace associated with eigenvalues +//with real part >= thres (flag='c') or with modulus >= thres (flag='d') +//Projection is defined by Q*M. Eigenvalues of M*A*Q = eigenvalues +//of A with real part >= thres (case 'c',...). +//If [Q1,M1]== full rank factorization (fullrf) of eye-Q*M then evals of +// M1*A*Q1 = evals of A with real part < thres (case 'c',...). +// See also psmall. +//! + +void dpbiga(double *in1,int N,double *in2,double *in3,double *out1,double *out2){ + + + + +} |