%Aufrufprogramm zum Turm von Hanoi. Zur Verfuegung stehen muss auch das
%Programm "turmzeichnen". Es werden alle 2^n Zwischenpositionen in kleinen
%subplots auf ein Blatt gezeichnet. Das funktioniert bei moderatem m<=6.
global Turm1; global Turm2; global Turm3; global z; global mfix;
global Farbe1; global Farbe2; global Farbe3;
z=0;
m=5; mfix=m;
m1=1;m2=2;m3=3;
Farbe1='r';Farbe2='g';Farbe3='b';
Turm1=[m:-1:1]; Turm2=[]; Turm3=[];
z=z+1;
if m==1
  subplot(1,2,z), else
  subplot(2^(m-2),4,z);
end;
turmzeichnen(mfix,Turm1,Turm2,Turm3,Farbe1,Farbe2,Farbe3);
s=['Anfang mit n = ',int2str(m),' =========================='];
disp(s);
Hanoi(m,m1,m2,m3);
disp('Ende=======================================');
