[aESThete]

выкопал лабу (кому-то из друзей делал) в свое время было написано для Turbo Pascal 7.0 for DOS
(в то время Delphi в институтах не учили )

Код:

program Histogram;

uses Crt;

const
  xmax = 100; ymax = 100; {размер картинки}
  colormax = 65535; {для 16-битной картинки}
  histomax = 640; {количество столбцов гистограммы, выводимой в режиме 640х480}

var
  image: array[1..xmax, 1..ymax] of word; {для 16-битной картинки}
  h: array[1..histomax] of integer;
  x, y: integer;
  a: real;
  k: real;

begin

  {здесь загрузка картинки в массив image}

  k := histomax / colormax; {коэффициент пересчета из цвета в гистограмму}

  for x := 1 to xmax do begin
    for y := 1 to ymax do begin
      a := image[x, y] * k; {приводим цвет к столбцам, здесь же можно превратить "цвет" в "яркость"}
      Inc(h[round(a)]); {прибавляем к соотв. столбцу}
    end;
  end;

  {здесь прорисовка результатов}

end.

предполагается что картинка - 16 бит градаций серого, т.е. это только общая идея, без выделения яркости и разбивки на цвета...
или вам нужен был именно алгоритм превращения номера цвета в яркость?..

[hasherfrog]

>> гистограмму зависимости количества пикселов от яркости для любой картинки
Сбивает с толку слово "зависимости". Скорее "распределения", да?

Яркость определяется компонентами R, G, B. Возможно, каждая компонента даёт не треть, а какое-то (пропорциональное) количество к яркости - тут я не очень большой знаток. Определяем всю шкалу как 0 - 255*3. Делим её, скажем, на 100 частей. В пределах одного процента получится 7.68 единицы. делаем массив из 100 ячеек, прогоняем для каждой точки картинки h[((R+G+B)*100)/768)]++; Ну а потом надо просто отстроить график.
Кстати, компонента A (прозрачность) также может влиять на яркость, наверное...