Нейронные сети, обучение персептрона с учителем

struct fann *sfann;
//---------------------------------------------------------------------------
class CTrainData
{
public:
int input1,input2;
int output;
};
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
//Количество входных нейронов столько же, сколько и входных параметров
const unsigned int num_input = 2;
//Почему столько вот уровней? Без понятия, просто 3 это не 2 и не 5
const unsigned int num_layers = 3;
//--//--
const unsigned int num_neurons_hidden = 5;
//Выходных нейронов столько же, сколько и результатов.
const unsigned int num_output = 1;
//Инициализация
sfann = fann_create_standard(num_layers, num_input, num_neurons_hidden, num_output);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::btnTeachClick(TObject *Sender)
{
//Набиваем данные для тренировки. Таблица истинности основных булевых операций
CTrainData xor[4]={
{0,0,0},
{1,1,0},
{0,1,1},
{1,0,1}
};
CTrainData and[4]={
{0,0,0},
{0,1,0},
{0,1,0},
{1,1,1}
};
CTrainData or[4]={
{0,0,0},
{1,1,1},
{0,1,1},
{1,0,1}
};
 
CTrainData*selectedData;
switch(rgTrainingOperation->ItemIndex)
{
case 0:selectedData=and;break;
case 1:selectedData=or;break;
case 2:selectedData=xor;break;
}
 
 
float input[2];
float output[1];
//Много много раз запускаем нашу нейросеть в режиме тренировки. Задаем ей
//входные значения и то что должно получится на выходе. Сеть это запоминает.
for(int i=0;i<50000;i++)
  {
  int index=i%4;
  input[0]=selectedData[index].input1;
  input[1]=selectedData[index].input2;
  output[0]=selectedData[index].output;
  fann_train(sfann,input,output);
  }
ShowMessage("Обучение закончено");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
float input[2];
float*output;
//Грузим во входные параметры необходимые параметры
if(Edit1->Text=="1")
  {
  input[0]=1;
  }else
  {
  input[0]=0;
  }
if(Edit2->Text=="1")
  {
  input[1]=1;
  }else
  {
  input[1]=0;
  }
//Запускаем нейросеть
output = fann_run(sfann, input);
//читаем результат
Edit3->Text=FloatToStr(output[0]);
}
//---------------------------------------------------------------------------