plot-histogram.rar_The Show

%%Compute and plot(show the image and its histogram)the histogram of flower %.pgm,swan.pgmand tools.pgm.comment on what information can be discerned %about the images from an examination of the histogram. clc;clear all;close all; %%======================================================================== %% showing the images and the histogram plots %%======================================================================= %%histogram plot of flower.pgm d=imread('image/flower.pgm'); %%d=rgb2gray(d); [m n]=size(d); s=double(d); for i=0:255 %find the no. of occurance of each gray level a=find(s==i); x(i+1)=length(a); end y=x/(m*n); %probability l=0:255; figure; subplot(211);imshow(d);title('original image'); subplot(212);stem(l,x);title('histogram plot'); %%histogram plot of swan.pgm d1=imread('image/swan.pgm'); %%d=rgb2gray(d1); [m1 n1]=size(d1); s1=double(d1); for i=0:255 %find the no. of occurance of each gray level a1=find(s1==i); x1(i+1)=length(a1); end y1=x1/(m1*n1); %probability l1=0:255; figure; subplot(211);imshow(d1);title('original image'); subplot(212);stem(l1, x1);title('histogram plot'); %%histogram plot of tools.pgm d3=imread('image/tools.pgm'); %%d3=rgb2gray(d3); [m2 n2]=size(d3); s2=double(d3); for i=0:255 %find the no. of occurance of each gray level a2=find(s1==i); x2(i+1)=length(a2); end y2=x2/(m2*n2); %probability l2=0:255; figure; subplot(211);imshow(d3);title('original image'); subplot(212);stem(l2, x2);title('histogram plot');