* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки

Аппроксимация и регрессия в СКМ Derive и MuPAD COS (4 pi x) SIN (4 pi x) COS (2 pi x) SIN (2 pi x~ ------------ – ------------ + ------------ – -----------~ 3: 2 2 pi 2 pi ~ 4 pi pi ~ ~) 1 ~— + —~ 3 ~ 551 Разумеется, базовые средства Derive позволяют реализовать различные при емы спектрального анализа и синтеза по известным алгоритмам. В качестве при мера рассмотрим вычисление коэффициентов Берга – задача, которая уже реша лась средствами Mathcad. Пусть требуется вычислить относительную амплитуду n ой гармоники для отрезка синусоиды с углом отсечки theta (или, проще, t). Для этого известны три разные формулы для коэффициентов Берга, дающих относительную амплитуду, при n, равных 0, 1 и n>=2. Ниже показано конструирование функции BERG(n,t), вычисляющей коэффициенты Берга при любых целых n и углах t (в радианах): 1: "Au?eneaiea eiyooeoeaioia Aa?aa" SIN (t) – t COS (t) 2: A0 (t) := --------------------pi (1 – COS (t)) t – SIN (t) COS (t) 3: A1 (t) := --------------------pi (1 – COS (t)) 2 — (SIN (n t) COS (t) – n COS (n t) SIN (t)) pi 4: AN (n, t) := -------------------------------------------2 n (n – 1) (1 – COS (t)) 5: A01 (n, t) := IF (n > 0.5, A1 (t), A0 (t)) 6: BERG (n, t) := IF (n > 1.5, AN (n, t), A01 (n, t)) / pi \ 7: BERG |0, ——| \ 6 / 8: 0.110598 / pi \ 9: BERG |1, ——| \ 6 / 10 0.215223 / pi \ 11: BERG |2, ——| \ 2 / 12: 0.212206 В этом примере в строках 2–4 заданы три исходные функции A0, A1 и AN, вы числяющие коэффициенты Берга для n = 0, 1 и любых n, равных или больших 2. В строке 5 определена функция A01, выбирающая с помощью функции IF функ