Komprese zvuku
Diskretní Fourierova transformace
Procedura na ořezání vyšších frakvencí (2) (3) (4) (5)
![`assign`(ZvukFT, [real(FourierTransform(Zvuk)), imag(FourierTransform(Zvuk))]); 1](images/komprese_zvuku_2.gif){kind=small}
![[Array(%id = 204207940), Array(%id = 204782144)]](images/komprese_zvuku_3.gif)
Procedura na ořezání vyšších frakvencí![proc (r, pole) local i, rMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(Zvuk)))[-1]); `assign`(tmpPole, pole); for i to rMax do if `and`(`<`(r, i), `<`(r, `+`(rMax, `-`(i)))) then `assign`(tmpPole[i], ...](images/komprese_zvuku_5.gif){kind=small}
![proc (r, pole) local i, rMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(Zvuk)))[-1]); `assign`(tmpPole, pole); for i to rMax do if `and`(`<`(r, i), `<`(r, `+`(rMax, `-`(i)))) then `assign`(tmpPole[i], ...](images/komprese_zvuku_6.gif){kind=small}
![proc (r, pole) local i, rMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(Zvuk)))[-1]); `assign`(tmpPole, pole); for i to rMax do if `and`(`<`(r, i), `<`(r, `+`(rMax, `-`(i)))) then `assign`(tmpPole[i], ...](images/komprese_zvuku_7.gif){kind=small}
![proc (r, pole) local i, rMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(Zvuk)))[-1]); `assign`(tmpPole, pole); for i to rMax do if `and`(`<`(r, i), `<`(r, `+`(rMax, `-`(i)))) then `assign`(tmpPole[i], ...](images/komprese_zvuku_8.gif){kind=small}
![proc (r, pole) local i, rMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(Zvuk)))[-1]); `assign`(tmpPole, pole); for i to rMax do if `and`(`<`(r, i), `<`(r, `+`(rMax, `-`(i)))) then `assign`(tmpPole[i], ...](images/komprese_zvuku_9.gif){kind=small}
![proc (r, pole) local i, rMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(Zvuk)))[-1]); `assign`(tmpPole, pole); for i to rMax do if `and`(`<`(r, i), `<`(r, `+`(rMax, `-`(i)))) then `assign`(tmpPole[i], ...](images/komprese_zvuku_10.gif){kind=small}
![proc (r, pole) local i, rMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(Zvuk)))[-1]); `assign`(tmpPole, pole); for i to rMax do if `and`(`<`(r, i), `<`(r, `+`(rMax, `-`(i)))) then `assign`(tmpPole[i], ...](images/komprese_zvuku_11.gif){kind=small}
![proc (r, pole) local i, rMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(Zvuk)))[-1]); `assign`(tmpPole, pole); for i to rMax do if `<`(r, i) then `assign`(tmpPole[i], 0) end if end do; tmpPole end proc](images/komprese_zvuku_12.gif){kind=small}
![proc (r, pole) local i, rMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(Zvuk)))[-1]); `assign`(tmpPole, pole); for i to rMax do if `<`(r, i) then `assign`(tmpPole[i], 0) end if end do; tmpPole end proc](images/komprese_zvuku_13.gif){kind=small}
![proc (r, pole) local i, rMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(Zvuk)))[-1]); `assign`(tmpPole, pole); for i to rMax do if `<`(r, i) then `assign`(tmpPole[i], 0) end if end do; tmpPole end proc](images/komprese_zvuku_14.gif){kind=small}
![proc (r, pole) local i, rMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(Zvuk)))[-1]); `assign`(tmpPole, pole); for i to rMax do if `<`(r, i) then `assign`(tmpPole[i], 0) end if end do; tmpPole end proc](images/komprese_zvuku_15.gif){kind=small}
![proc (r, pole) local i, rMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(Zvuk)))[-1]); `assign`(tmpPole, pole); for i to rMax do if `<`(r, i) then `assign`(tmpPole[i], 0) end if end do; tmpPole end proc](images/komprese_zvuku_16.gif){kind=small}
![proc (r, pole) local i, rMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(Zvuk)))[-1]); `assign`(tmpPole, pole); for i to rMax do if `<`(r, i) then `assign`(tmpPole[i], 0) end if end do; tmpPole end proc](images/komprese_zvuku_17.gif){kind=small}
![proc (r, pole) local i, rMax, tmpPole; `assign`(rMax, (`$`(rtable_dims(Zvuk)))[-1]); `assign`(tmpPole, pole); for i to rMax do if `<`(r, i) then `assign`(tmpPole[i], 0) end if end do; tmpPole end proc](images/komprese_zvuku_18.gif){kind=small}
![`assign`(ZvukFTorezane, [orezani(n, ZvukFT[1]), orezani(n, ZvukFT[2])]); 1](images/komprese_zvuku_21.gif){kind=small}
![[Array(%id = 204207940), Array(%id = 204782144)]](images/komprese_zvuku_22.gif)
![`assign`(ZvukIFT, [InverseFourierTransform(op(ZvukFTorezane))]); 1](images/komprese_zvuku_23.gif){kind=small}
![[Array(%id = 150877004), Array(%id = 150876156)]](images/komprese_zvuku_24.gif)
![Preview(Create(ZvukFTorezane[1]))](images/komprese_zvuku_26.gif){kind=small}
