Finally, working filter:


clc
close all
clear all

i = imread('Image1.tif'); 

j = i(:, :, 1:3); 
clearvars i; 
x = rgb2gray(j);
%m = x; 
%k = fspecial('sobel'); 
%g = imfilter(m,k);
y = fspecial('laplacian', 0.1); 
d = fspecial('gaussian', [3 3], 3); 
f = imfilter(x,d);
r = imfilter(f,y);
figure, imshow(r); 
%z = imadjust(x,[0.0 0.3],[0 1]);
%figure, imshow(x);
%figure, imshow(z);

%bw1 = edge(z,'sobel'); 
%bw2 = edge(z, 'canny');
%figure,imshow(bw1);
%figure,imshow(bw2);