for i=1:length(data(:,1))
    bound1=[];
    for j=1:data(i,4)
        preb=[0,0,0,0];
        for k=1:data(i,3)
            if J2(data(i,2)+j-0.5,data(i,1)+k-0.5)==1
                if preb(1)==0
                    preb(1)=data(i,1)+k-0.5;
                    preb(2)=data(i,2)+j-0.5;
                else
                    preb(3)=data(i,1)+k-0.5;
                    preb(4)=data(i,2)+j-0.5;
                end
            end
        end
        if length(preb)==4
            bound1=[bound1;preb];
        end
    end
    bound=[bound;bound1];
    num=[num;length(bound1)];
end