unit1.h

用bcb所撰寫的kohonen程式,優雅的網狀伸張分佈,將任意維度的input data,reduce至二維x,y平面,competivite learning的最佳範例.

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

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <stdio.h>
#include <Dialogs.hpp>
#include <stdlib.h>
#include <math.h>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TPanel *Panel1;
        TImage *Image1;
        TEdit *Edit1;
        TListBox *ListBox1;
        TColorDialog *ColorDialog1;
        TButton *Button1;
        TLabel *Label1;
        TLabel *Label2;
        TLabel *Label3;
        TLabel *Label4;
        TButton *Button2;
        TLabel *Label5;
        TEdit *Edit2;
        TEdit *Edit3;
        TEdit *Edit4;
        TEdit *Edit5;
        TEdit *Edit6;
        TTimer *Timer1;
        TLabel *Label6;
        TLabel *Label7;
        TLabel *Label8;
        TLabel *Label9;
        TLabel *Label10;
        TLabel *Label11;
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall Image1MouseMove(TObject *Sender, TShiftState Shift,
          int X, int Y);
        void __fastcall Image1MouseDown(TObject *Sender,
          TMouseButton Button, TShiftState Shift, int X, int Y);
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall Timer1Timer(TObject *Sender);  
private:	// User declarations
        void DrawLine(TPoint TopLeft,TPoint BottomRight,TPenMode AMode);
        void ImageClear();
        void ImageDepict();
        int MainEquation(int RunTime);
        int index,start,time,I,Stop;
        
        float E1[10000],E2[10000];
        float *W1,*W2;
        //DynamicArray< DynamicArray< DynamicArray<float> > > W1;
        //DynamicArray< DynamicArray< DynamicArray<float> > > W2;
public:		// User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif