On 4 Maj, 18:18, firr kenobi <p...@g...com> wrote:
> W dniu piątek, 3 maja 2013 10:33:57 UTC+2 użytkownik apl napisał:
>
> > Witam! Poszukuję gotowej procedury szybkiego przekształcenia kosinusowego
jednowymiarowego. Preferowany język - Pascal. Byłbym wdzięczny, za wsparcie.
Pozdrawiam - apl
>
> nigdy tego nie uzywalem ale bazujac na tym co
> jest w necie to wychodzi ze to jest cos w tym
> stylu
>
> // DCT
>
> for(int u=0; u<N; u++)
> {
>    int i = 0;
>
>    dct[u] = sqrt(1/N)*sample[i]*cos(pi/N*(i+.5)*u);
>
>  for(i=1; i<N; i++)
>    dct[u] += sqrt(2/N)*sample[i]*cos(pi/N*(i+.5)*u);
>
> }
>
> // IDCT
>
>  for(int i=0; i<N; i++)
>  {
>      int u = 0;
>
>      sample[i] = sqrt(1/N)*dct[u] * cos(pi/N*(u+.5)*i);
>
>   for( u = 1; u < N; u++)
>      sample[i] += sqrt(2/N)*dct[u] * cos(pi/N*(u+.5)*i);
>  }
>
> z tym ze to moze miec bledy bo ani tego nie uruchamialem ani nie wczytywalem sie w
teksty na
> ten temat, (tak ze jest to najprawdopodobniej
> z błedem!)
>  podobno szybka wersja dziala na intach, chyba
> ktoras nie uzywa pierwiastka a jakby to przypadkiem dzialalo to trzeba wyciagnac
wyrazenia
> przed petle itp

Dzięki, znam teorię i stosowne wzory. Chodzi mi o wypróbowaną szybką
transformatę, zdolną szybko przeczesać ok 10 GB zapisów przy różnych
parametrach. W necie jest zatrzęsienie publikacji, ale jakoś nikt tych
kilkunastu wierszy kodu nie kwapi się zamieścić. I (to a propos
wcześniejszych odpowiedzi) nie jestem już (niestety!) studentem ani
nawet informatykiem i do żadnych komercyjnych celów nie jest mi to
potrzebne. Swoje coś warte kody publikuję jako freeware na WWW.
Pozdrawiam, apl