function verzweigungsdiagramm
% verzweigungsdiagramm: Erzeugt eine Grafik mit den Häufungspunkten
%     der Rekursion x=cx(1-x) in Abhängigkeit von c

% Autor: Jörg Hörner
% Letzte Änderung: 31. März 2005

% Startwerte
c = 1:.001:4;
x =  0.5*ones(size(c));

% Erste 200 Iterationen zum Einschwingen
for k1=1:200;x = c.*x.*(1-x);end

% Plot vorbereiten
clf;axis([exp(1) exp(4) 0 1]);hold on;

% Iteration durchführen und Punkte plotten
for k1 = 1:100
  x = c.*x.*(1-x);
  plot(exp(c),x,'.b','markersize',.1);  
end
