6. Постановка Интеллектуальной задачи №1 (= "ИЗ"_№1) по ИИ- тематике : "Фонотрон"

[poligrath_4]

ИИ = Искусственный интеллект

На одном из форумов ИИ начал вести тему, но скоро передумал там писать когда- либо что либо (ввиду неприемлемой идеологии владельцев ресурса под видом анонимов - разжигание ненависти и межнациональной розни...). Переношу накопленные дискуссии сюда, скорее для очистки совести.

Итак. 13 фев 18 4:46, пост №1"Настроение у

Comments

[poligrath_4]

гость
94.102.122.*

Добавлено: 13 фев 18 6:24
Фонотрон - Нечтокогнитрон - Синхрофазотрон
Ничего личного, просто ассоциация

[poligrath_4]

гость
94.102.122.*

Добавлено: 13 фев 18 6:57
/*
Fast Fourier Transformation
====================================================
Coded by Miroslav Voinarovsky, 2002
This source is freeware.
*/

#ifndef FFT_H_
#define FFT_H_

struct Complex;
struct ShortComplex;

/*
Fast Fourier Transformation
x: x - array of items
N: N - number of items in array
complement: false - normal (direct) transformation, true - reverse transformation
*/
extern void universal_fft(ShortComplex *x, int N, bool complement);

struct ShortComplex
{
double re, im;
inline void operator=(const Complex &y);
};

struct Complex
{
long double re, im;
inline void operator= (const Complex &y);
inline void operator= (const ShortComplex &y);
};

inline void ShortComplex::operator=(const Complex &y) { re = (double)y.re; im = (double)y.im; }
inline void Complex::operator= (const Complex &y) { re = y.re; im = y.im; }
inline void Complex::operator= (const ShortComplex &y) { re = y.re; im = y.im; }

#endif

[poligrath_4]

продолжение кода

/*
Fast Fourier Transformation
====================================================
Coded by Miroslav Voinarovsky, 2006
This source is freeware.
*/

#include "fft.h"
#include // This array contains values from 0 to 255 with reverse bit order

[poligrath_4]

продолжение 2//This is array exp(-2*pi*j/2^n) for n= 1,...,32

[poligrath_4]

окончание кода

static void fft_step(ShortComplex *x, unsigned int T, bool complement, const ShortComplex *Wstore)
{
unsigned int Nmax, I, J, N, Nd2, k, m, Skew, mpNd2, Step;
unsigned char *Ic = (unsigned char*) &I;
unsigned char *Jc = (unsigned char*) &J;
ShortComplex S;
const ShortComplex *Warray;
Complex Temp;

Nmax = 1 << T;

//first interchanging
for(I = 1; I < Nmax - 1; I++)
{
Jc[0] = reverse256[Ic[3]];
Jc[1] = reverse256[Ic[2]];
Jc[2] = reverse256[Ic[1]];
Jc[3] = reverse256[Ic[0]];
J >>= (32 - T);
if (I < J)
{
S = x[I];
x[I] = x[J];
x[J] = S;
}
}

//main loop
for(N = 2, Nd2 = 1, Skew = Nmax >> 1, Step= 1; N <= Nmax; Nd2 = N, N += N, Skew >>= 1, Step++)
{
for(Warray = Wstore, k = 0; k < Nd2; k++, Warray += Skew)
{
for(m = k; m < Nmax; m += N

[poligrath_4]

ams1
Сообщений: 81

Добавлено: 13 фев 18 9:36
Изменено: 13 фев 18 9:40

Цитата:
"Автор: гость 94.102.122.*
Фонотрон - Нечтокогнитрон - Синхрофазотрон
Ничего личного, просто ассоциация "
- да я и сам ассоциировал- лохотрон, мудазвон, ...- да потом угомонился...- если я сам начну с такого, то потом чего ждать от участников...

За FFT- код спасибо, конечно, только что с ним далее делать? Скрипку с барабаном в аренду брать, вместе с музыкантами?

Я бы предпочел сначала поболтать по сути задачи... Вот, например, я не ошибаюсь, что так её сформулировать ещё никто не собрался? Или, как часто у меня случается, меня давно уже опередили ("украли идею" - )