以下是SOBEL的程式...是我找來的確定可以使用 只是我不了解他的理論..所以希望站上的朋友可以為我解答..THX int __fastcall TForm1::Gx(int i,int j) {  int GX;  int p[10];  p[1]=p1[i-1][j-1];  p[2]=p1[i][j-1];  p[3]=p1[i+1][j-1];  p[4]=p1[i-1][j];  p[5]=p1[i][j];  p[6]=p1[i+1][j];  p[7]=p1[i-1][j+1];  p[8]=p1[i][j+1];  p[9]=p1[i+1][j+1];     GX=((p[7]+p[8]+p[9])-(p[1]+p[2]+p[3]))/4;     if (GX<0) GX=(-1)*GX; return (GX); } //--------------------------------------------------------------------------- int __fastcall TForm1::Gy(int i,int j) { int GY; int p[10]; p[1]=p1[i-1][j-1]; p[2]=p1[i][j-1]; p[3]=p1[i 1][j-1]; p[4]=p1[i-1][j]; p[5]=p1[i][j]; p[6]=p1[i 1][j]; p[7]=p1[i-1][j 1]; p[8]=p1[i][j 1]; p[9]=p1[i 1][j 1]; GY=((p[1] p[4] p[7])-(p[3] p[6] p[9]))/4; if (GY<0) GY=(-1)*GY; return (GY); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button6Click(TObject *Sender) { if (Image1->Picture->Bitmap->Empty==true) ShowMessage("請載入圖檔!!"); Graphics::TBitmap *Bmp = new Graphics::TBitmap(); Byte *ptr; Bmp->Assign(Image1->Picture->Bitmap ); for (int i=0;iHeight;i ) { ptr=(Byte*)Bmp->ScanLine[i]; for (int j=0;jWidth; j ) { p1[j][i]=ptr[j*3]; } } for (int i=0;iHeight;i ) { ptr=(Byte*)Bmp->ScanLine[i]; for (int j=0;jWidth; j ) { ptr[j*3]=Gx(j,i) Gy(j,i); ptr[j*3 1]=Gx(j,i) Gy(j,i); ptr[j*3 2]=Gx(j,i) Gy(j,i); } } Image2->Picture->Assign(Bmp); delete Bmp; }

Sobel原理是利用邊緣處的灰階(顏色)值差異較大 並且對於正上下或正左右的加權 來達到邊緣檢測的目標 所以程式中就是抓某個點的鄰近像素灰階(顏色)值 套用Sobel的遮罩(也就是像素點的加權)來作計算

librarext您好:    PO程式碼的方式與版規說明請參考下面連結,煩請修改謝謝您的配合 >