Текст подпрограммы и версий
aeh3c_c.zip , aeh3p_c.zip
Тексты тестовых примеров
taeh3c_c.zip , taeh3p_c.zip

Подпрограмма:  aeh3c_c

Назначение

Вычисление собственных значений, принадлежащих заданному интервалу, их номеров и соответствующих собственных векторов комплексной эрмитовой матрицы.

Математическое описание

Комплексная эрмитова матрицa  А последовательностью унитарных подобных преобразований приводится к симметричной трехдиагональной форме F = V*Q*AQV (где  Q - произведение унитарных матриц,  V - унитарная диагональная матрица), используемой для вычисления собственных значений, заданных в интервале, и их номеров методом бисекций. Собственные векторы, соответствующие вычисленным собственным значениям вычисляются методом обратной итерации, при этом связь между векторами матриц  А и  F определяется следующим соотношением: x = QVy.

Уилкинсон, Pайнш. "Справочник алгоритмов на языке АЛГОЛ. Линейная алгебра", М., "Машиностроение", 1976.

Использование

    int aeh3c_c (integer *n, real *ar, real *ai, real *vr, real *
        vi, real *ev, real *rlb, real *rub, integer *mm, integer *m, integer *
        irab, real *rab1, real *rab2, integer *ierr)

Параметры

n - порядок исходной матрицы (тип: целый);
ar, ai - вещественные двумерные массивы размера n на n, содержащие соответственно действительную и мнимую части исходной матрицы; в подпрограмме используется только полный нижний треугольник матрицы AI и строгий нижний треугольник матрицы AR;
vr, vi - вещественные двумерные массивы размера n на mm, содержащие соответственно действительную и мнимую части вычисленных ортонормированных собственных векторов;
ev - вещественный вектор длины mm, содержащий вычисленные в возрастающем порядке собственные значения, принадлежащие заданному интервалу;
      rlb -
      rub  
заданные нижняя и верхняя границы интервала собственных значений (тип: вещественный); если rlb > rub, то собственные значения не вычисляются;
mm - оценка сверху числа собственных значений исходной матрицы, принадлежащих заданному интервалу, mm ≤ n (тип: целый); если вычисленное число  m собственных значений, принадлежащих заданному интервалу, больше, чем mm, то собственные значения и соответствующие собственные векторы не вычисляются;
m - целая переменная, в которой запоминается вычисленное число собственных значений, принадлежащих заданному интервалу;
irab - целый вектор длины mm, содержащий индексы расположенных в возрастающем порядке  m собственных значений;
rab1 - вещественный двумерный массив размера 2 на n, используемый как рабочий;
rab2 - вещественный вектор длины 8 на n, используемый как рабочий;
ierr - целая переменная, служащая для сообщения об ошибках, обнаруженных в ходе работы подпрограммы; при этом:
ierr = 3*n + 1 - если значение mm меньше числа  m вычисленных собственных значений на интервале; при этом собственные значения и соответствующие собственные векторы не вычисляются;
ierr = - k - если для вычисления собственного вектора с индексом  k потребовалось более 5 итераций; при этом компоненты этого вектора полагаются равными нулю. Если таких собственных векторов несколько, то значение ierr полагается равным индексу последнего из них.

Версии

aeh3p_c - вычисление собственных значений, принадлежащих заданному интервалу, их номеров и соответствующих собственных векторов комплексной эрмитовой матрицы, заданной с удвоенной точностью. Массивы ar, ai, vr, vi, ev, rab1, rab2 и переменные rlb, rub имеют тип double.

Вызываемые подпрограммы

utae10_c - подпрограмма выдачи диагностических сообщений при работе подпрограмм aeh3c_c и aeh3p_c.

Замечания по использованию

  Подпрограммы aeh3c_c и aeh3p_c сохраняют полный верхний треугольник массива ar и строгий верхний треугольник массива ai, остальные элементы массивов ar и ai используются как рабочие.
  Подпрограмма aeh3c_c использует служебные подпрограммы aer4r_c, aer6r_c, aer7r_c, aer14r_c.
Подпрограмма aeh3p_c использует служебные подпрограммы aa01p_c, aer4d_c, aer6d_c, aer7d_c, aer14d_c.

Пример использования

int main(void)
{
    /* Initialized data */
    static float ar[16] /* was [4][4] */ = { 1.f,.42f,.54f,.66f,.42f,1.f,.32f,
                                 .44f,.54f,.32f,1.f,.22f,.66f,.44f,.22f,1.f };
    static float ai[16] /* was [4][4] */ = { 0.f,0.f,0.f,0.f,0.f,0.f,0.f,0.f,
                                             0.f,0.f,0.f,0.f,0.f,0.f,0.f,0.f };
    /* Local variables */
    static int ierr;
    extern int aeh3c_c(int *, float *, float *, float *, float *, float *,
                       float *, float *, int *, int *, int *,
                       float *, float *, int *);
    static int irab1[3], i__, m, n, mm;
    static float ev[3], vi[12] /* was [4][3] */,
                        vr[12] /* was [4][3] */, rlb, rub,
                       rab1[8] /* was [2][4] */, rab2[32];

#define ai_ref(a_1,a_2) ai[(a_2)*4 + a_1 - 5]
#define ar_ref(a_1,a_2) ar[(a_2)*4 + a_1 - 5]
#define vi_ref(a_1,a_2) vi[(a_2)*4 + a_1 - 5]
#define vr_ref(a_1,a_2) vr[(a_2)*4 + a_1 - 5]

    for (i__ = 1; i__ <= 4; ++i__) {
        printf("\n %16.7e %16.7e %16.7e %16.7e \n",
            ar_ref(i__, 1), ar_ref(i__, 2), ar_ref(i__, 3), ar_ref(i__, 4));
    }
    for (i__ = 1; i__ <= 4; ++i__) {
        printf("\n %16.7e %16.7e %16.7e %16.7e \n",
            ai_ref(i__, 1), ai_ref(i__, 2), ai_ref(i__, 3), ai_ref(i__, 4));
    }
    n = 4;
    mm = 3;
    rlb = 0.f;
    rub = 1.f;
    aeh3c_c(&n, ar, ai, vr, vi, ev, &rlb, &rub, &mm, &m, irab1, rab1, rab2,
            &ierr);

    for (i__ = 1; i__ <= 4; ++i__) {
        printf("\n %16.7e %16.7e %16.7e %16.7e \n",
            ar_ref(i__, 1), ar_ref(i__, 2), ar_ref(i__, 3), ar_ref(i__, 4));
    }
    for (i__ = 1; i__ <= 4; ++i__) {
        printf("\n %16.7e %16.7e %16.7e %16.7e \n",
            ai_ref(i__, 1), ai_ref(i__, 2), ai_ref(i__, 3), ai_ref(i__, 4));
    }
    printf("\n %16.7e %16.7e %16.7e \n", ev[0], ev[1], ev[2]);
    for (i__ = 1; i__ <= 4; ++i__) {
        printf("\n %16.7e %16.7e %16.7e \n",
            vr_ref(i__, 1), vr_ref(i__, 2), vr_ref(i__, 3));
    }
    for (i__ = 1; i__ <= 4; ++i__) {
        printf("\n %16.7e %16.7e %16.7e \n",
            vi_ref(i__, 1), vi_ref(i__, 2), vi_ref(i__, 3));
    }
    printf("\n %5i \n", ierr);
    return 0;
} /* main */


Результаты:

Собственные значения в интервале (0., 1.):

                  |  0.242260708  |       
       ev  =  |  0.638283803  |   ,
                  |  0.796706689  |

Собственные векторы, соответствующие вычисленным
в интервале (0., 1.) собственным значениям:
 
                  |  - 0.718845953  |                             |  - 0.380449882   |
       v1  =  |  - 0.095698981  |   ,              v2  =  |    0.850275473   |   ,
                  |    0.387435463   |                             |    0.035889606   |
                  |    0.569206432   |                             |  - 0.361941215  |

                  |    0.050328449  |
       v3  =  |  - 0.237226458  |   ,
                  |    0.812846171  |
                  |  - 0.529595844  |

       ierr  =  0