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