Нейронные сети

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <Buttons.hpp>
#include <ExtCtrls.hpp>
#include <jpeg.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TTrackBar *TrackBar1;
        TComboBox *ComboBox1;
        TEdit *Edit1;
        TLabel *Label1;
        TLabel *Label2;
        TLabel *Label3;
        TEdit *Edit2;
        TLabel *Label4;
        TLabel *Label5;
        TEdit *Edit3;
        TEdit *Edit4;
        TEdit *Edit5;
        TEdit *Edit6;
        TLabel *Label6;
        TLabel *Label7;
        TLabel *Label8;
        TLabel *Label9;
        TImage *Image1;
        TLabel *Label10;
        TImage *Image2;
        TLabel *Label11;
        TBitBtn *BitBtn1;
        TLabel *Label12;
        void __fastcall TrackBar1Change(TObject *Sender);
        void __fastcall ComboBox1Change(TObject *Sender);
        void __fastcall Edit1Change(TObject *Sender);
        void __fastcall Edit3Change(TObject *Sender);
        void __fastcall Edit4Change(TObject *Sender);
        void __fastcall Edit5Change(TObject *Sender);
        void __fastcall Edit6Change(TObject *Sender);
        void __fastcall BitBtn1Click(TObject *Sender);
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall Image2Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
class Cneiron
{public:
 Cneiron (int,int);     //обьявление конструктора
int n;  //количество нейронов
int x[100];     //массив под входные сигналы
int k[100];     //массив под веса нейронов
int l;  //количество слоев
float y[100];  //массив промежуточных сигналов нейронов в слое
float z[100];  //массив выходных сигналов нейронов после функции активации
float y_min,y_max,z_min,z_max;  //параметры функции активации
float aktiv();  //обьявление функции расчета выходных сигналов нейрона
};
 
float aktiv(int n,int l, int x[100],int k[100],int y[100],float z[100],float y_min,float y_max,float z_min,float z_max)
{for(int j=0;j<l;j++)
{for(int i=0;i<n;i++)
{k[i]=random(2);        //заполнение случайным образом весов нейронов
y[i]+=x[i]*k[i];
if(y[i]>y_max) z[i]=z_max;    //условия функции активации
if(y[i]<y_min) z[i]=z_min;
else z[i]=y[i];
}
}
return z;       //возвращающий функцией массив значений
};
 
class Layer: public Cneiron
{public:
float u;        //выход сети
float vuhod();    //обьявление функции расчета выхода сети
};
 
Layer::Layer(float u) //конструктор
{
Layer *pLayer;
};
 
float vuhod(int l,int n,int x[100],int k[100],int y[100],float z[100],float u,float y_min,float y_max,float z_min,float z_max)
{for(int i=0;i<n;i++)
{u+=z[i];}
if(u>y_max) u=z_max;    //условия функции активации
if (u<y_min) u=z_min;
else u=u;
return u;
};
 
delete pLayer;
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int i,l,n,x[100];
float y_min,y_max,z_min,z_max,y[100],z[100],u;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
x[i]=StrToInt(TrackBar1->Position);
i++;
Label12->Caption=TrackBar1->Position;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
switch(ComboBox1->ItemIndex)
{case 0:
l=1;
break;
case 1:
l=2;
break;
case 2:
l=3;
break;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
n=StrToInt(Edit1->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit3Change(TObject *Sender)
{
y_min=StrToInt(Edit3->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit4Change(TObject *Sender)
{
y_max=StrToInt(Edit4->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit5Change(TObject *Sender)
{
z_min=StrToInt(Edit5->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit6Change(TObject *Sender)
{
z_max=StrToInt(Edit6->Text);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
pLayer=new Layer;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
Form1->Edit2->Text=IntToStr(pLayer->vuhod());
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Image2Click(TObject *Sender)
{
        
}
//---------------------------------------------------------------------------