全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1317
推到 Plurk!
推到 Facebook!

請問一下細線化問題

尚未結案
crow6715
一般會員


發表:5
回覆:3
積分:1
註冊:2004-05-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-06-23 19:58:10 IP:140.130.xxx.xxx 未訂閱
我試做了一個關於"細線化"的程式 可是做不出來,是否有人可以指教一下,謝謝!  for(int i = 0; i < 511; i++)                 for(int j = 0; j < 511; j++)  //影像大小                 {                         if( array2[i][j] == 0 )  //array2已宣告在最上面                      {                         int  C[9];                         C[1] = array2[i][j+1];                         C[2] = array2[i+1][j+1];                         C[3] = array2[i+1][j];                         C[4] = array2[i+1][j-1];                         C[5] = array2[i][j-1];                         C[6] = array2[i-1][j-1];                         C[7] = array2[i-1][j];                         C[8] = array2[i-1][j+1];//設立遮罩                            int Neighbor_number = C[1]+C[2]+C[3]+C[4]+C[5]+C[6]+C[7]+C[8];                         if ( (Neighbor_number >1) && (Neighbor_number <7) ) { int Change_times = 0; for( int m = 1; m < 7; m ) { if( (C[m]==0) && (C[m 1]==1) ) Change_times ; } //算出S(p)的值 if( Change_times == 1 ) array2[i][j] = 255; } } } for(int i = 0; i < 512; i ) for(int j = 0; j < 512; j ) { if( (i==0)||(j==0)||(i==(511))||(j==(511)) ) array2[i][j] = 0; else { if( array2[i][j] == 1 ) array2[i][j] = 255; else array2[i][j] = 0; } } ^_^ 發表人 - taishyang 於 2004/06/23 20:43:26
------
^_^
crow6715
一般會員


發表:5
回覆:3
積分:1
註冊:2004-05-16

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-06-23 20:04:01 IP:140.130.xxx.xxx 未訂閱
而我另外還有弄二個button,分別為scan及show但是結果跑出來的圖為全黑 //--------------------------------------------------------------------    void __fastcall TForm1::Button8Click(TObject *Sender) {    //scan   for (int y=0;y<512;y ) { for (int x=0;x<512;x ) { array2 [x][y]=GetRValue(Image2->Canvas->Pixels[x][y]); } } } //-------------------------------------------------------------------- void __fastcall TForm1::Button9Click(TObject *Sender) { //show Image1->Picture = NULL;//Clean for (j=0;j<512;j ) { for (i=0;i<512;i ) { if (array2 [i][j]>128) Image1->Canvas->Pixels [i][j]=clWhite; else Image1->Canvas->Pixels [i][j]=clBlack; } } } //-------------------------------------------------------------------- ^_^
------
^_^
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-06-23 20:42:03 IP:140.135.xxx.xxx 未訂閱
您好: 您可以參考下面連結seeing會員的大作 http://delphi.ktop.com.tw/topic.php?topic_id=48244 【發表】細線化程式 還有PO程式碼的方式請參考版規說明,並煩請修改 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=48259 順心
系統時間:2024-05-21 4:33:21
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!