m = imread('C:\Users\Tatjana\Downloads\mikroskop.tif');
figure;imshow(m,[]);
m_crop=imcrop(m,[1 1 1+1550 1310  ]);
figure;imshow(m_crop);
mdouble=double(m_crop)/255;
figure;imshow(mdouble);
h = imhist(mdouble);
plot(h)
slika=mdouble;
slika=imadjust(slika,[0.5 1],[0,1],2.7);
figure
imshow(slika);
figure;plot(imhist(slika));

slika1 = conv2(double(slika), ones(3)/9, 'same');
figure
imshow(slika1);

slika2 = wiener2(slika,[7 7]);
figure
imshow(slika2)
plot(imhist(slika2))
s = imhmin(slika2,0.1);
figure
imshow(s)
L = watershed(s);
mapa = label2rgb(L,'jet',[.5 .5 .5]);
figure,imshow(s)
figure, imshow(mapa);