close all
clear all
clc
%load('puffer')
A = zeros(18);
[n,m] = size(A);
A(6,8:12)=1;
A(8:12,12)=1;
A(12,6:10)=1;
A(6:10,6)=1;
gen = 0;
B = zeros(n,m);
loo = 1;
while gen < 2800 && sum(sum(abs(B-A))) ~= 0
    B = A;
    for C = 2:n-1
        for R = 2:m-1
            g = antalgrannar(B,C,R);
            S = levnadsvillkor(g,B,C,R);
            A(C,R) = S;
        end
    end
    gen = gen + 1;
   spy(A);
   pause(0.0000001)
end