function ispart=control(array)
cvp=1;
for i=1:length(array)
cvp=cvp*varmi(fibon(max(array)),array(i))
end   
s=1;
for i=length(array):-1:3
    array(i)
    array(i-1)
    array(i-2)
s=s*(array(i)==array(i-1)+array(i-2))
end
if s & cvp
    ispart=1;
else
    ispart=0;
end