function [A] = wertSeg(Bild)
%funktion segmentiert Bild und gibt dieses aus
%filtert zu kleine Objekte
%gibt Werte der Segmente aus
%Bild als gray einlesen
%% Canny-Algorithmus anwenden
Bild = histeq(Bild); % S/W-Kontrast erhöhen
img = edge(Bild,'log'); %Bild ist nun ein binäry
img=imclose(img,strel('disk',1)); %Dilletation/Erosion
%% Objekte "benennen"
[L Ne]=bwlabel(img);
%% kleine Objekte filtern
img = bwareaopen(L, 15);
%% Werte berechnen
A=regionprops(logical(img),'all');
end