1 files changed, 34 insertions, 0 deletions
diff --git a/3176/CH9/EX9.1/Ex9_1.sce b/3176/CH9/EX9.1/Ex9_1.sce
new file mode 100644
index 000000000..15c74e707
--- /dev/null
+++ b/3176/CH9/EX9.1/Ex9_1.sce
@@ -0,0 +1,34 @@
+//Ex9_1
+//Using Erosion to remove image component
+// 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).
+
+////////////////// Tonal Correction for the Flat Image  ////////////////////////
+Image=imread("Ex9_1.tif");
+//Color=imresize(Color,0.25);
+[nr nc]=size(Image);
+figure,ShowImage(Image,'Gray Image');
+title('Binary Image of Wire Bond [486*486]','color','blue','fontsize',4);
+Mask=CreateStructureElement('square',11);
+Image_Eroide=ErodeImage(Image,Mask);
+figure,ShowImage(Image_Eroide,'Eriode Image');
+title('Eriode Image with 11*11 Square Mask','color','blue','fontsize',4);
+
+Mask=CreateStructureElement('square',15);
+Image_Eroide=ErodeImage(Image,Mask);
+figure,ShowImage(Image_Eroide,'Eriode Image');
+title('Eriode Image with 15*15 Square Mask','color','blue','fontsize',4);
+
+Mask=CreateStructureElement('square',45);
+Image_Eroide=ErodeImage(Image,Mask);
+figure,ShowImage(Image_Eroide,'Eriode Image');
+title('Eriode Image with 45*45 Square Mask','color','blue','fontsize',4);