; porovnáme číselné charakteristiky několika signálů se stejnými amplitudami
; RMS (efektivní amplituda) je odmocnina z výkonu
; převedeme-li výkon na dB (10*log10), dostaneme to samé, co RMS v dB (20*log10)

clearinfo

sndSquare = Read from file: "obdelnik.wav"
sndSin = Read from file: "sinus.wav"
sndSawtooth = Read from file: "pila.wav"

printline Signál'tab$''tab$'Ampl.'tab$'Výkon'tab$'RMS'tab$'RMS (dB FS)

select sndSquare
extreme = Get absolute extremum: 0, 0, "none"
power = Get power: 0, 0
rms = Get root-mean-square: 0, 0
rmsdB = 20*log10(rms) + 3.01  ; 3.01 je rozdíl výkon obdélníku a sinusovky s amp. 1 => 0 dB FS odpovídá max. sinusovce
printline Obdélník'tab$''extreme:3''tab$''power:3''tab$''rms:3''tab$''rmsdB:3'

select sndSin
extreme = Get absolute extremum: 0, 0, "none"
power = Get power: 0, 0
rms = Get root-mean-square: 0, 0
rmsdB = 20*log10(rms) + 3.01  ; 3.01 je rozdíl výkon obdélníku a sinusovky s amp. 1 => 0 dB FS odpovídá max. sinusovce
printline Sinusovka'tab$''extreme:3''tab$''power:3''tab$''rms:3''tab$''rmsdB:3'

select sndSawtooth
extreme = Get absolute extremum: 0, 0, "none"
power = Get power: 0, 0
rms = Get root-mean-square: 0, 0
rmsdB = 20*log10(rms) + 3.01  ; 3.01 je rozdíl výkon obdélníku a sinusovky s amp. 1 => 0 dB FS odpovídá max. sinusovce
printline Pila'tab$''tab$''extreme:3''tab$''power:3''tab$''rms:3''tab$''rmsdB:3'