想請問一下各位大大觀念 所謂的Sobel測邊方式 就是使用兩個遮罩對Pixels作運算吧? 這兩個遮罩分別是 x方向 -1 -2 -1  0  0  0  1  2  1 y方向 -1  0  1 -2  0  2 -1  0  1    可是小弟做出來的結果似乎很差 想請問大大我下面的程式碼是否有哪裡錯誤 還是說我觀念徹底錯誤... 請大大們耐心為我看一下 感謝~     

//p1陣列用來放24bit彩圖轉灰階後,每一個pixels的灰階值    int p1[1000][1000];    void p1Pixel(Graphics::TBitmap *pBmp)
{    Byte *ptr;
for (int i=0;iHeight;i   )
 {
  ptr=(Byte*)pBmp->ScanLine[i];
  for (int j=0;jWidth; j   )
  {
   p1[i][j]=ptr[j*3];
  }
 }    //Sobel測邊的主程式碼    void __fastcall TForm1::Sobel2Click(TObject *Sender)
{
 //先用Bmp來暫存讀入的圖像
 Graphics::TBitmap *Bmp = new Graphics::TBitmap();
 Byte *ptr;
 Bmp->Assign(Image1->Picture->Bitmap );    //使用p1Pixel函式存入每一個pixel的灰階值
 p1Pixel(Bmp);
//開始用兩個遮罩來計算
for(int i=0;iHeight;i  )
 {
  ptr=(Byte*)Bmp->ScanLine[i];
  for (int j=0;jWidth; j   )
   {
       int GX;
      int p[10]={0};
      
      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[3] p[6]*2 p[9])-(p[1] p[4]*2 p[7]); //x方向的遮罩          if(GX<0)
      GX=-GX;
            int GY;          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[7] p[8]*2 p[9]-(p[1] p[2]*2 p[3]); //y方向的遮罩          if(GY<0)
      GY=-GY;          for(int z=0;z<3;z  )
      ptr[j*3 z*1]=GX GY;       }
  }
  
  Image2->Picture->Assign(Bmp); //把結果存到Image2
  delete Bmp;
}
 

發表人 - xdio2 於 2004/10/25 16:44:38

//p1陣列用來放24bit彩圖轉灰階後,每一個pixels的灰階值
int p1[1000][1000];    void p1Pixel(Graphics::TBitmap *pBmp)
{
 Byte *ptr;
 for (int i=0;iHeight;i   )
 {
   ptr=(Byte*)pBmp->ScanLine[i];
   for (int j=0;jWidth; j   )
   {
     p1[i][j]=ptr[j*3]; //<--(3)小細節
   }
 }
}    //Sobel測邊的主程式碼
void __fastcall TForm1::Sobel2Click(TObject *Sender)
{
 //先用Bmp來暫存讀入的圖像
 Graphics::TBitmap *Bmp = new Graphics::TBitmap();
 Byte *ptr;
 Bmp->Assign(Image1->Picture->Bitmap );     //使用p1Pixel函式存入每一個pixel的灰階值
 p1Pixel(Bmp);     //開始用兩個遮罩來計算
 for(int i=0; iHeight; i  )
 {
   ptr=(Byte*)Bmp->ScanLine[i];
   for (int j=0; jWidth; j  ) //<--(2)小細節
   {
      int p[10]={0,0,0,0,0,0,0,0,0,0};
      int GX;
      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[3] p[6]*2 p[9])-(p[1] p[4]*2 p[7]); //x方向的遮罩          if(GX<0) GX=-GX;          int GY;
      //(4)小細節
      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[7] p[8]*2 p[9]-(p[1] p[2]*2 p[3]); //y方向的遮罩          if(GY<0) GY=-GY;          for(int z=0;z<3;z  )
      ptr[j*3 z*1]=GX GY; //<--(1)主要問題在此
   }
 }     Image2->Picture->Assign(Bmp); //把結果存到Image2
 delete Bmp;
}

(1)主要問題：GX GY的值要除以2，並且要判斷此值是否介於0~255之間。
(2)小細節：最好判斷i,j是否是邊界值，以避免index超出陣列存取範圍。
(3)小細節：這是只取RGB中某一色平面之值作灰階值，與一般彩色轉灰階作法不一樣，請參考
    http://delphi.ktop.com.tw/topic.php?topic_id=46261
(4)小細節：底下給值的動作似乎與上頭重複，可以省略。

發表人 - TheMoon 於 2004/10/26 17:59:26

感謝您的回應喔! 小弟沒事先說明其實圖片都是已經作過灰階處理了 我用這功能時都是對灰階圖 算是我問問題沒問清楚 感謝這位大大的回應, 請問當我超出255的狀況時 是會發生奇怪的溢位狀況嗎? 再次感謝您的回覆~

引言: 請問當我超出255的狀況時 是會發生奇怪的溢位狀況嗎? 再次感謝您的回覆~

因為在BCB中， Byte資料型態相當於8位元的unsigned integer， 所以資料範圍是在0~255之間， 若數值X超出255的話， 系統會將X表示成(X mod 256)的值。 255 → 11111111 256 →100000000 (最左邊那一位會被捨棄)

引言:

引言: 請問當我超出255的狀況時 是會發生奇怪的溢位狀況嗎? 再次感謝您的回覆~

因為在BCB中， Byte資料型態相當於8位元的unsigned integer， 所以資料範圍是在0~255之間， 若數值X超出255的話， 系統會將X表示成(X mod 256)的值。 255 → 11111111 256 →100000000 (最左邊那一位會被捨棄) < face="Verdana, Arial, Helvetica"> 多謝您的解釋喔 那我再多請問一下您,上次的回答中您說要把(GX GY)/2 那是說(GX GY)/2要是大於255時,我必須做些檢查,好比說就直接設為255 若是(GX GY)/2沒大於255,那我就把那個像素的值放入(GX GY)/2的值囉? 請問除以二是Sobel理論中的道理嗎? 勞煩您解惑了 感謝~

多謝您的解釋喔
那我再多請問一下您,上次的回答中您說要把(GX GY)/2
那是說(GX GY)/2要是大於255時,我必須做些檢查,好比說就直接設為255
A：Yes    若是(GX GY)/2沒大於255,那我就把那個像素的值放入(GX GY)/2的值囉?
A：Yes    請問除以二是Sobel理論中的道理嗎?
A：Yes

     -1 -2 -1          -1  0  1
[abs( 0  0  0 )   abs( -2  0  2 )]/2
      1  2  1          -1  0  1

發表人 - TheMoon 於 2004/10/28 10:25:52