|
Текст подпрограммы и версий zp42r_c.zip |
Тексты тестовых примеров tzp42r_c.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
int zp42r_c (real *a, real *b, real *c, integer *n)
Параметры
| a - | вектор заданных коэффициентов разложения многочлена по степеням аргумента (тип: вещественный); |
| b - | вектор искомых коэффициентов разложения многочлена по многочленам Чебышева (тип: вещественный); |
| c - | рабочий вектор размерности n на (n + 1)/2 (тип: вещественный); |
| n - | размерность векторов a и b (тип: целый). |
Версии: нет
Вызываемые подпрограммы: нет
Замечания по использованию: нет
int main(void)
{
/* Initialized data */
static float a[3] = { 0.f,1.f,2.f };
/* Local variables */
extern int zp42r_c(float *, float *, float *, int *);
static float b[3], c__[6];
static int n;
n = 3;
zp42r_c(a, b, c__, &n);
printf("\n %16.7e %16.7e %16.7e \n", b[0], b[1], b[2]);
return 0;
} /* main */
Результат: b = ( 1., 1., 1. )