|
Текст подпрограммы и версий ( Фортран ) av06r.zip av06d.zip av06c.zip |
Тексты тестовых примеров ( Фортран ) tav06r.zip tav06d.zip tav06c.zip |
|
Текст подпрограммы и версий ( Си ) av06r_c.zip av06d_c.zip av06c_c.zip |
Тексты тестовых примеров ( Си ) tav06r_c.zip tav06d_c.zip tav06c_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) av06r_p.zip av06e_p.zip av06c_p.zip |
Тексты тестовых примеров ( Паскаль ) tav06r_p.zip tav06e_p.zip tav06c_p.zip |
Вычисление выражения (А + (U,V)) / В, где А и B - заданные числа, U и V - заданные векторы.
Для заданных векторов U и V длины N вычисляется выражение (А + (U,V)) / В, где
N
(U,V) = ∑ UK*VK
K=1
- скаляpное пpоизведение вектоpов U и V, а А и В - заданные числа.
REAL FUNCTION AV06R (U, V, A, B, N)
Параметры
| U, V - | одномерные массивы длины N, в которых задаются исходные векторы (тип: вещественный); |
| A, B - | заданные числа (тип: вещественный); |
| N - | размерность векторов U и V (тип: целый). |
Версии
| AV06D - | вычисление выражения (А + (U,V)) / В с повышенной точностью; |
| AV06C - | вычисление выражения (А + (U,V)) / В для комплексных U, V, А и В; |
Вызываемые подпрограммы: нет
Замечания по использованию
| 1. |
В функции АV06D параметры U, V, А, В имеют тип DОUВLЕ РRЕСISIОN. | |
| 2. |
В функции АV06С параметры U, V, А, В имеют тип СОМРLЕХ. | |
| 3. |
В функции АV06С скалярное произведение вычисляется по формуле
N
(U,V) = ∑ UK*VK .
K=1
|
DIMENSION U(4), V(4)
DATA U /1., 2., 3., 4./, V /1., 0., 1., 0./
N = 4
A = 3.
B = 2.
S = AV06R (U, V, A, B, N)
Результат: S = 3.5