Подсчет количества элементов одинакового цвета на изображении

@shock01 · Регистрация: 14.12.2013

Студворк — интернет-сервис помощи студентам

В общем нужна программа подсчета количества лесных вырубок на космоснимке.
Благодаря этому форуму получилось это:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int i=0,j=0; TColor pixel_color;;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 
  OpenPictureDialog1->Execute();
 
if (OpenPictureDialog1->FileName != "")
 
 
 
Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
 
  Image1->Width = Image1->Picture->Width;
      Image1->Height = Image1->Picture->Height;
 
}
 
 
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{    TColor pixel_color;
for(i=0;i<=Image1->Picture->Width;i++)
  for(j=0;j<=Image1->Picture->Height;j++)
 
  {pixel_color = Image1->Picture->Bitmap->Canvas->Pixels[i][j] ;
 
Memo1->Text = IntToStr(Image1->Canvas->Pixels[X][Y]);
 
}
   
 
}
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button6Click(TObject *Sender)
{  TColor pixel_color;
for(i=1;i<Image1->Picture->Width;i++){
 for(j=1;j<Image1->Picture->Height;j++){
pixel_color = Image1->Picture->Bitmap->Canvas->Pixels[i][j];
if(Image1->Picture->Bitmap->Canvas->Pixels[i][j]>=7500000)
 
Image1->Picture->Bitmap->Canvas->Pixels[i][j]=2366701;
 
}
}
 
}
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{        TColor pixel_color;
int q=0;
for (int i=1;i<=Image1->Picture->Bitmap->Width;i++) {
for (int j=1;j<=Image1->Picture->Bitmap->Height;j++) {
 
pixel_color = Image1->Picture->Bitmap->Canvas->Pixels[i][j];
if(Image1->Picture->Bitmap->Canvas->Pixels[i][j])
 
q++;
 
}}
Memo2->Text=q;
}
//---------------------------------------------------------------------------

т.е. кнопка1 считывает все пиксели красного цвета. а нужно, что бы отдельные элементы. Нуждаюсь в вашей помощи.
Во вложении пример вырубки.

@vxg · 15.12.2013, 10:10

Сообщение от shock01

отдельные элементы

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

@shock01 · 15.12.2013, 13:58 **[ТС]**

А как это сделать?

@vxg · 15.12.2013, 15:05

для каждой точки определить есть ли у нее соседи принадлежащие хоть какой нибудь области. если есть - включать точку в область. если соседи принадлежат разным областям - объединять области. если соседи не принадлежат областям - создавать новую область. когда алгоритм прожует рисунок перебрать все области и отбросить те которые имеют в своем составе менее заданного кол-ва точек

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@shock01 0 / 0 / 0 Регистрация: 14.12.2013 Сообщений: 6
	15.12.2013, 13:58 [ТС]
	А как это сделать? 0

@vxg Модератор 3409 / 2184 / 354 Регистрация: 13.01.2012 Сообщений: 8,462
	15.12.2013, 15:05
	для каждой точки определить есть ли у нее соседи принадлежащие хоть какой нибудь области. если есть - включать точку в область. если соседи принадлежат разным областям - объединять области. если соседи не принадлежат областям - создавать новую область. когда алгоритм прожует рисунок перебрать все области и отбросить те которые имеют в своем составе менее заданного кол-ва точек 0