unitkl.cpp

模式识别程序

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

#include <vcl.h>
#pragma hdrstop

#include "UnitKL.h"
#include "Unitarray.h"
#include "Unit_main.h"
#include "Unitarray_second.h"
#include "UnitFeature.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm_KL *Form_KL;
//---------------------------------------------------------------------------
__fastcall TForm_KL::TForm_KL(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm_KL::Button1Click(TObject *Sender)
{
    float  data_d[270];
    float  data_dd[270];
    float  data_dc[270];
    float  data_u[729];
    float  data_v[270];
    int i,j;
    for(i=0;i<27;i++)
    {
      for(j=0;j<10;j++)
      {
        data_d[i*10+j]=Form_Feture->feature[i][j];
        data_dd[i*10+j]=data_d[i*10+j];
      }

    }
    Publicmath->SVD(data_d,27,10,data_u,data_v,0.000001,28);
    for(i=0;i<10;i++)
    {
        for(j=0;j<10;j++)
        {
          data_dc[i*10+j]=data_d[i*10+j];
        }

    }
    float *c1;
    float *c2;
    float *c3;
    c1=new float[270];
    c2=new float[270];
    c3=new float[270];
    Publicmath->brmul(data_u,data_d,27,27,10,c1);
    Publicmath->brmul(c1,data_v,27,10,10,c2);
    Publicmath->brmul(c1,data_dc,27,10,10,c3);

    for(i=0;i<10;i++)
     {
       for(j=0;j<10;j++)
      {
       data_cc[i*10+i]=c2[i*10+j];
       StringGrid_KL->Cells[j+1][i+1]=data_dc[i*10+j];

     }
   }
   delete[] c1;
   delete[] c2;
   delete[] c3;
}
//---------------------------------------------------------------------------
void __fastcall TForm_KL::Button2Click(TObject *Sender)
{
Form_array_second->Show();

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