function [avgarea,avginten] = simplefeat(path)
dirls=dir(path);
for i=1:length(dirls)
    img=imread(dirls(i).name);
    a=double(img);
    b=(a-min(min(a)))./(max(max(a))-min(min(a)));
    %figure(1)
    %imshow(b);
    c=im2bw(b,graythresh(b));
    %figure(2)
    %imshow(c);
    d=bwlabel(c);
    xarea=[]; xinten=[];
    for j=1:max(max(d))
        x=find(d==j);
        xarea(j)=length(x);
        xinten(j)=sum(b(x));
    end
    avgarea(i)=mean(xarea);
    avginten(i)=mean(xinten);
end