Искусственные нейронные сети

// Вибір прикладу образа зі списку.
void __fastcall TFormMain::ComboBoxSamplesChange(TObject *Sender)
{
// Подача вибраного прикладу із навчальної вибірки на вхід нейромережі.
    for (int i = 0; i < 10; i++)
    {
        for (int j = 0; j < 5; j++)
        {
            input[i][j] = LearningSamples[ComboBoxSamples->Text.ToInt()][i][j] == 1 ? HI : LO;
        }
    }
 
    // Вивід зображення.
    DrawGridPattern->Refresh();
    // Вивід результату.
    LabelOut->Caption = "";
}
//---------------------------------------------------------------------------
       // Замальовування точки вхідного образу.
void __fastcall TFormMain::DrawGridPatternDrawCell(TObject *Sender, int ACol, int ARow,TRect &Rect, TGridDrawState State)
{
  // Установка коліру точки вхідного образу.
 
  DrawGridPattern->Canvas->Brush->Color = input[ARow][ACol] == HI ? clBlue : clRed;
  DrawGridPattern->Canvas->FillRect(Rect);
}
           // Вибір точки вхідного образа.
void __fastcall TFormMain::DrawGridPatternSelectCell(TObject *Sender, int ACol, int ARow, bool &CanSelect)
{
    //Інвертування стану точки вхідного образу.
    input[ARow][ACol] = input[ARow][ACol] == HI ? LO : HI;
    // вивід рузультату.
    LabelOut->Caption = "";
 
 
//---------------------------------------------------------------------------
}