Форум программистов, компьютерный форум, киберфорум
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
MishkaSh
0 / 0 / 0
Регистрация: 19.02.2013
Сообщений: 130
#1

Энтропия изображения - C++

18.04.2014, 15:23. Просмотров 436. Ответов 0
Метки нет (Все метки)

Народ помогите дописать программу чтобы она считала энтропию изображения. Программа написана в 6 билдере, вот код:
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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include <Math.hpp>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Graphics::TBitmap *Bitmap = new Graphics::TBitmap();
Graphics::TBitmap *Bitmap1 = new Graphics::TBitmap();
int W, H, R, B, G, j, i, r, n, q;
int L[256];
int x[1500][1500];
int **Y;
int gl[257];
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   OpenPictureDialog1->DefaultExt = "BMP";
   OpenPictureDialog1->FileName = "*.bmp";
   OpenPictureDialog1->InitialDir = "";
if (OpenPictureDialog1->Execute())
    Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
    Image2->Picture->LoadFromFile(OpenPictureDialog1->FileName);
    Image1->Stretch=true;
    Bitmap->Assign(Image1->Picture);
    W=Image2->Width;
    H=Image2->Height;
    for(i=0; i<257; i++)
    L[i] = 0;
    for(i=0; i<=255; i++)
gl[i]=i;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
{
int R,G,B;
BYTE* biImage;
Y=new int*[H]; for(j=0; j<H; j++) Y[j]=new int[W];
//преобразование RGB в YUV
for(i=0; i<H; i++)
{
biImage=(BYTE*)(Form1->Image1)->Picture->Bitmap->ScanLine[i];
for(j=0; j<W; j++)
 {
R=biImage[j*3+2]; G=biImage[j*3+1]; B=biImage[j*3];
Y[i][j] = 0.299 * R + 0.587 * G + 0.114 * B;
x[i][j] = Y[i][j];
//Memo1->Lines->Add(x[i][j]);// = Y[i][j];
 }
}
//вывод Y на Image 2
for(i=0; i<H; i++)
{
biImage=(BYTE*)(Form1->Image2)->Picture->Bitmap->ScanLine[i];
for(j=0; j<W; j++)
 {
biImage[j*3+2]= Y[i][j];
biImage[j*3+1]= Y[i][j];
biImage[j*3]  = Y[i][j];
 }
}
//обновление изображения на экране
Form1->Image2->Refresh();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Image1->Picture->Assign(NULL);
Image2->Picture->Assign(NULL);
Memo2->Lines->Clear();
Memo1->Lines->Clear();
Chart1->Series[0]->Clear();
Chart2->Series[0]->Clear();
}
//---------------------------------------------------------------------------
int Myx(int m, TMemo *Memo1)//, BYTE* biImage)
{
 for(i=0; i<=H; i++)
 for(j=0; j<=W; j++)
 if (m==x[i][j])
 L[r]= L[r]+1;
 Memo1->Lines->Add("Количество: "+String(L[r])+"  Значение: "+String(q));
 r++;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
 for(q=0; q<=255; q++)
 Myx(q, Memo1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
int bound, temp, t, r=255, ghb;
bound = r-1;
  do
  {
   t=0;
   for(j=0; j<=bound-1; j++)
   if (L[j]<L[j+1])
   {
   ghb=gl[j];
   gl[j]=gl[j+1];
   gl[j+1]=ghb;
   temp=L[j];
   L[j]=L[j+1];
   L[j+1]=temp;
   t=j;
   }
   bound=t;
  }while(t);
  for(q=0; q<=255; q++)
  Memo2->Lines->Add("Количество: "+String(L[q])+"  Значение: "+String(gl[q]));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
 for(i=0; i<=255; i++)
 {
 Chart1->Series[0]->Add(L[i], gl[i], clBlue);
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
  for(i=0; i<=255; i++)
 {
 Chart2->Series[0]->Add(L[i], gl[i], clBlue);
 }
}
Прикрепил саму программу чтобы легче было сориентироваться.
0
Вложения
Тип файла: rar Desktop.rar (5.03 Мб, 3 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.04.2014, 15:23
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Энтропия изображения (C++):

Информационная энтропия - C++
Здравствуйте. С предмета основы теории информации задали написать программу для вычисления энтропии, а я в программировании почти ноль....

Энтропия Шеннона - C++
Здравствуйте. После 3 часового поиска в Гугле, в том числе и на вашем форуме, решил таки задать вопрос сам. Нужна помощь в следующем: ...

Количество информации. Энтропия - C++
В алфавите m символов. В сообщении n символов. Определите – количество всевозможных сообщений длины n, состоящего из символов данного...

Энтропия источника информации - C++
Помоги, пожалуйста. Определить энтропию источника информации. Источник расположен в файле &quot;istinf.txt&quot;. Рассчитать по формуле...

Формула Шеннона "Энтропия, бит" - C++
Здравствуйте, подскажите пожалуйста, как написать функцию которая будет считать Энтропию файла ?

Энтропия и СКО изображения - Matlab
Для качественного изображения энтропия ( функция entropy) - лучше, когда она большая или маленькая? Такой же вопрос и о СКО (функция...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.04.2014, 15:23
Привет! Вот еще темы с ответами:

энтропия - Термодинамика и МКТ
в баллоне с жесткими стенками вместимостью 3 л находится инертный газ при давлении 120 кпа.Баллон разрушается при давлении 500 кПа.какое...

Энтропия - Термодинамика и МКТ
энтропия 1г азота при 25 градусах и давлении 10^5 Па равна 6,84 Дж/г*К. Определить энтропию 2г азота при температуре 100 градусов цельсия и...

Энтропия - Теория вероятностей
Определить энтропию системы, которая может находиться в одном из 5 состояний, 4 из которых равновероятны, а вероятность пятого состояния...

энтропия - C#
Доброго времени суток. Нужно создать форму на которой будут следующие элементы: textbox, combobox, button, label. в текстовое поле вводится...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru