... Вычисление евклидовой нормы вектора. ... 2 ) 1/2 function AV02R(var A :Array of Real; N :Integer): Real; . ... Unit tAv02r_p; interface uses SysUtils, Math, { Delphi } LStruct, Lfunc, UtRes_p, AV02R_p ; function tAv02r: String; implementation function tAv02r: String; var _i,N :Integer; Z : Real ; const A :Array [0..4] of Real = ( 1.0 , 1.0 ,2.0,3.0, 1.0 ); begin ReSULt := ''; Result := Result + Format('%s',[' A']); Result := Result + #$0D#$0A; for _i:=0 to 4 do begin Result := ...
... av02r.zip av02d.zip av02c.zip . ... Вычисление евклидовой нормы вектора. Для заданного вектора А длины N вычисляется евклидова норма || ... одномерный массив длины N, в котором задается исходный вектор (тип: вещественный); . ... размерность вектора А (тип: целый). ... вычисление евклидовой нормы вектора с повышенной точностью; . ... вычисление евклидовой нормы комплексного вектора; . ... Функция АV02R и ее версии могут быть использованы для вычисления евклидовой нормы матрицы (см. пример 2). ...
... asv1r.zip , asv1d.zip . ... Решение систем линейных алгебраических уравнений с матрицей Вандермонда. ASV1R вычисляет решение системы N линейных алгебраических уравнений с матрицей Вандермонда: | ... Решение системы данного вида с транспонированной матрицей осуществляется подпрограммой IP01R . ... вещественный вектор длины N, содержащий компоненты вычисленного вектора решения системы; . ... решение систем линейных алгебраических уравнений с матрицей Вандермонда в режиме удвоенной точности. ...
... Решение систем линейных алгебраических уравнений с матрицей Вандермонда. asv1r_c вычисляет решение системы N линейных алгебраических уравнений с матрицей Вандермонда: | ... Решение системы данного вида с транспонированной матрицей осуществляется подпрограммой ip01r_c . ... вещественный вектор длины n, компоненты которого равны коэффициентам x 1 , x 2 , ..., x n заданной матрицы системы; . ... решение систем линейных алгебраических уравнений с матрицей Вандермонда в режиме удвоенной точности. ...
... Решение системы линейных алгебраических уравнений с теплицевой матрицей. ... Решение системы уравнений с клеточно - теплицевыми матрицами. ... 24, Изд-во МГУ, 1975. int astar_c (real *a, real *x, real *r, integer *m) . ... порядок матрицы (тип: целый). astad_c - . решение системы линейных алгебраических уравнений с теплицевой матрицей, заданной с двойной точностью; . ... решение системы линейных алгебраических уравнений с комплексной теплицевой матрицей. ...
... ast4r.zip , ast4d.zip . ... ast4r_p.zip , ast4e_p.zip . ... Решение разреженной линейной системы с верхней треугольной матрицей с единичной диагональю, представленной в формате RR (U) U. Описание формата RR (U) U приведено в описании подпрограммы AM21R (индекс 18.8.16). ... заданный порядок системы (тип: целый); . ... решение разреженной линейной системы с верхней треугольной матрицей с единичной диагональю в режиме удвоенной точности; при этом параметры UN, B и X должны иметь тип DOUBLE PRECISION. ...
... Решение разреженной линейной системы с нижней треугольной матрицей с единичной диагональю, представленной в виде верхней треугольной в формате RR (U) U . ... Следовательно, матрица U T является нижней треугольной. Решение систем такого вида осуществляется прямой подстановкой по следующим расчетным формулам: x 1 = b 1 i -1 x i = b i - u k i x k , i = 2, 3, ..., n k =1 int ast5r_c (integer *iu, integer *ju, real *un, real *x, integer *n, real *b) . ... заданный порядок системы (тип: целый); . ...
... Решение разреженной линейной системы с нижней треугольной матрицей с единичной диагональю, представленной в виде верхней треугольной в формате RR (U) U . ... Следовательно, матрица U T является нижней треугольной. ... решение разреженной линейной системы с нижней треугольной матрицей с единичной диагональю, представленной в виде верхней треугольной в формате RR (U) U в режиме расширенной (Extended) точности; при этом параметры UN, X и B должны иметь тип Extended. ...
... ast5r.zip , ast5d.zip . ... ast5r_p.zip , ast5e_p.zip . ... Решение разреженной линейной системы с нижней треугольной матрицей с единичной диагональю, представленной в виде верхней треугольной в формате RR (U) U . ... Следовательно, матрица U T является нижней треугольной. Решение систем такого вида осуществляется прямой подстановкой по следующим расчетным формулам: x 1 = b 1 i -1 x i = b i - u k i x k , i = 2, 3, ..., n k =1 SUBROUTINE AST5R ( IU, JU, UN, X, N, B) . ...
... Решение разреженной линейной системы с верхней треугольной матрицей с единичной диагональю, представленной в формате RR (U) U . ... заданные портрет и ненулевые элементы верхней треугольной матрицы U с единичной диагональю в формате RR (U) U; . ... заданный порядок системы (тип: целый); . ... решение разреженной линейной системы с верхней треугольной матрицей с единичной диагональю в режиме расширенной (Extended) точности; при этом параметры UN, B и X должны иметь тип Extended. ...
... Решение разреженной линейной системы с верхней треугольной матрицей с единичной диагональю, представленной в формате RR (U) U. Описание формата RR (U) U приведено в описании подпрограммы am21r_c (индекс 18.8.16). ... заданные портрет и ненулевые элементы верхней треугольной матрицы U с единичной диагональю в формате RR (U) U; . ... вещественный одномерный массив длины n, содержащий компоненты вектора правой части системы; . ... заданный порядок системы (тип: целый); . ...
... Решение систем линейных алгебраических уравнений с разреженными матрицами методом сопряженных градиентов. ass1r_c вычисляет решение системы линейных алгебраических уравнений Ax = b (где A - квадратная матрица общего вида, в том числе разреженная, порядка N) с заданной точностью EPS методом сопряженных градиентов, а также сумму квадратов компонент вектора невязки Ax - b . ... порядок матрицы системы (тип: целый); . ... когда матрица системы вырождена; . ...
... Решение невырожденной разреженной линейной системы итерационным методом Гаусса - Зейделя (матрица системы представлена в формате RR (LU) U) . ... Перепишем i - е уравнение системы в виде: i -1 n a i j x j + a i i x i + a i j x j = b i j =1 j= i +1 . ... Описанный метод Гаусса - Зейделя реализован в виде подпрограммы ass2r_c. В этой подпрограмме не требуется задавать на входе начальное приближение к решению: оно вычисляется в ass2r_c по формуле x i (1) = b i /a i i . ...
... Решение невырожденной разреженной линейной системы итерационным методом Гаусса - Зейделя (матрица системы представлена в формате RR (LU) U) . ... Матрица A в этом формате представляется в виде суммы L + D + U, где L - нижняя треугольная, D - диагональная, U - верхняя треугольная матрицы. ... решение невырожденной разреженной линейной системы итерационным методом Гаусса - Зейделя в режиме расширенной (Extended) точности; при этом параметры AN, AD, B, X, Q и EPS должны иметь тип Extended. ...
... Решение невырожденной разреженной линейной системы итерационным методом Гаусса - Зейделя (матрица системы представлена в формате RR (LU) U). ... Матрица A в этом формате представляется в виде суммы L + D + U, где L - нижняя треугольная, D - диагональная, U - верхняя треугольная матрицы. ... Описанный метод Гаусса - Зейделя реализован в виде подпрограммы ASS2R. В этой подпрограмме не требуется задавать на входе начальное приближение к решению: оно вычисляется в ASS2R по формуле x i (1) = b i /a i i ....
... ass1r.zip , ass1d.zip . ... Решение систем линейных алгебраических уравнений с разреженными матрицами методом сопряженных градиентов. ASS1R вычисляет решение системы линейных алгебраических уравнений Ax = b (где A - квадратная матрица общего вида, в том числе разреженная, порядка N) с заданной точностью EPS методом сопряженных градиентов, а также сумму квадратов компонент вектора невязки Ax - b . ... порядок матрицы системы (тип: целый); . ... когда матрица системы вырождена; . ...