summaryrefslogtreecommitdiff
path: root/3176/CH3/EX3.3/Ex3_3.sce
blob: ed8e2139cde180b7d4784d14673c70ec63d6672a (plain)
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
//Ex3_3
// Intensity Level Slicing
// 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).
gray=imread("Ex3_3.tif");
//gray=im2double(gray);
figure,ShowImage(gray,'Gray Image');
title('Original Image','color','blue','fontsize',4);
[M,N]=size(gray);
A=145;
B=245;
for i=1:M
    for j=1:N
        if(gray(i,j)>A & gray(i,j)<=B)
        b(i,j)=255;
        c(i,j)=255;
    else
        b(i,j)=0;
        c(i,j)=gray(i,j);
    end
    end    
end
figure,ShowImage(b,'Gray Image');
title('Image after Intensity Slicing transformation','color','blue','fontsize',4);

figure,ShowImage(c,'Gray Image');
title('Image after Intensity Slicing transformation(Linear)','color','blue','fontsize',4);