Экспертная система 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] [Следующая »]

min@y™ (статус: Доктор наук), 29 июня 2012, 14:00 [#1]: Цитата (casio): отношение количества чёрных и белых точек Посчитай количество чёрных и белых точек, потом подели одно на другое. Получишь отношение. Цитата (casio): можно пример Можно. Давай ч/б картинку. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

bugmenot (статус: 3-ий класс), 29 июня 2012, 20:37 [#2]: Это называется гистограмма. виконання програми розпочинається з того самого мiсця, де призупинилося.

casio (статус: Посетитель), 29 июня 2012, 21:12 [#3]: min@y™: вот http://pixs.ru/showimage/nnbmp_5206761_5153707.jpg

Толяныч (статус: 4-ый класс), 29 июня 2012, 23:41 [#4]: bugmenot: Цитата: Это называется гистограмма. Гистограмма - это несколько другое : графическое изображение количества элементов, попадающих в заданные интервалы. ( Во, сам сформулировал, не глядя в Вики, а заглянув - "способ графического представления табличных данных" ). А из 2 элементов - какая ж тут гистограмма ? Если уж графически ( а в вопросе этого нет ), то скорее круговая диаграмма.

casio (статус: Посетитель), 30 июня 2012, 18:59 [#5]: min@y™: картинку выложил выше...

min@y™ (статус: Доктор наук), 30 июня 2012, 19:03 [#6]: Цитата (casio): картинку выложил выше... А почему JPEG? BMP надо, однобитный, причём. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

casio (статус: Посетитель), 30 июня 2012, 19:11 [#7]: min@y™: сори почему то загружается в jpeg-формате, вот сюда залил http://www.fayloobmennik.net/2017534

min@y™ (статус: Доктор наук), 30 июня 2012, 19:21 [#8]: Цитата (casio): сори почему то загружается в jpeg-формате, вот сюда залил http://www.fayloobmennik.net/2017534 Скачать файл не удалось: на странице нету ссылки для скачивания (я искал, честно!), зато полно видеорекламы, которую пришлось заблокировать. Что мне делать дальше? Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

casio (статус: Посетитель), 30 июня 2012, 19:28 [#9]: min@y™: залил на mail.ru,проверил все скачивается - http://files.mail.ru/JRU4OW

min@y™ (статус: Доктор наук), 30 июня 2012, 19:41 [#10]: Цитата (casio): залил на mail.ru,проверил все скачивается - http://files.mail.ru/JRU4OW Ок, скачал. Но картинка оказалась цветная (24-битная). Я её, конечно, сконвертировал в однобитную, это не трудно. Короче, в понедельник приду на работу и займусь. Если что - стучись в аську ко мне. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

casio (статус: Посетитель), 30 июня 2012, 19:45 [#11]: min@y™: ок спасибо )

min@y™ (статус: Доктор наук), 30 июня 2012, 20:02 [#12]: Напомни в понедельник, а то могу забыть. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Толяныч (статус: 4-ый класс), 2 июля 2012, 11:45 [#13]: Напоминаю : сегодня понедельник Viva Espania !

min@y™ (статус: Доктор наук), 2 июля 2012, 12:59 [#14]: Цитата (Толяныч): Напоминаю : сегодня понедельник А чо напрягаться? Ответ выдан. Цитата (Толяныч): Viva Espania ! Испанцы жжут. Италия в ах@е. Espaňa - так правильней. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

casio (статус: Посетитель), 2 июля 2012, 13:07 [#15]: Толяныч: а что это такое 'Áåëûõ íåò' ?

min@y™ (статус: Доктор наук), 2 июля 2012, 13:13 [#16]: Кстати, я в Испанию скоро в отпуск поеду. В Малагу. Толян, приезжай, попьём винца испанского! Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Толяныч (статус: 4-ый класс), 3 июля 2012, 12:03 [#17]: Это так в этом форуме кириллицу в текстах программы изображет. В оригинале проги if n = 0 then stro := 'Белых нет' else stro := Format ( 'Черных %4d, белых %4d, отношение %6.4f',[m,n,m/n] ) ; Если без этих заморочек, то лучше по ихнему : "Black White ...." и т.д. Приложенную картинку смотрел ? А где оценка 5 ? min@y™, мне в Евросоюз шенген закрыли за преследование оп-пов Но мысленно вместе, я тут "Траминера" тяпну

min@y™ (статус: Доктор наук), 3 июля 2012, 13:01 [#18]: Цитата (Толяныч): за преследование оп-пов За преследование кого? Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

bugmenot (статус: 3-ий класс), 3 июля 2012, 14:01 [#19]: Вот скажи мне, Толяныч - ты за черных или за белых? Цитата (Толяныч): Гистограмма - это несколько другое : графическое изображение количества элементов, попадающих в заданные интервалы Неа, это - функция, аппроксимирующая некое эмпирическое распределение. В данном конкретно дискретном случае это сводится к таблице. виконання програми розпочинається з того самого мiсця, де призупинилося.

min@y™ (статус: Доктор наук), 3 июля 2012, 14:18 [#20]: Цитата (bugmenot): Вот скажи мне, Толяныч - ты за черных или за белых? Ой, главное, шоб не за голубых! Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Страницы: [1] [2] [Следующая »]

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