把公式轉成程式，可是轉出來的圖不對    有人有做過類似的轉換嗎    這邊只有做DCT喔,，沒有做IDCT    void __fastcall TForm1::HistogramEq1Click(TObject *Sender) {         TColor c;         int widthSize=Image1->Picture->Bitmap->Width;         int heightSize=Image1->Picture->Bitmap->Height;         int Rows=8;         Byte RGB_R[8][8]={0};         Byte RGB_G[8][8]={0};         Byte RGB_B[8][8]={0};            Byte sum_R=0,sum_G=0,sum_B=0;         float Cu,Cv;         int pi=3.1415926;            for(int i=0;iCanvas->Pixels[i a][j b]; RGB_R[a][b]=GetRValue(c); RGB_G[a][b]=GetGValue(c); RGB_B[a][b]=GetBValue(c); sum_R =sum_R RGB_R[a][b]*cos((2*a 1)*pi*(i a)/(2*Rows))*cos((2*b 1)*pi*(j b)/(2*Rows)); sum_G =sum_G RGB_G[a][b]*cos((2*a 1)*pi*(i a))/(2*Rows))*cos((2*b 1)*pi*(j b)/(2*Rows)); sum_B =sum_B RGB_R[a][b]*cos((2*a 1)*pi*(i a)/(2*Rows))*cos((2*b 1)*pi*(j b)/(2*Rows)); }//end for b }//end for a if(i==0) Cu = (1/sqrt(2)); else Cu=1; if(j==0) Cv = (1/sqrt(2)); else Cu=1; sum_R=sum_R*0.25*Cu*Cv; sum_G=sum_G*0.25*Cu*Cv; sum_B=sum_B*0.25*Cu*Cv; Image2->Canvas->Pixels[i x][j y]=TColor(RGB(sum_R,sum_G,sum_B)); }//end for y }//end for x }//end for j }//end for i }//end for function 發表人 - archy_liao 於 2004/10/25 03:39:56

請詳讀版規,發表程式請用[ code ][ /code ]框起來,或是在格式的地方按井字 號,將程式加入code裡。謝謝合作。 請儘快修改。

這是我之前的寫法...僅供參考... 如有疑義...我再說明    

 
//=============================DCT============================================
void DCT(color **img_in,int w_in,int h_in,LongDoubleColor **DCT)
{
 int i,j;
 int x,y,u,v;
 long double WidthIn,HeightIn,Cu,Cv;
 WidthIn=(long double)w_in;
 HeightIn=(long double)h_in;
 LongDoubleColor **ImgIn,**DCT_Temp,**Duv;     ImgIn=new LongDoubleColor *[h_in];
 for( i=0;i. >[>