qrz.by : форум радиолюбителей Беларуси

и от значения или прибавляется или отнимается значение

Реальная схема или фейк?

raxp писал(а):

EW8SA писал(а):и от значения или прибавляется или отнимается значение

разбежался )

raxp писал(а):Вот, если бы корректнее сам вопрос звучал: "Хватит ли вычислительной мощности и памяти тиньки для оцифровки, свертки и ШИМ-а (для последующего восстановления сигнала через ФНЧ) в реальном времени для аудиопотока", - другое совсем дело. Хватит.

raxp писал(а):Все тоже самое можно и аналоговым методом на 561КТ3 по классической схеме (шифровал так магнитофонные записи в свое время :)):

raxp писал(а):Если автономность некритична...

raxp писал(а): ... С исходниками, на Delphi...

raxp писал(а):... после инверсии FFT с возможностью перестройки частоты ...

EU3EU писал(а):Есть простейший метод дескремблинга в реалтайме: каждый сэмпл входного сигнала умножать на +1, -1, +1, -1 и т.д. (то есть, каждый второй сэмпл проинвертировать), и сразу подавать на ЦАП с RC фильтром на выходе.

EW8SA писал(а): ... FFT доверяю и использую только на телефоне или на компе. Мучаться с контроллером для этих задач некий вид содомазо!

EU3EU писал(а): Есть простейший метод дескремблинга в реалтайме: каждый сэмпл входного сигнала умножать на +1, -1, +1, -1 и т.д. (то есть, каждый второй сэмпл проинвертировать), и сразу подавать на ЦАП с RC фильтром на выходе.

EW3MM писал(а): ...Восемь лет назад занимался подобной ерундой. Правда, на МК не экономил.
Получилось довольно неплохо. Потоковый RAW (8 bit / 11 kHz) заливается в AT45DB041B. ...

EU6SM писал(а):На спец.микросхеме

EW3MM писал(а):Какая еще спец.микросхема ???
Обычный МК (MSP430F149), десяток лет назад считавшийся довольно шустрым и флэшка (AT45DB041), отличающаяся от ширпотреба высокой скоростью чтения.
Все реализовано программно в реалтайме без буферизации. Код посмотрите - станет ясно.

EU6SM писал(а):Откуда такая уверенность, что хватит? Времени ~800мкс между сэмплами, такт 0.1мкс. За 800 тактов точно справитесь, прямо-таки уверены (умножения и деления нет, и тактов в риале значительно менее 800)? И про свёртку несколько перегнули, не кажется? Корректнее было бы назвать метод при котором "хватит", коль скоро речь идёт о корректности

EU6SM писал(а):Кстати, о корректности: приведённые схемы надо было выбросить и забыть 20 лет назад, на кой чёрт Вы их извлекли из сундука, если разбираетесь в вопросе настолько, что в состоянии дать уверенный и компетентный коммент с учётом явно непростого решения задачи для tiny13?

EU6SM писал(а):Перемножитель на КТ3 раньше делали от бедности, вообще-то...

EU6SM писал(а):Речь идёт о решении "шахматной партии", а не декодировании любой ценой, вроде бы это очевидно. Решение интересно именно в контексте минималистики.

EU6SM писал(а):Исходники? Если не сложно, чиркните ссылку на исходники programmist'а
...
А там точно FFT?

var
   i,j,k,FSize              : Longint;
   fn,ext                   : string;
   SrcFile, DestFile        : File;
   BytesRead, BytesWritten  : Longint;
   Buffer16                 : array [0..BufferLength*2] of Byte;
   AudioArray16             : array [0..BufferLength]   of SmallInt; //-32768..32767
   waveheader               : TWaveHeader;
   dataheader               : TDataHeader;
   Channels                 : SmallInt;
begin
     Label1.Caption:=    '';
     LabelCh.Caption:=   '';
     LabelFrq.Caption:=  '';

   if OpenDialog1.Execute then fn:= OpenDialog1.filename;
   if fn = '' then exit;

   //декодировка MP3-
   ext:= lowercase(ExtractFileExt(fn));
   if ext='.mp3' then begin
    shellexecute(0,
                 'open',
                 'lame\lame.exe',
                 pchar('--decode '+ fn),
                 pchar(extractfilepath(application.ExeName)),
                 SW_HIDE);
                 
    application.ProcessMessages;
    i:= GetTickCount; while gettickcount-i<2000 do;
    fn:= extractfilepath(fn) + extractfilename(fn)+'.wav'
   end;
   fnn:= MainDir + '\Inverted_' + ExtractFileName(fn);



     AssignFile(SrcFile, fn);
     AssignFile(DestFile, fnn);
     Reset(SrcFile, 1);
     try
        Rewrite(DestFile, 1);
        BlockRead(SrcFile, waveheader,  sizeof(twaveheader), BytesRead);
        with waveheader do
        begin
             if idriff   <> 'RIFF' then raise ereaderror.create('wrong idriff');
             if idwave   <> 'WAVE' then raise ereaderror.create('wrong idwave');
             if idfmt    <> 'fmt ' then raise ereaderror.create('wrong idfmt');
             if wavetype <> 1      then raise ereaderror.create('unknown format');
             if bits     <> 16     then raise ereaderror.create('wrong format');
             LabelCh.Caption:=     'Каналы  : ' + IntToStr(ch);
             LabelFrq.Caption:=    'Дискрет : ' + IntToStr(freq);
             Channels:= ch;
        end;
        BlockWrite(DestFile, waveheader,  sizeof(twaveheader), BytesWritten);
        BlockRead(SrcFile, dataheader, sizeof(tdataheader), BytesRead);
        BlockWrite(DestFile, dataheader, sizeof(tdataheader), BytesWritten);
        try
           SBOpen.Enabled:= False;
           try
              FSize := FileSize(SrcFile);
              prbCopy.Max:= FSize;
              repeat
                    BlockRead(SrcFile, Buffer16, BufferLength*2, BytesRead);
                    if BytesRead > 0 then
                    begin
                         CopyMemory(@AudioArray16, @Buffer16, BytesRead);
                         j:=0; k:=0;
                         for i := 0 to BytesRead div 2 do
                         begin
                              if Channels = 1 then if i and 1 = 0 then AudioArray16[i]:= -AudioArray16[i];
                              if Channels = 2 then
                              begin
                                   if i and 1 = 0 then
                                   begin
                                        if j and 1 = 0 then AudioArray16[i]:= -AudioArray16[i];
                                        Inc(j);
                                   end else
                                   begin
                                        if k and 1 = 0 then AudioArray16[i]:= -AudioArray16[i];
                                        Inc(k);
                                   end;
                              end;
                         end;
                         CopyMemory(@Buffer16, @AudioArray16, BytesRead);
                         Application.ProcessMessages;
                         BlockWrite(DestFile, Buffer16, BytesRead, BytesWritten);
                         if BytesRead <> BytesWritten then
                         raise Exception.Create('Error copying file')
                         else prbCopy.Position := prbCopy.Position + BytesWritten;
                    end
              until BytesRead = 0;
           except
           Erase(DestFile);
        raise;
      end;
      finally
             CloseFile(DestFile);
             prbCopy.Position:=0;
      end;
      finally
             CloseFile(SrcFile);
             SBOpen.Enabled:= True;
      end;
      Label1.Caption:=    'Готово.';
end;

:= -AudioArray16;") не требователен к ресурсам и вполне может работать реалтайм.

Берем кусок речи:


Вот что делает данный код после преобразования:


Теперь сформируем тестовый 400 Гц тон:


После инверсии:


Исходники проекта данного инвертора оффтайм: https://yadi.sk/d/jAuJf75JrYfEe
Еще одна оффтайм-утилита https://yadi.sk/d/0vN0dqghrYfJz

EU6SM писал(а): софтина проводит в реальном времени?

raxp писал(а): ... просто делал на тиньке анализатор спектра и так уж вышло, что ЦОС моя работа )

raxp писал(а):...оно и делалось 20 лет назад...

raxp писал(а):... распространенный стереотип ... все, что требует больше двух деталек пихать в МК ...

raxp писал(а): ... Решения как такового нет ...

raxp писал(а): странно, что никто тут не знает про файловый архив...

raxp писал(а):... Искать мне лень, ... Исходники проекта данного инвертора оффтайм ...

raxp писал(а):... софтина проводит в реальном времени?

Ну, в масс-продакшене на четыре кости легко ставят за 1 цент разницы, Вам это не знакомо? Так-что это правильное и очень объяснимое желание

Вы подменяете понятия, нехорошо это. Решение не предлагалось, а спрашивалось.

Более того, Вы сами топчетесь вокруг да около, не предложив ничего конкретного, при этом сокрушаясь на что-то... Демагогия? На что сокрушаетесь-то? Вон EU3EU единственный предложил возможный способ решения по делу - молодец, хотя способ не очень.

Это "опа", а не исходники: инверсия полного(!) спектра через нулевую частоту, EU3EU уже предлагал.

Ох, такое чувство, что Вы слушаете только себя: на кой сдались эти утилиты??? Я не понимаю, зачем Вы в каждом посте на них ссылаетесь? Вы понимаете о чём идёт речь или нарочно зарядили одно и тоже повторять? Есть 512 слов и 64 байта памяти - и всё. Если знаете как сляпить свёртку и обратную, чтоб отсчётов было не 2, а поболей - говорите, а не дурите череп

EU6SM писал(а):Тем более, что работа завершена

Ferrum1827 писал(а):Проект ТС (сабж темы) "Речевой инвертор (voice inversion) на tiny13" реализован ?