|
Текст подпрограммы и версий ( Фортран ) zp42r.zip zp42d.zip |
Тексты тестовых примеров ( Фортран ) tzp42r.zip tzp42d.zip |
|
Текст подпрограммы и версий ( Си ) zp42r_c.zip |
Тексты тестовых примеров ( Си ) tzp42r_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) zp42r_p.zip zp42e_p.zip |
Тексты тестовых примеров ( Паскаль ) tzp42r_p.zip tzp42e_p.zip |
Отыскание коэффициентов разложения заданного многочлена по многочленам Чебышева.
Пусть известны коэффициенты А = ( a1, a2, ..., aN ) разложения многочлена Р (Х) по степеням Х
N
P(X) = ∑ ak X k -1
k =1
Подпрограмма вычисляет коэффициенты В = ( b1, b2, ..., bN ) разложения этого многочлена по многочленам Чебышева { Тk (Х) } :
N
P(X) = ∑ bk Tk -1(X)
k =1
SUBROUTINE ZP42R (A, B, C, N)
Параметры
| A - | вектор заданных коэффициентов разложения многочлена по степеням аргумента (тип: вещественный); |
| B - | вектор искомых коэффициентов разложения многочлена по многочленам Чебышева (тип: вещественный); |
| C - | рабочий вектор размерности N на (N + 1)/2 (тип: вещественный); |
| N - | размерность векторов А и В (тип: целый). |
Версии
| ZP42D - | отыскание коэффициентов разложения заданного многочлена по многочленам Чебышева для данных двойной точности. |
Вызываемые подпрограммы: нет
Замечания по использованию: нет
DIMENSION A(3), B(3), C(6)
DATA A(1), A(2), A(3) /0., 1., 2./
N = 3
CALL ZP42R (A, B, C, N)
Результат: В = ( 1., 1., 1. )