From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 3176/CH8/EX8.2/Ex8_2.sce | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 3176/CH8/EX8.2/Ex8_2.sce

(limited to '3176/CH8/EX8.2')

diff --git a/3176/CH8/EX8.2/Ex8_2.sce b/3176/CH8/EX8.2/Ex8_2.sce
new file mode 100644
index 000000000..aabdf45d0
--- /dev/null
+++ b/3176/CH8/EX8.2/Ex8_2.sce
@@ -0,0 +1,36 @@
+//Ex8_2
+//Image Entropy Estimation
+// Version : Scilab 5.4.1
+// Operating System : Window-xp, Window-7
+//Toolbox: Image Processing Design 8.3.1-1
+//Toolbox: SIVP 0.5.3.1-2
+//Reference book name : Digital Image Processing
+//book author: Rafael C. Gonzalez and Richard E. Woods
+
+clc;
+close;
+clear;
+xdel(winsid())//to close all currently open figure(s).
+A=imread("Ex8_2.tif");
+
+figure,ShowImage(A,'Original Image');
+title('Original Image','color','blue','fontsize',4);
+[nr nc]=size(A);
+[Count Cell]=imhist(A);
+//figure,bar(Cell,Count);
+[r c]=find(Count>0);
+Probablity=Count(r)/(nr*nc); //Probablity Calculation
+//disp(Probablity);
+Intensity=Cell(r);
+//disp(Intensity);
+
+Sum=0;
+for i=1:length(r)
+    p=Probablity(i);
+    Sum=Sum+(-p*log2(p));
+end
+
+disp('Entropy')
+disp(Sum);
+
+
-- 
cgit