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

#ifndef autoH
#define autoH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#define maxpop 100
struct pp
{
      int chrom[100];
      int fitness;
      int parent1, parent2, xsite;
} *oldpop,*newpop,*p1;

const unsigned long maxshort=65536L;
const unsigned long multiplier=1194211693L;
const unsigned long adder=12345L;
unsigned long randSeed=time(0);
//---------------------------------------------------------------------------
class TAutoForm : public TForm
{
__published:	// IDE-managed Components
        TButton *Button1;
        TADOQuery *ADOQuery1;
        TDataSource *DataSource1;
        TADOConnection *ADOConnection1;
        TADOQuery *ADOQuery2;
        TADOQuery *ADOQuery3;
        TADOQuery *ADOQuery4;
        TADOQuery *ADOQuery5;
        TADOQuery *ADOQuery6;
        TADOQuery *ADOQuery7;
        TADOQuery *ADOQuery8;
        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
        void __fastcall Button1Click(TObject *Sender);
private:	// User declarations
public:		// User declarations
         int grade;
         __fastcall TAutoForm(TComponent* Owner);
         void __fastcall TAutoForm::initpop();
         __fastcall TAutoForm::objfunc(int *a);
         void __fastcall TAutoForm::statics(struct pp* pop);
         void __fastcall TAutoForm::generation();
         __fastcall TAutoForm::select();
         void __fastcall TAutoForm::crossover(int *a,int *b,int k5);
         void __fastcall TAutoForm::randomize1();
         __fastcall TAutoForm::random1();
         __fastcall TAutoForm::flip(float probability);
         __fastcall TAutoForm::length(int *a);
         __fastcall TAutoForm::order(int *b,int l);
         void __fastcall TAutoForm::check(int *a);
         void __fastcall TAutoForm::initialize();
         void __fastcall TAutoForm::pause();
         int popsize,lchrom,gen,maxgen,nmutation,ncross,jcross,maxpp,minpp,jrand;
         float pcross,pmutation,rj[maxpop],oldrand[maxpop];
         float sumfitness,avg,max,min;
         int chromize[10]; //課元組
         int priority[10];//優先級組
         __fastcall TAutoForm::Random(unsigned long n);
         int course_id[10];
         //int priority[10];
};
//---------------------------------------------------------------------------
extern PACKAGE TAutoForm *AutoForm;
//---------------------------------------------------------------------------
#endif