function [ x y ] = logisticcobweb( lambda, xinit, n )
%LOGISTICCOBWEB Summary of this function goes here
%   Detailed explanation goes here
    x=zeros(1,2*n-1);
    y=zeros(1,2*n-1);
    
    % Initial conditions for x and y
    x(1) = xinit;
    y(1) = logisticmap(lambda, xinit);
    
    % Apply the logistic map n-1 more times
    for j=2:2:2*n-1
        
        % Moving to the line y=x
        y(j) = y(j-1);
        x(j) = y(j);
        
        % Move to the parabola y=lambda*x*(1-x)
        y(j+1) = logisticmap(lambda, x(j));
        x(j+1) = x(j);
        
    end

end