открытые проекты звуковых редакторов

← →
ElenaS (2007-05-06 20:59) [0]

Всем привет!

Подскажите пожалуйста открытый проект звукового редактора,
в котором возможно убирать шумы...

Спасибо заранее!

← →
Jeer © (2007-05-07 13:42) [1]

Открытый проект:

function NoiseRemover(x: double): double
begin
Result := 0.0;
end;

Гарантированно удаляются любые шумы.

← →
ElenaS (2007-05-10 14:29) [2]

Спасибо!
Вижу никто по сабжу ничего не хочет сказать (((

← →
Jeer © (2007-05-10 15:14) [3]

> Спасибо!
> Вижу никто по сабжу ничего не хочет сказать (((

На здоровье.
Существуют google, yandex, aport и тп.
Наконец, несложно попасть на sourceforge.net.
В разделе Multimedia наверняка найдется что-то похожеею

А если будут конкретные вопросы по DSP, то будут и ответы.

← →
Vovan # 2 (2007-05-10 17:46) [4]

2 Jeer © (07.05.07 13:42) [1]:

Обоснуй типы и кол-во входных аргументов, а также тип возвращаемого значения.

← →
Jeer © (2007-05-10 18:41) [5]

> Vovan # 2 (10.05.07 17:46) [4]

:)

Одноканальный remover.
Перед ним вызывается функция GetFromADC(chanel: byte): double;
Double потому, что DSP-математика вещь не слабая и явно требуется
много всяких нехороших вычислений.

P.S.
Поскольку в [1] только открылся "открытый" проект, то NoiseRemover - это первая и примитивная реализация такой функции.

Присоединяйтесь и допишем вместе :))

← →
clickmaker © (2007-05-10 19:15) [6]

рекомендую его в виде плагина делать - DLL
со своей стороны выкладываю первую примитивную реализацию
library NoiseRemover; uses SysUtils, Classes; {$R *.res} begin end.

← →
ElenaS (2007-05-11 02:44) [7]

если есть вопрос то на него может быть и нормальный ответ, а не те обрезки мыслей которые вы здесь демонстрируете.. зачем вообще нужны ресурсы интернет, такие как дельфимастер, например, и зачем нужен форум... неужели для того чтобы выдеть эту примитивную пахабщину?
господа, это не серьезно..
насчет sourceforge.net- да, есть проект там , называется audacity .
спасибо за достойный единичный ответ. пока я ждала ваши искрометные остроты,
уже нашла этот проект. но думаю он не единственный в сети, поэтому и продолжаю тему... хотя и в хамской атмосфере

> ElenaS (11.05.07 02:44) [7]

Уважаемая, насчет "хамской" атмосферы - это Ваше личное восприятие адекватной реакции на Ваше же "Дайте сейчас же".

Ви ничего не знали о поисковых системах ?
Или кто-то должен тратить свой трафик и выкладывать результаты Вам ?
С чего бы такой альтруизм ?

> если есть вопрос то на него может быть и нормальный ответ

Проблема в том, что вопрос был ненормальный, потому и возникли шутливый ответы.
В конце-то концов Вам намекнули куда залезть.

Только вот, что я Вам скажу - если появятся вопросы, "а как мне теперь убрать шумы", то, поверьте, мы еще раз повеселимся.

> clickmaker © (10.05.07 19:15) [6]
>
> рекомендую его в виде плагина делать - DLL

Согласен и потому добавляю первый класс примитивного фильтра
(цифровой рекурсивный апериодический или первого порядка нижних частот)

type
TFilterAperiodic = class
protected
fRatio,fa,fb: double;
fXi, fYii: double;
private
function GetOutput: double;
public
constructor Create(vRatio: double);
procedure Clear;
procedure Zero(vX: double);
procedure SetFilter(vRatio: double);
function Next(vX: double): double;
property Value: double read fXi write fXi; // input
property A: double read fA;
property B: double read fB;
property Ratio: double read fRatio; // F3dB / Fsampling (не забываем о теореме Котельникова)
property Output: double read GetOutput;
end;

constructor TFilterAperiodic.Create(vRatio: double);
begin
Clear;
fB := exp(-vRatio);
fA := 1.0 - fB;
end;

procedure TFilterAperiodic.Zero(vX: double);
begin
fXi := vX;
Yii := vX;
end;

procedure TFilterAperiodic.Clear;
begin
Zero(0.0);
end;

procedure TFilterAperiodic.SetFilter(vRatio: double);
begin
Clear; // на усмотрение
fB := exp(-vRatio);
fA := 1.0 - fB;
end;

function TFilterAperiodic.GetOutput: double;
begin
Result := fA*fXi + fB*Yii;
end;

function TFilterAperiodic.Next(vX: double): double;
begin
fXi := vX;
Result := GetOutput;
Yii := Result;
end;

открытые проекты звуковых редакторов Найти похожие ветки