function [out,data]=two_coupled_tent_maps(a,eps,iter,trans)
%a ... Parameter of the tent map (vollentwickeltes chaos bei a=2, aus
%numerischen Gründen 1.99999 nehmen
%eps ... Kopplungskonstante
%iter ... Länge des Datensatzes
%trans ... Länge des Transienten
x=rand(2,1);
for j=1:trans
    x=a/2*ones(2,1)-abs(a*(x-[0.5;0.5]));
    x=[(1-eps)*x(1)+eps*x(2);x(2)];
end
out=zeros(iter,2);
data=zeros(iter,2);
for j=1:iter
    x=a/2*ones(2,1)-abs(a*(x-[0.5;0.5]));
    x=[(1-eps)*x(1)+eps*x(2);x(2)];
    data(j,:)=x';
end
indxx1=find(data(:,:)>0.5);
indxx=find(data(:,:)<=0.5);
out(indxx)=0;
out(indxx1)=1;
    
    
