unit1.h

此程序采用K均值的方法对样本数据进行模式分类

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

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <Dialogs.hpp>
#include <Buttons.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TStatusBar *StatusBar1;
        TOpenDialog *OpenDialog1;
        TGroupBox *GroupBox1;
        TListView *ListView1;
        TPanel *Panel1;
        TPanel *Panel2;
        TGroupBox *GroupBox2;
        TGroupBox *GroupBox3;
        TListView *ListView2;
        TPanel *Panel3;
        TGroupBox *GroupBox5;
        TPanel *Panel5;
        TGroupBox *GroupBox4;
        TListView *ListView3;
        TListView *ListView4;
        TLabel *Label3;
        TSplitter *Splitter1;
        TLabel *Label1;
        TPanel *Panel4;
        TLabel *Label2;
        TSpeedButton *SpeedButton1;
        TSpeedButton *SpeedButton3;
        TSpeedButton *SpeedButton2;
        TSplitter *Splitter2;
        TSplitter *Splitter3;
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall SpeedButton1Click(TObject *Sender);
        void __fastcall SpeedButton2Click(TObject *Sender);
        void __fastcall SpeedButton3Click(TObject *Sender);
private:	// User declarations

     // int IterNum;//分类迭代次数

public:        // User declarations

        void DistributeSamples();
        double EucNorm(int p,int c);
        int FindClosestCluster(int pat);
        int CalcNewClustCenters();
        void InitClusters();

        double Pattern[150][4];//模式样本
        double ClusterCenter[3][4];//各类中心
        int ClusterNumMembers[3]; //分类后各类样本个数
        int ClusterMember[3][150];//各类中样本的训练样本序号


               __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif