% voidpar = iterativemap(iter,M)
% Skript zum Verfolgen einer mehrfachen Abbildung
% durch die eingegebene Matrix M. Es wird 'iter'-mal abgebildet.
function iterativemap(varargin)
if nargin > 1
Mac = varargin{2};
else
Mac = [0.9 -0.1 ; 0.1 0.9];
end
if nargin > 0
iterc = varargin{1};
else
iterc = 6;
end
clf ; hold on
xy = zeros(20,2,11,11);
for ili = 1:11
for iro = 1:11
% Start-Koordinatenpaare bei x,y = -10:2:+10
xy(1,1,ili,iro) = 2*(iro-6);
xy(1,2,ili,iro) = 2*(ili-6);
% wiederkehrende Abbildung, (iter-Mal) mit M
for k=1:iterc
xy(k+1,:,ili,iro) = (Mac*(xy(k,:,ili,iro))' )';
end
end
end
% Plot der Abbildungs-Geschichte
for ili = 1:11
for iro = 1:11
plot(xy(1:iterc+1,1,ili,iro),xy(1:iterc+1,2,ili,iro))
plot(xy(1,1,ili,iro),xy(1,2,ili,iro),'k+')
plot(xy(2:iterc+1,1,ili,iro),xy(2:iterc+1,2,ili,iro),'ro')
end
end
axis equal; hold off