|
Текст подпрограммы и версий amy2r_c.zip , amy2d_c.zip , amy2c_c.zip |
Тексты тестовых примеров tamy2r_c.zip , tamy2d_c.zip , tamy2c_c.zip |
Вычисление первой нормы матрицы.
amy2r_c вычисляет первую норму матрицы А порядка N:
N
max ∑ | a i j | , j = 1, 2, ..., N .
j i =1
real amy2r_c (real *a, integer *n)
Параметры
| a - | вещественный двумерный массив размера n на n, в котором задается исходная матрица; |
| n - | заданный порядок матрицы (тип: целый). |
Версии
| amy2d_c - | вычисление первой нормы матрицы, заданной с удвоенной точностью. |
| amy2c_c - | вычисление первой нормы комплексной матрицы. |
Вызываемые подпрограммы
|
avz1r_c - avz1d_c avz1c_c | вычисление суммы абсолютных значений компонент вектора или заданного подмножества компонент этого вектора для случаев, когда вектор задан с обычной или удвоенной точностью и комплексного вектора соответственно. Используются в amy2r_c, amy2d_c и amy2c_c соответственно. |
Замечания по использованию
|
В функции amy2d_c массив a должен иметь тип double. В функции amy2c_c массив a должен иметь тип complex. |
int main(void)
{
/* Initialized data */
static float a[16] /* was [4][4] */ = { 1.f,2.f,3.f,5.f,2.f,3.f,4.f,1.f,
3.f,4.f,1.f,2.f,4.f,1.f,2.f,3.f };
/* Local variables */
extern float amy2r_c(float *, int *);
static int n;
static float y;
n = 4;
y = (float)amy2r_c(a, &n);
printf("\n %16.7e \n", y);
return 0;
} /* main */
Результат: y = 11.