LAB04

close all
clear all
clc

monety = imread("coins.png");
figure('Name', 'Monety');
subplot(2,2,1);
imshow(monety);
subplot(2,2,2);
imhist(monety,256);

figure('Name', 'Binaryzacja monety - testowanie progów')
subplot(2,2,1);
im2bw(monety,0.5);
title("0.5");
subplot(2,2,2);
im2bw(monety,90/255);
title("próg 90");
subplot(2,2,3);
im2bw(monety,85/255);
title("próg 85");
subplot(2,2,4);
im2bw(monety,80/255);
title("próg 80");

figura = imread("figura.tif");
figure('Name', 'Binaryzacja - figury')
subplot(4,2,1);
imshow(figura);
subplot(4,2,2);
imhist(figura,256);

figura2 = imread("figura2.tif");
subplot(4,2,3);
imshow(figura2);
subplot(4,2,4);
imhist(figura2,256);

figura3 = imread("figura3.tif");
subplot(4,2,5);
imshow(figura3);
subplot(4,2,6);
imhist(figura3,256);

figura4 = imread("figura4.tif");
subplot(4,2,7);
imshow(figura4);
subplot(4,2,8);
imhist(figura4,256);

prog_coins=graythresh(monety)*255
prog_clusterKittler=clusterKittler(monety)/255
prog_entropyYen=entropyYen(monety)/255
prog_figura=graythresh(figura)*255
prog_figura2=graythresh(figura2)*255
prog_figura3=graythresh(figura3)*255
prog_figura4=graythresh(figura4)*255

figure('Name','Binaryzacja monety')
subplot(3,2,1);
imshow(monety);
title("Oryginalny");
subplot(3,2,2);
imhist(monety,256);
title("Wykres");
subplot(3,2,3);
im2bw(monety,85/255);
title("Metoda im2bw próg 85");
subplot(3,2,4);
im2bw(monety,entropyYen(monety)/255);
title("Metoda entropyYen: ",num2str(entropyYen(monety)/255));
subplot(3,2,5);
im2bw(monety,graythresh(monety));
title("Metoda graythresh: ",num2str(graythresh(monety)*255));
subplot(3,2,6);
im2bw(monety,clusterKittler(monety)/255);
title("Metoda clusterKittler: ",num2str(clusterKittler(monety)/255));

ryz = imread("rice.png");
figure('Name','Binaryzacja ryżu')
subplot(3,2,1);
imshow(ryz);
title("Oryginalny");
subplot(3,2,2);
imhist(ryz,256);
title("Wykres");
subplot(3,2,3);
im2bw(ryz,85/255);
title("Metoda im2bw próg 85");
subplot(3,2,4);
im2bw(ryz,entropyYen(ryz)/255);
title("Metoda entropyYen: ",num2str(entropyYen(ryz)/255));
subplot(3,2,5);
im2bw(ryz,graythresh(ryz));
title("Metoda graythresh: ",num2str(graythresh(ryz)*255));
subplot(3,2,6);
im2bw(ryz,clusterKittler(ryz)/255);
title("Metoda clusterKittler: ",num2str(clusterKittler(ryz)/255));

tekst = imread("tekst.bmp");
figure('Name','Binaryzacja tekstu')
subplot(3,2,1);
imshow(tekst);
title("Oryginalny");
subplot(3,2,2);
imhist(tekst,256);
title("Wykres");
subplot(3,2,3);
im2bw(tekst,85/255);
title("Metoda im2bw próg 85");
subplot(3,2,4);
im2bw(tekst,entropyYen(tekst)/255);
title("Metoda entropyYen: ",num2str(entropyYen(tekst)/255));
subplot(3,2,5);
im2bw(tekst,graythresh(tekst));
title("Metoda graythresh: ",num2str(graythresh(tekst)*255));
subplot(3,2,6);
im2bw(tekst,clusterKittler(tekst)/255);
title("Metoda clusterKittler: ",num2str(clusterKittler(tekst)/255));

obiekty = imread("obiekty.bmp");
figure('Name','Binaryzacja obiektów')
subplot(3,2,1);
imshow(obiekty);
title("Oryginalny");
subplot(3,2,2);
imhist(obiekty,256);
title("Wykres");
subplot(3,2,3);
im2bw(obiekty,85/255);
title("Metoda im2bw próg 85");
subplot(3,2,4);
im2bw(obiekty,entropyYen(obiekty)/255);
title("Metoda entropyYen: ",num2str(entropyYen(obiekty)/255));
subplot(3,2,5);
im2bw(obiekty,graythresh(obiekty));
title("Metoda graythresh: ",num2str(graythresh(obiekty)*255));
subplot(3,2,6);
im2bw(obiekty,clusterKittler(obiekty)/255);
title("Metoda clusterKittler: ",num2str(clusterKittler(obiekty)/255));

katalog = imread("katalog.bmp");
figure('Name','Binaryzacja katalogu')
subplot(3,2,1);
imshow(katalog);
title("Oryginalny");
subplot(3,2,2);
imhist(katalog,256);
title("Wykres");
subplot(3,2,3);
im2bw(katalog,85/255);
title("Metoda im2bw próg 85");
subplot(3,2,4);
im2bw(katalog,entropyYen(katalog)/255);
title("Metoda entropyYen: ",num2str(entropyYen(katalog)/255));
subplot(3,2,5);
im2bw(katalog,graythresh(katalog));
title("Metoda graythresh: ",num2str(graythresh(katalog)*255));
subplot(3,2,6);
im2bw(katalog,clusterKittler(katalog)/255);
title("Metoda clusterKittler: ",num2str(clusterKittler(katalog)/255));


=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=--=-=-=-=-=

=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=--=-=-=-=-=

close all
clear all
clc

bart = imread("bart.bmp");
figure('Name','Bart Simpson')
subplot(1,2,1)
imshow(bart);
subplot(1,2,2)
imhist(bart);

obrazBW = bart > 191 & bart < 210;
figure('Name','Bart - binaryzacja')
imshow(obrazBW);