Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Приветствую, уважаемые эксперты!
как узнать в черно-белом рисунке не просто количество, а отношение количества чёрных и белых точек?можно пример

Вопрос задал: casio (статус: Посетитель) Вопрос отправлен: 29 июня 2012, 13:54 Состояние вопроса: решён, ответов: 1.

Ответ #1. Отвечает эксперт: Толяныч

Здравствуйте, casio!
Тоже мне - бином Ньютона ....

http://content.foto.mail.ru/inbox/gaev43/others/i-10.jpg

var
  Form1: TForm1  ;
  stro : string ;
  Bitmap1 : Tbitmap ;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j,n,m,ix,jy : integer ;
begin
  if OpenPictureDialog1.Execute then
  begin
     Image1.Picture.LoadFromFile(OpenPictureDialog1.Filename);
     Bitmap1.Assign(Image1.Picture); m := 0 ;
     j := Bitmap1.Height ; i := Bitmap1.Width ; n := i * j ;
     m := 0 ;
     for ix := 0 to i-1 do
       for jy := 0 to j-1 do
         if Bitmap1.Canvas.Pixels[ix,jy] = clBlack then Inc(m) ;
     n := n - m ;
     if n = 0 then stro := 'Áåëûõ íåò' else
     stro := Format
       ( '×åðíûõ %4d, áåëûõ %4d,
îòíîøåíèå %6.4f',[m,n,m/n] ) ;
     Edit1.Text := stro ;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   Bitmap1 := TBitmap.Create
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  Bitmap1.Free
end;

Ответ отправил: Толяныч (статус: 4-ый класс) Время отправки: 1 июля 2012, 13:24 Оценка за ответ: 5 Комментарий к оценке: все разобрался,спасибо большое!!!!

Мини-форум вопроса

Страницы: [« Предыдущая] [1] [2]

casio (статус: Посетитель), 3 июля 2012, 14:29 [#21]: Толяныч: у меня в едите пишет вот что ×åðíûõ 21, áåëûõ 127979,îòíîøåíèå 0,0002 картинку смотрел

3 июля 2012, 14:42: Статус вопроса изменён на решённый (изменил автор вопроса — casio)

Толяныч (статус: 4-ый класс), 3 июля 2012, 15:13 [#22]: Когда скопипастишь из сайта в окно кода Делфи текст проги, замени на фиг все эти крякозябры нормальными английским словами ( чтобы не тр-ться с кириллицей ) if n = 0 then stro := 'No white' else stro := Format ( 'Black = %4d, White = %4d, Black/White = %6.4f',[m,n,m/n] ) ;

Толяныч (статус: 4-ый класс), 3 июля 2012, 15:35 [#23]: Цитата (bugmenot): Неа, это - функция, аппроксимирующая некое эмпирическое распределение. В данном конкретно дискретном случае это сводится к таблице. Очень смешно - хотел гордо послать тебя на Вики, так как был твердо убежден, что ( см.выше ), чем сам неоднократно пользовался. Но предварительно сам сходил туда и - позор на мои седины - убедился, что и приведенное тобой значение, т.е. функция - тоже существует. Так что ничья. Хотя стоит заметить, что в данной задаче о поиске параметров распределения и речи нет, банальный подсчет черных и белых, как сдачи в магазине. И не будем без нужды умножать сущности.

bugmenot (статус: 3-ий класс), 3 июля 2012, 22:28 [#24]: Цитата (Толяныч): Так что ничья. Да нет, гроссмейстер, вам мат Цитата (Толяныч): в данной задаче о поиске параметров распределения и речи нет Цитата (casio): отношение количества чёрных и белых точек Это разве не отношение вероятностей черных и белых пикселов? виконання програми розпочинається з того самого мiсця, де призупинилося.

Толяныч (статус: 4-ый класс), 3 июля 2012, 22:35 [#25]: Цитата (bugmenot): Это разве не отношение вероятностей черных и белых пикселов? Совершенно детерминированое число пикселей в конкретной картинке, без всяких вероятностев. "Вероятность того, что 2*2=4 близка к 1." Ладно, genug трепаться, ТС удовлетворен, а мы мутузимся.

Страницы: [« Предыдущая] [1] [2]

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.