|
Текст подпрограммы и версий amz7r_c.zip , amz7d_c.zip |
Тексты тестовых примеров tamz7r_c.zip , tamz7d_c.zip |
Преобразование симметричной ленточной матрицы, заданной в компактной форме представления для симметричной матрицы, в компактную форму.
Симметричная ленточная матрица А порядка N с NС ко - диагоналями, заданная в компактной форме представления для симметричной матрицы, преобразуется в компактную форму представления. Таким образом, amz7r_c выполняет действие, обратное по отношению к подпрограмме amz6r_c.
int amz7r_c (real *a, integer *n, integer *nc, real *b)
Параметры
| a - | вещественный вектор длины n на (n + 1)/2, в котором задается симметричная ленточная матрица в компактной форме представления для симметричной матрицы; |
| n - | порядок матрицы (тип: целый); |
| nc - | число ко - диагоналей (тип: целый); |
| b - | вещественный двумерный массив размера n на (nc + 1), в котором запоминается исходная симметричная ленточная матрица в компактной форме представления. |
Версии
| amz7d_c - | преобразование симметричной ленточной матрицы, заданной с удвоенной точностью в компактной форме представления для симметричной матрицы, в компактную форму. |
Вызываемые подпрограммы: нет.
Замечания по использованию
|
Вектор a и массив b должны занимать разное место в памяти. В подпрограмме amz7d_c параметры a и b должны иметь тип double. |
int main(void)
{
/* Initialized data */
static float a[10] = { 1.1f,2.1f,2.2f,0.f,3.2f,3.3f,0.f,0.f,4.3f,4.4f };
/* Local variables */
extern int amz7r_c(float *, int *, int *, float *);
static float b[8] /* was [4][2] */;
static int n, nc, i__;
n = 4;
nc = 1;
amz7r_c(a, &n, &nc, b);
for (i__ = 0; i__ <= 6; i__+=2) {
printf("\n %16.7e %16.7e \n", b[i__], b[i__ + 1]);
}
return 0;
} /* main */
Результаты: b = ( 0., 2.1, 3.2, 4.3, 1.1, 2.2, 3.3, 4.4 )