Увеличить контрастность полутоновых изображений

  
   unsigned r, g, b;
   int min, max;
   TColor Color;
   //Объявление динамических массивов 
   int **inp_image = new int *[Image1->Width];
   int **out_image = new int *[Image1->Width];
   for (int i=0; i<Image1->Width; i++)
   {  inp_image[i] = new int [Image1->Height];
      out_image[i] = new int [Image1->Height];  }
   //Записываем в один из них значения пикселей с картинки
   for (int x=0; x<=Image1->Width-1; x++)
   for (int y=0; y<=Image1->Height-1; y++)
   {  COLORREF Color=ColorToRGB(Image1->Canvas->Pixels[x][y]);
      r=GetRValue(Color); g=GetGValue(Color); b=GetBValue(Color);
   inp_image[x][y]=floor((r+g+b)/3);  }
   //Ищем минимум и максимум
   min=inp_image[0][0]; max=inp_image[0][0];
   for (int x=0; x<=Image1->Width-1; x++)
   for (int y=0; y<=Image1->Height-1; y++)
   { if (inp_image[x][y]>max) max=inp_image[x][y];
     if (inp_image[x][y]<min) min=inp_image[x][y]; }
   //"Растягиваем" значения
   for (int x=0; x<=Image1->Width-1; x++)
   for (int y=0; y<=Image1->Height-1; y++)
   { out_image[x][y]=int((inp_image[x][y]-min)/(max-min)*255);  }
   //Рисуем результат функции на картинке
   for (int x=0; x<=Image1->Width-1; x++)
   for (int y=0; y<=Image1->Height-1; y++)
   {  Image1->Canvas->Pixels[x][y]=(TColor)RGB(out_image[x][y],out_image[x][y],out_image[x][y]); }
   //Удаляем динамический массив
   for (int i=0;i<Image1->Width; i++)
   {  delete []inp_image[i];  delete []out_image[i];  }
      delete []inp_image; inp_image=NULL;
      delete []out_image; out_image=NULL;

   unsigned r, g, b;
 ->float min, max;
   TColor Color;
   //-Оголошуєм-динамічний-масив--------------------
   int **inp_image = new int *[Image1->Width];
   int **out_image = new int *[Image1->Width];
   for (int i=0; i<Image1->Width; i++)
   {  inp_image[i] = new int [Image1->Height];
      out_image[i] = new int [Image1->Height];  }
   //-Заповнюєм-змінні-значеннями-тону--------------
   for (int x=0; x<=Image1->Width-1; x++)
   for (int y=0; y<=Image1->Height-1; y++)
   {  COLORREF Color=ColorToRGB(Image1->Canvas->Pixels[x][y]);
      r=GetRValue(Color);
   inp_image[x][y]=r;  }
   //-Визначення-оперативного-діапазону-------------
   min=inp_image[0][0]; max=inp_image[0][0];
   for (int x=0; x<=Image1->Width-1; x++)
   for (int y=0; y<=Image1->Height-1; y++)
   { if (inp_image[x][y]>max) max=inp_image[x][y];
     if (inp_image[x][y]<min) min=inp_image[x][y]; }
   //-Підвищення-контрасту-зображення---------------
   for (int x=0; x<=Image1->Width-1; x++)
   for (int y=0; y<=Image1->Height-1; y++)
   { out_image[x][y]=int((inp_image[x][y]-min)/(max-min)*255);  }
   //-Виведення-вихідного-зображення----------------
   for (int x=0; x<=Image1->Width-1; x++)
   for (int y=0; y<=Image1->Height-1; y++)
   {  Image1->Canvas->Pixels[x][y]=(TColor)RGB(out_image[x][y],out_image[x][y],out_image[x][y]); }
   //-Видалення-динамічних-массивів-----------------
   for (int i=0;i<Image1->Width; i++)
   {  delete []inp_image[i];  delete []out_image[i];  }
      delete []inp_image; inp_image=NULL;
      delete []out_image; out_image=NULL;