|
From: | Riccardo Corradini |
Subject: | rsf2csf from Matlab to Octave |
Date: | Wed, 26 Sep 2007 11:03:43 +0200 (CEST) |
Is this the correct translation?
% [W,d] = eig(T,Y);
[OCTAA, OCTBB, OCTQ, OCTZ, OCTV, W, OCTlambda] = qz (T, Y);
d = diag(OCTlambda);
Hope so
Thanks
Riccardo
Rolf Fabian <address@hidden> ha scritto:
'rsf2csf' has been part of octave-forge for many years.
Unfortunately it had to be removed because of license issues.
We urgently need a legal replacement.
Rolf Fabian
< r.fabian @ jacobs-university dot de >
Riccardo Corradini wrote:
>
> Am I right if I use
> [D, RCOND] = det (A)
> istead for Matlab rcond(A)?
> Finally
> I used this function I found in the mailing list archive
> ## 2001-03-07 Ross Lippert
> ## * adapted from rlab, using a slightly different similarity transform
> ## 2001-03-08 Paul Kienzle
> ## * cleanup; add Rolf Fabians comment about direct csf computation
>
> function [U, T] = rsf2csf (U, T)
>
> if (nargin != 2)
> usage ("[U,T] = rsf2csf (U, T)");
> endif
>
> ## Find complex unitary similarities to zero the subdiagonal elements.
> n = columns (T);
> if (n > 1)
> idx = find (diag (T, -1))';
> for m = idx
> k = m:m+1;
> d = eig (T (k, k));
> cs = [ T(m+1,m+1)-d(1), -T(m+1,m) ];
> cs = cs / norm (cs);
> G = [ conj(cs); cs(2), -cs(1) ];
> T (k, m:n) = G' * T (k, m:n);
> T (1:m+1, k) = T (1:m+1, k) * G;
> U (:, k) = U (:, k) * G;
> T (m+1, m) = 0;
> endfor
> endif
>
> endfunction
>
> Why is not included in Octave-forge?
> Thanks
> Riccardo
>
> David Bateman ha scritto: Riccardo Corradini
> wrote:
>> Hi all,
>> I am trying to use the e4 toolbox for matlab in octave 2.9.13
>> but unfortunately
>> I found the following instruction
>> [W,d] = eig(T,Y);
>> not compatible with eig of octave
>> Are there any hints concerning this issue?
>> Thanks a lot to all
>> Respectfully
>> Riccardo
>>
>> ------------------------------------------------------------------------
>> ------------------------------------------------------------------------
>>
> Use the "qz" function
>
> D.
>
> --
> David Bateman address@hidden
> Motorola Labs - Paris +33 1 69 35 48 04 (Ph)
> Parc Les Algorithmes, Commune de St Aubin +33 6 72 01 06 33 (Mob)
> 91193 Gif-Sur-Yvette FRANCE +33 1 69 35 77 01 (Fax)
>
> The information contained in this communication has been classified as:
>
> [x] General Business Information
> [ ] Motorola Internal Use Only
> [ ] Motorola Confidential Proprietary
>
>
>
>
> ---------------------------------
>
> ---------------------------------
> L'email della prossima generazione? Puoi averla con la nuova Yahoo! Mail
> _______________________________________________
> Help-octave mailing list
> address@hidden
> https://www.cae.wisc.edu/mailman/listinfo/help-octave
>
>
--
View this message in context: http://www.nabble.com/eig-from-Matlab-to-Octave-tf4464872.html#a12739009
Sent from the Octave - General mailing list archive at Nabble.com.
_______________________________________________
Help-octave mailing list
address@hidden
https://www.cae.wisc.edu/mailman/listinfo/help-octave
L'email della prossima generazione? Puoi averla con la nuova Yahoo! Mail_______________________________________________
Help-octave mailing list
address@hidden
https://www.cae.wisc.edu/mailman/listinfo/help-octave
#include <CmplxSCHUR.h>
Public Types | |
typedef octave_idx_type(*) | select_function (const Complex &) |
Public Member Functions | |
ComplexSCHUR (const ComplexSCHUR &a) | |
ComplexSCHUR (const ComplexMatrix &a, const std::string &ord, octave_idx_type &info, bool calc_unitary=true) | |
ComplexSCHUR (const ComplexMatrix &a, const std::string &ord, bool calc_unitary=true) | |
ComplexSCHUR (void) | |
ComplexSCHUR & | operator= (const ComplexSCHUR &a) |
ComplexMatrix | schur_matrix (void) const |
ComplexMatrix | unitary_matrix (void) const |
~ComplexSCHUR (void) | |
Private Member Functions | |
octave_idx_type | init (const ComplexMatrix &a, const std::string &ord, bool calc_unitary) |
Private Attributes | |
ComplexMatrix | schur_mat |
select_function | selector |
ComplexMatrix | unitary_mat |
Friends | |
std::ostream & | operator<< (std::ostream &os, const ComplexSCHUR &a) |
Definition at line 32 of file CmplxSCHUR.h.
F77_RET_T ComplexSCHUR::select_function |
Definition at line 70 of file CmplxSCHUR.h.
ComplexSCHUR::ComplexSCHUR | ( | void | ) | [inline] |
Definition at line 38 of file CmplxSCHUR.h.
ComplexSCHUR::ComplexSCHUR | ( | const ComplexMatrix & | a, | |
const std::string & | ord, | |||
bool | calc_unitary = true | |||
) | [inline] |
Definition at line 41 of file CmplxSCHUR.h.
ComplexSCHUR::ComplexSCHUR | ( | const ComplexMatrix & | a, | |
const std::string & | ord, | |||
octave_idx_type & | info, | |||
bool | calc_unitary = true | |||
) | [inline] |
Definition at line 45 of file CmplxSCHUR.h.
ComplexSCHUR::ComplexSCHUR | ( | const ComplexSCHUR & | a | ) | [inline] |
Definition at line 49 of file CmplxSCHUR.h.
ComplexSCHUR::~ComplexSCHUR | ( | void | ) | [inline] |
Definition at line 62 of file CmplxSCHUR.h.
octave_idx_type ComplexSCHUR::init | ( | const ComplexMatrix & | a, | |
const std::string & | ord, | |||
bool | calc_unitary | |||
) | [private] |
Definition at line 61 of file CmplxSCHUR.cc.
ComplexSCHUR& ComplexSCHUR::operator= | ( | const ComplexSCHUR & | a | ) | [inline] |
Definition at line 52 of file CmplxSCHUR.h.
ComplexMatrix ComplexSCHUR::schur_matrix | ( | void | ) | const [inline] |
Definition at line 64 of file CmplxSCHUR.h.
ComplexMatrix ComplexSCHUR::unitary_matrix | ( | void | ) | const [inline] |
Definition at line 66 of file CmplxSCHUR.h.
std::ostream& operator<< | ( | std::ostream & | os, | |
const ComplexSCHUR & | a | |||
) | [friend] |
ComplexMatrix ComplexSCHUR::schur_mat [private] |
Definition at line 74 of file CmplxSCHUR.h.
select_function ComplexSCHUR::selector [private] |
Definition at line 77 of file CmplxSCHUR.h.
ComplexMatrix ComplexSCHUR::unitary_mat [private] |
Definition at line 75 of file CmplxSCHUR.h.
ComplexSCHUR(void) | ComplexSCHUR | [inline] |
ComplexSCHUR(const ComplexMatrix &a, const std::string &ord, bool calc_unitary=true) | ComplexSCHUR | [inline] |
ComplexSCHUR(const ComplexMatrix &a, const std::string &ord, octave_idx_type &info, bool calc_unitary=true) | ComplexSCHUR | [inline] |
ComplexSCHUR(const ComplexSCHUR &a) | ComplexSCHUR | [inline] |
init(const ComplexMatrix &a, const std::string &ord, bool calc_unitary) | ComplexSCHUR | [private] |
operator<<(std::ostream &os, const ComplexSCHUR &a) | ComplexSCHUR | [friend] |
operator=(const ComplexSCHUR &a) | ComplexSCHUR | [inline] |
schur_mat | ComplexSCHUR | [private] |
schur_matrix(void) const | ComplexSCHUR | [inline] |
select_function typedef | ComplexSCHUR | |
selector | ComplexSCHUR | [private] |
unitary_mat | ComplexSCHUR | [private] |
unitary_matrix(void) const | ComplexSCHUR | [inline] |
~ComplexSCHUR(void) | ComplexSCHUR | [inline] |
[Prev in Thread] | Current Thread | [Next in Thread] |