線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:970
推到 Plurk!
推到 Facebook!

用BCB影像求變異數問題

尚未結案
akino0910
一般會員


發表:34
回覆:52
積分:16
註冊:2005-09-30

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-09-30 02:47:53 IP:163.28.xxx.xxx 未訂閱
我用BCB的程式來求出影像的變一數再將變異數的數值存到原本的image中 可是跑出來的結果跟我用VC求出來的卻不相同... 還有跑圖要跑25秒左右...希望各位高手能提供我更快速的開圖方式以及我程式中錯誤的地方....感激不盡^^    void __fastcall TForm1::Button2Click(TObject *Sender) {  if(OpenPictureDialog1->Execute())   {    Image2->AutoSize=true;    Image2->Picture->LoadFromFile(OpenPictureDialog1->FileName);   }  int sumv=0,max_v=0,min_v=100000,var=0,i1,j1,a,b;  Graphics::TBitmap *TheBitmap, *TempBitmap;  TheBitmap=Image2->Picture->Bitmap;  TempBitmap=new Graphics::TBitmap();  TempBitmap->Assign(TheBitmap);  for (int x=0;xWidth;x ) { for (int y=0;yHeight;y ) { sumv=0; for(a=-2;a<3;a ) { for(b=-2;b<3;b ) { i1=x a; j1=y b; if(i1<=0) i1=0; if(i1>TheBitmap->Width-1) i1=TheBitmap->Width-1; if(j1<=0) j1=0; if(j1>TheBitmap->Height-1) j1=TheBitmap->Height-1; sumv =(pow(TempBitmap->Canvas->Pixels[i1][j1]- TempBitmap->Canvas->Pixels[x][y],2)); } } var=sumv/25; if(var>max_v) max_v=var; if(varCanvas->Pixels[x][y]=var; } } TheBitmap->Assign(TempBitmap); delete TempBitmap; }
taishyang
站務副站長


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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-09-30 09:07:28 IP:210.68.xxx.xxx 未訂閱
您好:    PO程式碼的方式與版規說明請參考下面連結,煩請修改謝謝您的配合 >
akino0910
一般會員


發表:34
回覆:52
積分:16
註冊:2005-09-30

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-10-03 17:41:56 IP:163.28.xxx.xxx 未訂閱
對不起....因為我是第一次po文...所以不知道哪裡出了問題...是程式沒有用 好嗎?真的很抱歉..照成大家的困擾...下次我會注意的^^"
taishyang
站務副站長


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

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-10-03 18:00:31 IP:210.68.xxx.xxx 未訂閱
您好:    PO程式碼的方式與版規說明請參考下面連結,煩請修改謝謝您的配合 >
系統時間:2024-04-28 18:53:23
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!