Фильтр Баттеворта

[voltair]

Привет, народ!

Потребовалось использовать какой-нибудь фильтр для очистки данных от шума. Нашел фильтр Butterworth'a, но не знаю как его использовать.

Пожалуйста просветите.

Во вложении ButterworthF.xls c паролем gunter.

Но как его использовать?

Нашел лишь эту инструкцию:

This file contains the Visual Basic code for the Butterworth filter that has been compiled into an Excel Add-in.
The code in this file is not password protected.
The Excel Add-in is password protected.
The password is "gunter"
To edit the Add-in, load it through the "Tools\Add-in" menu controls and then enter the Visual Basic Editor (Shift+F11)
In the Explorer-like window, click on the "Butterworth.xla" item and enter the password.
The code is in the "Module1" file under the "Modules" directory entry.

Но как его использовать на своих данных в книге excel не понимаю.

Просветите, пожалуйста!!

Буду очень признателен также, если посоветуете какие-то другие фильтры для очистки данных от шума.

[EducatedFool]

Вы попробуйте попроще сказать, - какие данные, от какого шума, надо очистить

вот вам пример данных:
1
2

как их очистить от шума?

[voltair]

Во вложении пример данных (жаль, но сайт не грузит *.csv). Просьба показать как применить к ним фильтр из ButterworthF.xls или другой фильтр.

[Aleksandr H.]

Сообщение от voltair

Просьба показать как применить к ним фильтр из ButterworthF

Так? att.jpgЧто под "шумом" подразумеваете?

[voltair]

Aleksandr H., спасибо за ответ!

Но я не понимал как установить xla, пояснили на другом форуме ( www.excelworld.ru/forum/15-31948-1 ).

Шум? Ну вот прилагаю график, где фильтр поработал.
Синяя - данные с шумом, оранжевая - без шума.

ВОПРОС: как сделать ПОЛЬЗОВАТЕЛЬСКУЮ ФУНКЦИЮ из этой надстройки?

[Aleksandr H.]

Сообщение от voltair

ВОПРОС: как сделать ПОЛЬЗОВАТЕЛЬСКУЮ ФУНКЦИЮ из этой надстройки?

ОТВЕТ: разобраться с

Private Sub Butterworth4thOrder(dCutoffFrequency As Double, _
                        dSampleFrequency As Double, _
                        nDataRow As Integer, _
                        nDataColumn As Integer, _
                        nNumberOfSamples As Integer, _
                        nPutRow As Integer, _
                        nPutColumn As Integer, _
                        bRectify As Boolean)

[voltair]

Хорошо, спасибо, я понял.