unit1.~cpp

小弟撰寫的類神經pca對圖片的壓縮與解壓縮,對來源圖片training過後,可使用該張圖像的特性(eigenvalue和eigenvetex)來對別張圖解壓縮,非常有趣的方式,再設定threashol

//---------------------------------------------------------------------------
#include <vcl.h>
#include <math.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
double Pattern[100][100][100],Pat[100][100][100],Pat1[100][100][100];
double Average[100],Y[100],Yt[100][100][100];
double Total_Weight[100],Weight[100][100],Differ[100][100];
double wet1[100][100],wet2[100][100],wetinv[100][100];
int height,width,key;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------






void __fastcall TForm1::Define1Click(TObject *Sender)
{
 int i,j,x,k,bs,on,srcImg[300][300];
 BYTE* XPtr;BYTE* YPtr;

 width=Form1->Image1->Picture->Width;
 height=Form1->Image1->Picture->Height;
 bs=StrToInt(Block->Text);

 Image1->Picture->Bitmap->PixelFormat=pf24bit;   //ъ