main.h

Implementation of genetic algorithm, to search for desired extreme n-variable function.

//---------------------------------------------------------------------------

#ifndef mainH
#define mainH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Buttons.hpp>
#include <Grids.hpp>

#include "extrema.h"
#include "funkcje.h"
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
class TFormM : public TForm
{
__published:	// IDE-managed Components
     TPanel *PCenter;
     TStatusBar *StatusBar;
     TGroupBox *GBMutKrzyz;
     TEdit *EPMutacji;
     TUpDown *UDPMutacji;
     TLabel *Label1;
     TUpDown *UDPKrzyzowania;
     TEdit *EPKrzyzowania;
     TLabel *Label2;
     TGroupBox *GroupBox3;
     TLabel *Label6;
     TEdit *ELOsobnikow;
     TUpDown *UDLOsobnikow;
     TGroupBox *GroupBox4;
     TLabel *Label8;
     TEdit *EPrecyzja;
     TUpDown *UDPrecyzja;
     TUpDown *UDLCykli;
     TEdit *ELCykli;
     TLabel *Label9;
     TGroupBox *GroupBox5;
     TComboBox *CBFunkcjaOceny;
     TLabel *Label11;
     TEdit *EXmin;
     TUpDown *UDXmin;
     TEdit *EXmax;
     TUpDown *UDXmax;
     TLabel *Label12;
     TPanel *Panel1;
     TPanel *Panel2;
     TPanel *Panel3;
     TLabel *Label13;
     TSpeedButton *SBStart;
     TSpeedButton *SBWstrzymaj;
     TSpeedButton *SBPonow;
     TSpeedButton *SBZakoncz;
     TSpeedButton *SBZamknij;
     TGroupBox *GroupBox7;
     TStringGrid *SGPopPocz;
     TGroupBox *GroupBox8;
     TLabel *Label7;
     TEdit *ELPopulacji;
     TUpDown *UDLPopulacji;
     TGroupBox *GroupBox9;
     TProgressBar *PBPop;
     TLabel *Label16;
     TBevel *Bevel3;
     TLabel *LPopulacja;
     TEdit *EOpoznienie;
     TUpDown *UDOpoznienie;
     TLabel *Label17;
     TLabel *Label18;
     TLabel *LStop;
     TBevel *Bevel4;
     TUpDown *UDDoc;
     TEdit *EDoc;
     TLabel *Label3;
     TLabel *Label4;
     TProgressBar *PBNum;
     TLabel *LNum;
     TBevel *Bevel5;
     TGroupBox *GroupBox6;
     TStringGrid *SGWybor;
     TStringGrid *SGPopBiez;
     TGroupBox *GroupBox10;
     TLabel *Label5;
     TEdit *ESigma;
     TUpDown *UDSigma;
     TGroupBox *GroupBox1;
     TStringGrid *SGWyniki;
     TLabel *Label14;
     TBevel *Bevel1;
     TBevel *Bevel2;
     void __fastcall SBStartClick(TObject *Sender);
     void __fastcall SBWstrzymajClick(TObject *Sender);
     void __fastcall SBPonowClick(TObject *Sender);
     void __fastcall SBZakonczClick(TObject *Sender);
     void __fastcall CBFunkcjaOcenyChange(TObject *Sender);
     void __fastcall EOpoznienieChange(TObject *Sender);
     void __fastcall SBZamknijClick(TObject *Sender);
     void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private:	// User declarations
     // static const
     static const unsigned MAX_LICZBA_FUNC = 2;

     // pointers
     // wskazniki pomocnicze
     EXTR::TArrayOfGenotyp* PopStartowa, * PopDocelowa;

     // types
     typedef struct
     {
          int Max, Min;
     } TPrzedzial;
     //---------------------------------------------------

     TPrzedzial Przedzial[MAX_LICZBA_FUNC];

     //---------------------------------------------------
     //
     long BiezacyWatek ;
     unsigned NumerID;
     bool Zawieszony;
     HANDLE Uchwyt;
     SECURITY_ATTRIBUTES SecurityAttr;

     //----------------------------------------------------
     EXTR::TPopulacja* Populacja;

     //----------------------------------------------------
     int Opoznienie;

     // private methods -----------------------------------
     void __fastcall Init(void);
     void __fastcall WyczyscTabele1(void);
     void __fastcall WyczyscTabele2(void);
     void __fastcall Wyzeruj(void);
     void __fastcall WypelnijPola(void);

     double __fastcall Extremum(void);
     void __fastcall Formatuj(double& Value);
     double __fastcall ObliczOdchylenie(void);
     void __fastcall DodajAnalize(void);

  public:		// User declarations
     __fastcall TFormM(TComponent* Owner);

     // access methods ------------------------------------
     void __fastcall Wykonaj(void);


};
//---------------------------------------------------------------------------
extern PACKAGE TFormM *FormM;
//---------------------------------------------------------------------------
#endif