Как создать звук?

[raxp]

TC, почитайте - Олег Гордеев. Программирование звука в Windows

[IgoRek125]

s-andriano я вот сейчас пытаюсь сделать вот такую амплитуду:

[IgoRek125]

Вот как представить формулу для расчета Зеленых сэмплов ?
Я так думаю надо разбить ее на три цыкла сначала и расчитать: Первая - от 0 до 30 000, Вторая - от 30 000 до -30 000 (по той формуле, которую ты представил мне ранее) и Третья - от -30 000 до 0.
или как-то можно одной формулой?

[IgoRek125]

raxp спасибо за книгу! скачав, уже вижу, что она мне ооочень пригодится и понравится))

[s-andriano]

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

Вот как представить формулу для расчета Зеленых сэмплов ?
Я так думаю надо разбить ее на три цыкла сначала и расчитать: Первая - от 0 до 30 000, Вторая - от 30 000 до -30 000 (по той формуле, которую ты представил мне ранее) и Третья - от -30 000 до 0.

Правильно думаешь.

или как-то можно одной формулой?

Можно и одной - с использованием функции abs, но из трех кусочков лучше.

PS. Возвращаясь к вопросу о погрешностях, еще раз спрашиваю, чего ты хочешь добиться этой формулой?
ampl:=round(r.wSamplesPerSec/Chastota);

PPS. Еще у меня есть подозрение, что ты подходишь к синтезу звука с неверных позиций.
Ты поделись, зачем тебе все это нужно?

[IgoRek125]

Этой формулой я расчитываю длительность одного такого пика, как на рисунках.

[IgoRek125]

s-andriano, скажи свое мнение, правильно ли я расчитал формулы?

PHP код:

If massiv[x,y]=True
               then begin
                  For i:=0 to round(ampl/3) do begin
                     d:=round(i*(30000/(ampl/3)));
                     r.Data.WriteBuffer(d, 4);
                     end;
                  For i:=0 to round(ampl/3) do begin
                     d := round(30000*(1.0 - 2.0*(i-0)/((ampl/3)-0)));
                     r.Data.WriteBuffer(d, 4);
                     end;
                  For i:=round(ampl/3) downto 0 do begin
                     d:=round(i*(-30000/(ampl/3)));
                     r.Data.WriteBuffer(d, 4);
                     end;
                  end    
                                  
               else begin                                
                  For i:=0 to ampl do begin         
                     d:=0;                               
                     r.Data.WriteBuffer(d, 4);       
                     end;                                
               end; 


[s-andriano]

В код не вникал, но на первый взгляд неправильно:
График условно можно разбить на 4 четверти - в первой сигнал нарастает, затем две - убывает, и в последней - снова нарастает.
А у тебя три участка одинаковой длины.

[IgoRek125]

s-andriano, точно, ты прав!, они одинаковой длинны...
Подредактируем)) :

PHP код:

If massiv[x,y]=True 
               then begin 
                  For i:=0 to round(ampl/4) do begin 
                     d:=round(i*(30000/(ampl/4))); 
                     r.Data.WriteBuffer(d, 4); 
                     end; 
                  For i:=0 to round(ampl/2) do begin 
                     d := round(30000*(1.0 - 2.0*(i-0)/((ampl/2)-0))); 
                     r.Data.WriteBuffer(d, 4); 
                     end; 
                  For i:=round(ampl/4) downto 0 do begin 
                     d:=round(i*(-30000/(ampl/4))); 
                     r.Data.WriteBuffer(d, 4); 
                     end; 
                  end     
                                   
               else begin                                 
                  For i:=0 to ampl do begin          
                     d:=0;                                
                     r.Data.WriteBuffer(d, 4);        
                     end;                                 
               end; 


Только вот остался один вопрос и появился еще один:
Как избавиться от погрешности все-таки?
И откуда у меня появляется лишний сэмпл? при стыке двух таких пиков, он вдруг вырисовывается, я показал на рисунке знаком вопроса.

[s-andriano]

Раз источник погрешности округление, значит нужно избавиться от него.