|
NAG[f08xsc] NAG[nag_zhgeqz] - Eigenvalues and generalized Schur factorization of complex generalized upper Hessenberg form reduced from a pair of complex general matrices
|
|
Calling Sequence
f08xsc(job, compq, compz, ilo, ihi, a, b, alpha, beta, q, z, 'n'=n, 'fail'=fail)
nag_zhgeqz(. . .)
Parameters
|
job - String;
|
|
|
On entry: specifies the operations to be performed on .
|
|
The matrix pair on exit might not be in the generalized Schur form.
|
|
The matrix pair on exit will be in the generalized Schur form.
|
|
Constraint: "Nag_EigVals" or "Nag_Schur". .
|
|
|
compq - String;
|
|
|
On entry: specifies the operations to be performed on :
|
|
The array q is unchanged.
|
|
The left transformation is accumulated on the array q.
|
|
The array q is initialized to the identity matrix before the left transformation is accumulated in q.
|
|
Constraint: "Nag_NotQ", "Nag_AccumulateQ" or "Nag_InitQ". .
|
|
|
compz - String;
|
|
|
On entry: specifies the operations to be performed on .
|
|
The array z is unchanged.
|
|
The right transformation is accumulated on the array z.
|
|
The array z is initialized to the identity matrix before the right transformation is accumulated in z.
|
|
Constraint: "Nag_NotZ", "Nag_AccumulateZ" or "Nag_InitZ". .
|
|
|
ilo - integer;
ihi - integer;
|
|
|
if , ;
|
|
|
a - Matrix(1..dim1, 1..dim2, datatype=complex[8], order=order);
|
|
|
Note: this array may be supplied in Fortran_order or C_order , as specified by order. All array parameters must use a consistent order.
|
|
On exit: if , the matrix pair will be simultaneously reduced to generalized Schur form.
|
|
|
b - Matrix(1..dim1, 1..dim2, datatype=complex[8], order=order);
|
|
|
Note: this array may be supplied in Fortran_order or C_order , as specified by order. All array parameters must use a consistent order.
|
|
On exit: if , the matrix pair will be simultaneously reduced to generalized Schur form.
|
|
|
alpha - Vector(1..dim, datatype=complex[8]);
|
|
|
Note: the dimension, dim, of the array alpha must be at least .
|
|
On exit: , for .
|
|
|
beta - Vector(1..dim, datatype=complex[8]);
|
|
|
Note: the dimension, dim, of the array beta must be at least .
|
|
On exit: , for .
|
|
|
q - Matrix(1..dim1, 1..dim2, datatype=complex[8], order=order);
|
|
|
Note: this array may be supplied in Fortran_order or C_order , as specified by order. All array parameters must use a consistent order.
|
|
If , q is not referenced.
|
|
On exit: if , q contains the matrix product .
|
|
If , q contains the transformation matrix .
|
|
|
z - Matrix(1..dim1, 1..dim2, datatype=complex[8], order=order);
|
|
|
Note: this array may be supplied in Fortran_order or C_order , as specified by order. All array parameters must use a consistent order.
|
|
If , z is not referenced.
|
|
On exit: if , z contains the matrix product .
|
|
If , z contains the transformation matrix .
|
|
|
'n'=n - integer; (optional)
|
|
|
Default value: the dimension of the arrays a, b, q, z.
|
|
Constraint: . .
|
|
|
'fail'=fail - table; (optional)
|
|
|
The NAG error argument, see the documentation for NagError.
|
|
|
|
Description
|
|
|
Purpose
|
|
nag_zhgeqz (f08xsc) implements the method for finding generalized eigenvalues of the complex matrix pair of order , which is in the generalized upper Hessenberg form.
|
|
Description
|
|
nag_zhgeqz (f08xsc) implements a single-shift version of the method for finding the generalized eigenvalues of the complex matrix pair which is in the generalized upper Hessenberg form. If the matrix pair is not in the generalized upper Hessenberg form, then the function f08wsc (nag_zgghrd) should be called before invoking nag_zhgeqz (f08xsc).
This problem is mathematically equivalent to solving the matrix equation
Note that, to avoid underflow, overflow and other arithmetic problems, the generalized eigenvalues are never computed explicitly by this function but defined as ratios between two computed values, and :
The arguments , in general, are finite complex values and are finite real non-negative values.
If desired, the matrix pair may be reduced to generalized Schur form. That is, the transformed matrices and are upper triangular and the diagonal values of and provide and .
The argument job specifies two options. If then the matrix pair is simultaneously reduced to Schur form by applying one unitary transformation (usually called ) on the left and another (usually called ) on the right. That is,
If then at each iteration the same transformations are computed but they are only applied to those parts of and which are needed to compute and . This option could be used if generalized eigenvalues are required but not generalized eigenvectors.
If and "Nag_AccumulateQ" or "Nag_InitQ" and "Nag_AccumulateZ" or "Nag_InitZ" then the unitary transformations used to reduce the pair are accumulated into the input arrays q and z. If generalized eigenvectors are required then job must be set to and if left (right) generalized eigenvectors are to be computed then compq (compz) must be set to "Nag_AccumulateQ" or "Nag_InitQ" rather than .
If , then eigenvectors are accumulated on the identity matrix and on exit the array q contains the left eigenvector matrix . However, if then the transformations are accumulated in the user-supplied matrix in array q on entry and thus on exit q contains the matrix product . A similar convention is used for compz.
|
|
Error Indicators and Warnings
|
|
"NE_ALLOC_FAIL"
Dynamic memory allocation failed.
"NE_BAD_PARAM"
On entry, argument had an illegal value.
"NE_CONVERGENCE"
An unexpected Library error has occurred.
The computation of shifts failed and the matrix pair is not inthe generalized Schur form.
The computation of shifts failed and the matrix pair is not inthe generalized Schur form.The computed and should be correctfor .
The iteration did not converge and the matrix pair is notin the generalized Schur form.
The iteration did not converge and the matrix pair is notin the generalized Schur form.The computed and should be correctfor .
"NE_ENUM_INT"
On entry, , . Constraint: .
On entry, , . Constraint: .
"NE_INT"
On entry, . Constraint: .
"NE_INT_3"
On entry, , , . Constraint: if , and .
On entry, , , . Constraint: if , .
"NE_INTERNAL_ERROR"
An internal error has occurred in this function. Check the function call and any array sizes. If the call is correct then please consult NAG for assistance.
|
|
Accuracy
|
|
Please consult section 4.11 of the LAPACK Users' Guide (see Anderson et al. (1999)) and Chapter 6 of Stewart and Sun (1990), for more information.
|
|
Further Comments
|
|
nag_zhgeqz (f08xsc) is the fifth step in the solution of the complex generalized eigenvalue problem and is called after f08wsc (nag_zgghrd).
The number of floating-point operations taken by this function is proportional to .
The real analogue of this function is f08xec (nag_dhgeqz).
|
|
|
Examples
|
|
>
|
job := "Nag_EigVals":
compq := "Nag_NotQ":
compz := "Nag_NotZ":
n := 4:
ilo := 1:
ihi := 4:
a := Matrix([[-2.867890104378766 -1.594524360587801*I , -0.8093370986045512 -0.3276607283529616*I , -4.900373446187322 -0.9865105961392631*I , -0.04834623303200331 +1.162636735910676*I ], [-2.671939461604617 +0.5945064559939084*I , -0.7895240421486815 +0.04903482075256885*I , -4.954929775736536 -0.1634387045312766*I , -0.4386325532444374 -0.5739313215365648*I ], [0 +0*I , -0.09825782595898001 -0.01149417965898417*I , -1.167669110453882 -0.1365936851015442*I , -1.75623267685277 -0.2054437263770889*I ], [0 +0*I , 0 +0*I , 0.08729329881919182 +0.00381953101438803*I , 0.03170217359735437 +0.001387133226909325*I ]], datatype=complex[8]):
b := Matrix([[-1.774823934929885 +0*I , -0.7210490086119122 +0.04290055077107138*I , -5.020721861715562 +1.189845102979986*I , -0.1450254390211465 +0.7257437885879221*I ], [0 +0*I , -0.217628152621978 +0.03516041416104877*I , -2.541102900685027 -0.1458063680541921*I , -0.8228500482725263 -0.4184333588843832*I ], [0 +0*I , 0 +0*I , -1.395782135347729 -0.1632782984144701*I , -1.747484189780421 -0.2044203302132472*I ], [0 +0*I , 0 +0*I , 0 +0*I , -0.09963146114886502 -0.004359389105629686*I ]], datatype=complex[8]):
alpha := Vector(4, datatype=complex[8]):
beta := Vector(4, datatype=complex[8]):
q := Matrix([[0 +0*I ]], datatype=complex[8]):
z := Matrix([[0 +0*I ]], datatype=complex[8]):
NAG:-f08xsc(job, compq, compz, ilo, ihi, a, b, alpha, beta, q, z, 'n' = n):
|


|
|
See Also
|
|
Anderson E, Bai Z, Bischof C, Blackford S, Demmel J, Dongarra J J, Du Croz J J, Greenbaum A, Hammarling S, McKenney A and Sorensen D (1999) LAPACK Users' Guide (3rd Edition) SIAM, Philadelphia
Golub G H and Van Loan C F (1996) Matrix Computations (3rd Edition) Johns Hopkins University Press, Baltimore
Moler C B and Stewart G W (1973) An algorithm for generalized matrix eigenproblems SIAM J. Numer. Anal. 10 241–256
Stewart G W and Sun J-G (1990) Matrix Perturbation Theory Academic Press, London
f08 Chapter Introduction.
NAG Toolbox Overview.
NAG Web Site.
|
|