auslk
初階會員
發表：35
回覆：77
積分：32
註冊：2003-02-17
發送簡訊給我
|
親愛的先進與大大,大家好! 小弟
void __fastcall TForm1::HSIMode1Click(TObject *Sender)
{
int i,j;
double H1,max,min,R,G,B;double PI=3.1415926; Byte *ptr;
Graphics::TBitmap *bmp1=new Graphics::TBitmap();
Graphics::TBitmap *bmp2=new Graphics::TBitmap();
Graphics::TBitmap *bmp3=new Graphics::TBitmap(); bmp1->Assign(Image1->Picture->Bitmap);
bmp2->Assign(Image1->Picture->Bitmap);
bmp3->Assign(Image1->Picture->Bitmap); for(j=0;jHeight;j )
{
ptr=(Byte *)bmp1->ScanLine[j];
for(i=0;iWidth;i )
{
B=ptr[i*3];
G=ptr[i*3 1];
R=ptr[i*3 2];
max=R;
min=R; if(max<=G)
max=G;
else
min=G;
if(max<=B)
max=B;
else if(min>=B)
min=B;
// H acos()<~~~~出現問題"acos:DOMAIN error
H1=acos(0.5*((R-G) (R-B)))/sqrt(((R-G)*(R-G) (R-B)*(G-B)));
if(B<=G)
{
ptr[i*3]=H1;
ptr[i*3 1]=0;
ptr[i*3 2]=0;
}
else
{
ptr[i*3]=Byte(2*PI-H1);
ptr[i*3 1]=0;
ptr[i*3 2]=0;
} }
Image3->Picture->Assign(bmp1); for(j=0;jHeight;j )
{
ptr=(Byte *)bmp2->ScanLine[j];
for(i=0;iWidth;i )
{
B=ptr[i*3];
G=ptr[i*3 1];
R=ptr[i*3 2];
max=R;
min=R;
if(max<=G)
max=G;
else min=G;
if(max<=B)
max=B;
else if(min>=B)
min=B; ptr[i*3]=(max-min)/max;
ptr[i*3 1]=0;
ptr[i*3 2]=0;
}
}
Image4->Picture->Assign(bmp2); for(j=0;jHeight;j )
{
ptr=(Byte *)bmp3->ScanLine[j];
for(i=0;iWidth;i )
{
B=ptr[i*3];
G=ptr[i*3 1];
R=ptr[i*3 2];
max=R;
min=R;
if(max<=G)
max=G;
else
min=G;
if(max<=B)
max=B;
else if(min>=B)
min=B; ptr[i*3]=Byte(max/255);
ptr[i*3 1]=0;
ptr[i*3 2]=0;
}
}
Image5->Picture->Assign(bmp3);
}
在 HSI 中的 H 部分 出現以下訊息: 對話框 "acos:DOMAIN error" 有點百思不解,怎會出現這種問題,請各位大大與先進協助除錯! 感激不盡! Pauli 發表人 - auslk 於 2003/11/13 20:37:22
|
auslk
初階會員
發表：35
回覆：77
積分：32
註冊：2003-02-17
發送簡訊給我
|
Dear 大大,
以上的程式碼我有加
不知道這樣可以合乎規定ㄇ？ Pauli 引言:
親愛的先進與大大,大家好! 小弟
void __fastcall TForm1::HSIMode1Click(TObject *Sender)
{
int i,j;
double H1,max,min,R,G,B;double PI=3.1415926; Byte *ptr;
Graphics::TBitmap *bmp1=new Graphics::TBitmap();
Graphics::TBitmap *bmp2=new Graphics::TBitmap();
Graphics::TBitmap *bmp3=new Graphics::TBitmap(); bmp1->Assign(Image1->Picture->Bitmap);
bmp2->Assign(Image1->Picture->Bitmap);
bmp3->Assign(Image1->Picture->Bitmap); for(j=0;jHeight;j )
{
ptr=(Byte *)bmp1->ScanLine[j];
for(i=0;iWidth;i )
{
B=ptr[i*3];
G=ptr[i*3 1];
R=ptr[i*3 2];
max=R;
min=R; if(max<=G)
max=G;
else
min=G;
if(max<=B)
max=B;
else if(min>=B)
min=B;
// H acos()<~~~~出現問題"acos:DOMAIN error
H1=acos(0.5*((R-G) (R-B)))/sqrt(((R-G)*(R-G) (R-B)*(G-B)));
if(B<=G)
{
ptr[i*3]=H1;
ptr[i*3 1]=0;
ptr[i*3 2]=0;
}
else
{
ptr[i*3]=Byte(2*PI-H1);
ptr[i*3 1]=0;
ptr[i*3 2]=0;
} }
Image3->Picture->Assign(bmp1); for(j=0;jHeight;j )
{
ptr=(Byte *)bmp2->ScanLine[j];
for(i=0;iWidth;i )
{
B=ptr[i*3];
G=ptr[i*3 1];
R=ptr[i*3 2];
max=R;
min=R;
if(max<=G)
max=G;
else min=G;
if(max<=B)
max=B;
else if(min>=B)
min=B; ptr[i*3]=(max-min)/max;
ptr[i*3 1]=0;
ptr[i*3 2]=0;
}
}
Image4->Picture->Assign(bmp2); for(j=0;jHeight;j )
{
ptr=(Byte *)bmp3->ScanLine[j];
for(i=0;iWidth;i )
{
B=ptr[i*3];
G=ptr[i*3 1];
R=ptr[i*3 2];
max=R;
min=R;
if(max<=G)
max=G;
else
min=G;
if(max<=B)
max=B;
else if(min>=B)
min=B; ptr[i*3]=Byte(max/255);
ptr[i*3 1]=0;
ptr[i*3 2]=0;
}
}
Image5->Picture->Assign(bmp3);
}
在 HSI 中的 H 部分 出現以下訊息: 對話框 "acos:DOMAIN error" 有點百思不解,怎會出現這種問題,請各位大大與先進協助除錯! 感激不盡! Pauli 發表人 - auslk 於 2003/11/13 20:37:22
|
taishyang
站務副站長
發表：377
回覆：5490
積分：4563
註冊：2002-10-08
發送簡訊給我
|
auslk您好:
您的問題好像跟下面的討論是一樣的 ![]()
< href="http://delphi.ktop.com.tw/topic.php?TOPIC_ID=37831">http://delphi.ktop.com.tw/topic.php?TOPIC_ID=37831 順心 ![]()
|
dean
一般會員
發表：24
回覆：60
積分：21
註冊：2003-08-23
發送簡訊給我
|
auslk您好：
taishyang前輩指的正是小弟！
我那個時候H也有發生問題，不過那個時候的問題是出在於除數為0，所以H會發生錯誤。不知您的是不是這樣？因為您的錯誤訊息跟我的不太一樣！
會不會是您的檔案前面沒有加MATH.H？
還是您三個R、G、B的值都相同？
說不定我可能有說錯問題點！若有錯請告知，謝謝！因為我也不太清楚您那個錯誤訊息是啥意思？acos:DOMAIN error---區域錯誤？領域錯誤？ **我很想學，但又很不懂，所以一直問蠢問題，希望不要不屑我的問題，嘻嘻嘻**
|
發表時間：2003-11-13 20:30:09
IP:219.68.xxx.xxx 未訂閱
