Форум по программированию Delphi Sources

 



Вернуться   Форум по программированию Delphi Sources > Разное > Исходники и статьи
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 10.02.2012, 00:34
Kek Kek вне форума
Прохожий
 
Регистрация: 21.11.2010
Адрес: Москва
Сообщения: 17
Репутация: 10
По умолчанию Программа для анализа спектра речевого сигнала

Программа использует алгоритм Быстрого Преобразования Фурье, который был изложен в статье "Программа DFT для исследования шума". Развивая эту тему, было интересно организовать захват сигнала с микшера компьютера и получить мгновенный спектр.



Исходники здесь.
Ответить с цитированием
  #2  
Старый 10.02.2012, 00:48
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Тормозит жутко.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #3  
Старый 10.02.2012, 00:53
Kek Kek вне форума
Прохожий
 
Регистрация: 21.11.2010
Адрес: Москва
Сообщения: 17
Репутация: 10
По умолчанию

Странно, посмотрте в статусной строке Period 47 - это 47 милисекунд, период за который происходит накопление данных.
16 - это время в милисекундах, за которые происходит преобразование Фурье.
Ответить с цитированием
  #4  
Старый 10.02.2012, 01:00
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Показания:
Period - 1016..1031; 0..16; 0..16
WinXP - SP3.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #5  
Старый 10.02.2012, 01:05
Kek Kek вне форума
Прохожий
 
Регистрация: 21.11.2010
Адрес: Москва
Сообщения: 17
Репутация: 10
По умолчанию

Исходники ж есть, перекомпил сделайте.
У меня на XP, который хромой весь и винды не менялись 4 года все быстро работает. Не знаю в чем тут дело.
Ответить с цитированием
  #6  
Старый 10.02.2012, 01:15
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

После перекомпиляции та же скорость, точнее отсутствие таковой. С исходниками позже разберусь.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #7  
Старый 10.02.2012, 01:26
Kek Kek вне форума
Прохожий
 
Регистрация: 21.11.2010
Адрес: Москва
Сообщения: 17
Репутация: 10
По умолчанию

Надо обратить внимание на константу
const
discret = 20000; // per second
Я выбрал не стандартное число, надо бы такое 22050.
Ответить с цитированием
  #8  
Старый 10.02.2012, 01:41
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Видел эту константу, но вряд ли тормоза из-за этого. Даже таскание за "шапку" тормозит.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #9  
Старый 10.02.2012, 02:02
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 7,458
Версия Delphi: 7, XE3, 10.2
Репутация: 49088
По умолчанию

А можно сюда выложить исходники, а то у меня закрыт доступ, а хочется посмотреть...
Ответить с цитированием
  #10  
Старый 10.02.2012, 02:28
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Вот они.
sound 287Kb
или прямо с форума.
Вложения
Тип файла: rar sound.rar (4.4 Кбайт, 20 просмотров)
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.

Последний раз редактировалось angvelem, 10.02.2012 в 02:38.
Ответить с цитированием
  #11  
Старый 10.02.2012, 12:52
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Тормозит на функции WaveInAddBuffer. Почему не знаю, раньше с ней не работал.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #12  
Старый 16.04.2012, 22:30
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,503
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Месяц искал это, а оно под боком. Ирония.
Ответить с цитированием
Ответ



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 00:26.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources", 2004-2019

ВКонтакте   Facebook   Twitter