基本小函数(16)

图像处理的有用资料

for(i=0;i<255;i++) count[i]=0;

for(i=0;i<N;i++) {

count[image[i]]++; }

//－－－－－正规化灰度概率统计 for(i=0;i<255;i++) {

h[i]=count[i]/(double)N; }

//------正规化新灰度图 double hc;

for(i=0;i<N;i++) {

hc=0;

for(j=0;j<image[i];j++) hc+=h[j];

nh[image[i]]+=hc; //保存新正规化灰度图 newimage[i]=hc*255; //保存新图像灰度索引 }

//----------显示直方图 for(i=0;i<255;i++) {

//原始直方图

Form1->Canvas->MoveTo(10+i,200);

Form1->Canvas->LineTo(10+i,200+h[i]*N); //新直方图

Form1->Canvas->MoveTo(300+i,200);

Form1->Canvas->LineTo(300+i,200+nh[i]*255); }

//------显示图形 TColor *tc;

if(bmpi->width%4==0)//-----------因为BMP图像4字节对齐 wc=bmpi->width/4*4; else

wc=(bmpi->width/4+1)*4;

long a;

long pos=0;

for( i=0;i<bmpi->height;i++) {

for(j=0;j<wc;j++) {