; Analyzovaný signál - experimentujme s blízkými frekvencemi a trváním signálu. Co ještě půjde ve spektru správně detekovat?
snd1 = Create Sound from formula: "sndOriginal", 1, 0, 0.25, 44100, "1/2 * sin(2*pi*200*x) + 1/2 * sin(2*pi*210*x)"
spec1 = To Spectrum: "yes"

select snd1
snd2 = Copy: "sndWindowed"
Multiply by window: "Hamming"
spec3 = To Spectrum: "yes"

; signál pro doplnění nulami
sndZero = Create Sound from formula: "sndZero", 1, 0, 10, 44100, "0"

select snd1
plus sndZero
snd1zeroPadded = Concatenate
spec2 = To Spectrum: "yes"

select snd2
plus sndZero
snd2zeroPadded = Concatenate
spec4 = To Spectrum: "yes"



;;; zobrazení signálů a spekter
select snd1
View & Edit
editor: snd1
    Zoom: 0, 400
endeditor
select spec1
View & Edit
editor: spec1
    Zoom: 0, 400
endeditor

select snd1zeroPadded
View & Edit
editor: snd1zeroPadded
    Zoom: 0, 400
endeditor
select spec2
View & Edit
editor: spec2
    Zoom: 0, 400
endeditor

select snd2
View & Edit
editor: snd2
    Zoom: 0, 400
endeditor
select spec3
View & Edit
editor: spec3
    Zoom: 0, 400
endeditor

select snd2zeroPadded
View & Edit
editor: snd2zeroPadded
    Zoom: 0, 400
endeditor
select spec4
View & Edit
editor: spec4
    Zoom: 0, 400
endeditor


select all