unit1.~cpp

本程序实做MLP(Multi-layer perceptron)算法

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "FileRead.h"
#include "MLPAlgo.h"
#include "DataCutForm.h"
#include "time.h"
#include "ShowForm.h"
//#include "SetWightForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "TeePoin3"
#pragma link "TeeSurfa"
#pragma resource "*.dfm"
TForm1 *Form1;
TFileRead *fr;
TMLPAlgo *mlp;
int HiddenLevelNum=0;
int WTableNo=-1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{

}
//---------------------------------------------------------------------------


void __fastcall TForm1::btnReadTrainFileClick(TObject *Sender)
{
    if(OpenDialog1->Execute())
    {
        fr=new TFileRead();
        this->Caption="MLP by 法睧惩 07.10.21 "+OpenDialog1->FileName;
        fr->ReadData(OpenDialog1->FileName);

        mlp=new TMLPAlgo();
        mlp->SetPracticeData(fr);

        Edit1->Text=mlp->DataNum;
        Edit2->Text=mlp->DataDimNum;
        Edit3->Text=mlp->MapExpectClusterNum;

        Series3->Clear();
        for(int i=0;i<mlp->DataNum;i++)
        {

            if(mlp->DataDimNum==2)
            {
                switch(mlp->ExpectCluster[i])
                {
                    case 0:
                        Series3->AddXYZ(mlp->Y[i][0],mlp->Y[i][1],0,"",clRed);
                        break;
                    case 1:
                        Series3->AddXYZ(mlp->Y[i][0],mlp->Y[i][1],0,"",clBlue);
                        break;
                    case 2:
                        Series3->AddXYZ(mlp->Y[i][0],mlp->Y[i][1],0,"",clGreen);
                        break;
                    case 3:
                        Series3->AddXYZ(mlp->Y[i][0],mlp->Y[i][1],0,"",clBlack);
                        break;
                    default:
                        Series3->AddXYZ(mlp->Y[i][0],mlp->Y[i][1],0,"",clWhite);
                }
            }

            if(mlp->DataDimNum==3)
            {
                switch(mlp->ExpectCluster[i])
                {
                    case 0:
                        Series3->AddXYZ(mlp->Y[i][0],mlp->Y[i][1],mlp->Y[i][2],"",clRed);
                        break;
                    case 1:
                        Series3->AddXYZ(mlp->Y[i][0],mlp->Y[i][1],mlp->Y[i][2],"",clBlue);
                        break;
                    case 2:
                        Series3->AddXYZ(mlp->Y[i][0],mlp->Y[i][1],mlp->Y[i][2],"",clGreen);
                        break;
                    case 3:
                        Series3->AddXYZ(mlp->Y[i][0],mlp->Y[i][1],mlp->Y[i][2],"",clBlack);
                        break;
                    default:
                        Series3->AddXYZ(mlp->Y[i][0],mlp->Y[i][1],mlp->Y[i][2],"",clWhite);
                }
                //Series3->AddXYZ(mlp->Y[i][0],mlp->Y[i][1],mlp->Y[i][2]);
            }

        }
        GroupBox2->Enabled=true;
        GroupBox3->Enabled=false;
        GroupBox4->Enabled=false;
        GroupBox5->Enabled=false;

        Panel1->Enabled=false;
        Series4->Clear();
    }
    
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btnSetLevelNumClick(TObject *Sender)
{

    //mlp=new TMLPAlgo();
    HiddenLevelNum=Edit4->Text.ToInt();

    StringGrid1->ColCount=2;
    StringGrid1->RowCount=HiddenLevelNum+1;
    StringGrid1->Cells[0][0]="材碭糷";
    StringGrid1->Cells[1][0]="摸