function dxdt=Collapse(t,x, k)
%csatolt egyenletek, k=csatolás erõssége

dxdt=zeros(2,1);

dxdt(1)=x(1)-x(1)^3+k*(x(2)-x(1));
dxdt(2)=x(2)-x(2)^3+k*(x(1)-x(2));

end