Форум программистов, компьютерный форум CyberForum.ru

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

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

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

18.04.2014, 15:23. Просмотров 272. Ответов 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);
 }
}
Прикрепил саму программу чтобы легче было сориентироваться.
Вложения
Тип файла: rar Desktop.rar (5.03 Мб, 3 просмотров)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.04.2014, 15:23     Энтропия изображения
Посмотрите здесь:

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

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

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

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

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

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

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

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

Энтропия - Turbo Pascal
Мужики, где тут идет вычисление энтропии? uses crt; var source:text; pr:string; { pseudosluchaynaya posledovatelnost} ...

Энтропия - Термодинамика и МКТ
Нагреватель, сохраняющий постоянную температуру 100оС(неограниченный тепловой резервуар) приводится в контакт с запаянным сосудом, в...

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

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


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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