|
Текст подпрограммы и версий ( Фортран ) avz2r.zip avz2d.zip avz2c.zip |
Тексты тестовых примеров ( Фортран ) tavz2r.zip tavz2d.zip tavz2c.zip |
|
Текст подпрограммы и версий ( Си ) avz2r_c.zip avz2d_c.zip avz2c_c.zip |
Тексты тестовых примеров ( Си ) tavz2r_c.zip tavz2d_c.zip tavz2c_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) avz2r_p.zip avz2e_p.zip avz2c_p.zip |
Тексты тестовых примеров ( Паскаль ) tavz2r_p.zip tavz2e_p.zip tavz2c_p.zip |
Нахождение максимальной по модулю компоненты и ее индекса из всего вектора или из заданного подмножества компонент этого вектора.
АVZ2R находит максимальную по модулю компоненту вектора V длины N и ее индекс. Кроме того, может быть найдена максимальная по модулю компонента и ее индекс из множества тех компонент, индексы которых последовательно отстают друг от друга на величину ISТЕР.
REAL FUNCTION AVZ2R (V, N, ISTEP, J)
Параметры
| V - | вещественный одномерный массив длины N, в котором задаются компоненты исходного вектора; |
| N - | заданное число компонент вектора (тип: целый); |
| ISTEP - | заданный шаг изменения индексов тех компонент вектора, из которых ищется максимальная по модулю; |
| J - | целая переменная, содержащая индекс максимальной по модулю компоненты. |
Версии
| AVZ2D - | нахождение максимальной по модулю компоненты и ее индекса из всего вектора, заданного с удвоенной точностью, или из заданного подмножества компонент этого вектора. |
| AVZ2C - | нахождение максимальной по модулю компоненты и ее индекса из всего комплексного вектора или из заданного подмножества компонент этого вектора. |
Вызываемые подпрограммы: нет
Замечания по использованию
|
В функции АVZ2D вектор V должен иметь тип DОUВLЕ РRЕСISIОN. В функции АVZ2С вектор V должен иметь тип СОМРLЕХ. |
DIMENSION V(10)
DATA V /1., 2., 3., 4., 5., 4., 3., 2., 1., 0./
N = 10
ISTEP = 1
Y = AVZ2R (V, N, ISTEP, J)
Результаты: Y = 5. , J = 5