; Vytvoříme si uměle zvuk se stejnosměrnou složkou, která by tam
; správně být neměla, ale s nekvalitními integrovanými zvukovými
; kartami se občas v signále vyskytuje.
; Uvidíme, jak ničí odhady základních číselných charakteristik signálů.
;
; Zobrazte a pusťte si oba zvuky. Slyšíte rozdíl? Neměli byste.
; Stejnosměrná složka (střední hodnota, DC komponenta, bias, vertikální posun...)
; je konstanta přičtená k signálu, tedy složka s nulovou frekvencí.
; Slyšíme od cca 16 - 20 Hz výše, takže složku 0 Hz neuslyšíme.
; Přesto má dopad na algoritmy zpracování signálů.
;
; Odstranit DC lze tlačítkem Modify -> Subtract mean.
; Zvuk musí být před zpracováním vycentrován kolem nuly. Nezapomínejme na to!

clearinfo

sndOrig = Read from file: "anonym.wav"

meanOrig = Get mean: 0, 0, 0
extremeOrig = Get absolute extremum: 0, 0, "none"
energyOrig = Get energy: 0, 0
powerOrig = Get power: 0, 0
rmsOrig = Get root-mean-square: 0, 0

select sndOrig
sndDC = Copy: "anonym_DC"
Add: 0.1

meanDC = Get mean: 0, 0, 0
extremeDC = Get absolute extremum: 0, 0, "none"
energyDC = Get energy: 0, 0
powerDC = Get power: 0, 0
rmsDC = Get root-mean-square: 0, 0

printline 'tab$''tab$'Správně (bez DC)'tab$'Včetně DC
printline střední hodnota'tab$''meanOrig:3''tab$''tab$''meanDC:3'
printline max. rozkmit'tab$''extremeOrig:3''tab$''tab$''tab$''extremeDC:3'
printline energie 'tab$''energyOrig:3''tab$''tab$''tab$''energyDC:3'
printline výkon 'tab$''tab$''powerOrig:3''tab$''tab$''tab$''powerDC:3'
printline efektivní ampl. (rms) 'rmsOrig:3''tab$''tab$''rmsDC:3'


select sndDC
sndBezDC = Copy: "anonym_odstranena_DC"
Subtract mean