|
NAG[f08qyc] NAG[nag_ztrsna] - Estimates of sensitivities of selected eigenvalues and eigenvectors of complex upper triangular matrix
|
|
Calling Sequence
f08qyc(job, how_many, select, t, vl, vr, s, sep, m, 'n'=n, 'mm'=mm, 'fail'=fail)
nag_ztrsna(. . .)
Parameters
|
job - String;
|
|
|
On entry: indicates whether condition numbers are required for eigenvalues and/or eigenvectors.
|
|
Condition numbers for eigenvalues only are computed.
|
|
Condition numbers for eigenvectors only are computed.
|
|
Condition numbers for both eigenvalues and eigenvectors are computed.
|
|
Constraint: "Nag_EigVals", "Nag_EigVecs" or "Nag_DoBoth". .
|
|
|
how_many - String;
|
|
|
On entry: indicates how many condition numbers are to be computed.
|
|
Condition numbers for all eigenpairs are computed.
|
|
Condition numbers for selected eigenpairs (as specified by select) are computed.
|
|
Constraint: "Nag_ComputeAll" or "Nag_ComputeSelected". .
|
|
|
select - Vector(1..dim, datatype=boolean);
|
|
|
Note: the dimension, dim, of the array select must be at least
|
|
when ;
|
|
otherwise.
|
|
If , select is not referenced.
|
|
|
t - 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.
|
|
|
vl - 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 , vl is not referenced.
|
|
|
vr - 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 , vr is not referenced.
|
|
|
s - Vector(1..dim, datatype=float[8]);
|
|
|
Note: the dimension, dim, of the array s must be at least
|
|
when .
|
|
s is not referenced if .
|
|
|
sep - Vector(1..dim, datatype=float[8]);
|
|
|
Note: the dimension, dim, of the array sep must be at least
|
|
when .
|
|
On exit: the estimated reciprocal condition numbers of the selected right eigenvectors if "Nag_EigVecs" or "Nag_DoBoth", stored in consecutive elements of the array.
|
|
If , sep is not referenced i.
|
|
|
m - assignable;
|
|
|
Note: On exit the variable m will have a value of type integer.
|
|
|
'n'=n - integer; (optional)
|
|
|
Default value: the dimension of the array t.
|
|
On entry: , the order of the matrix .
|
|
Constraint: . .
|
|
|
'mm'=mm - integer; (optional)
|
|
|
Default value: the second dimension of the arrays vl, vr.
|
|
Constraint: . .
|
|
|
'fail'=fail - table; (optional)
|
|
|
The NAG error argument, see the documentation for NagError.
|
|
|
|
Description
|
|
|
Purpose
|
|
nag_ztrsna (f08qyc) estimates condition numbers for specified eigenvalues and/or right eigenvectors of a complex upper triangular matrix.
|
|
Error Indicators and Warnings
|
|
"NE_ALLOC_FAIL"
Dynamic memory allocation failed.
"NE_BAD_PARAM"
On entry, argument had an illegal value.
"NE_INT"
On entry, . Constraint: , where is the number of selected eigenpairs.
On entry, . Constraint: .
"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
|
|
The computed values may over estimate the true value, but seldom by a factor of more than 3.
|
|
|
Examples
|
|
>
|
job := "Nag_DoBoth":
how_many := "Nag_ComputeAll":
n := 4:
mm := 4:
selector := Vector([false], datatype=boolean):
t := Matrix([[-6.0004 -6.9999*I , 0.3637 -0.3656*I , -0.188 +0.4787*I , 0.8784999999999999 -0.2539*I ], [0 +0*I , -5 +2.006*I , -0.0307 -0.7217*I , -0.229 +0.1313*I ], [0 +0*I , 0 +0*I , 7.9982 -0.9964*I , 0.9357 +0.5359*I ], [0 +0*I , 0 +0*I , 0 +0*I , 3.0023 -3.9998*I ]], datatype=complex[8]):
vl := Matrix([[1 +0*I , 0 +0*I , 0 +0*I , 0 +0*I ], [0.03566943515948521 -0.04434689513913646*I , 1 +0*I , 0 +0*I , 0 +0*I ], [-0.002207376074206878 +0.03131341253433394*I , -0.009933197113414047 -0.05322864465746686*I , 1 +0*I , 0 +0*I ], [-0.07824388063236407 -0.05827078558456029*I , 0.03187495330451339 -0.001955906687244087*I , 0.1849408889864735 +0.003913502268254905*I , 1 +0*I ]], datatype=complex[8]):
vr := Matrix([[1 +0*I , -0.03566943515948521 -0.04434689513913646*I , -0.0005074605791794693 +0.03277154177278578*I , 0.0792597025312869 -0.06285024830308554*I ], [0 +0*I , 1 +0*I , 0.009933197113414047 -0.05322864465746686*I , -0.03350369718754292 +0.007927119764687306*I ], [0 +0*I , 0 +0*I , 1 +0*I , -0.1849408889864735 +0.003913502268254905*I ], [0 +0*I , 0 +0*I , 0 +0*I , 1 +0*I ]], datatype=complex[8]):
s := Vector(4, datatype=float[8]):
sep := Vector(4, datatype=float[8]):
NAG:-f08qyc(job, how_many, selector, t, vl, vr, s, sep, m, 'n' = n, 'mm' = mm):
|
|
|