Programmeringskonferens Gbg Uppgift 1 3x+1 problemet

% Städa bort gamla variabler och grafer
clear
clf

antalTal=10000; % Variabel som anger antal tal
maxSteg=0;      % Variabel för att räkna antal steg

% k räknar från 0 till antalTal
for k=1:antalTal
    
  % Sätt startvärde för n, nollställ räknaren för steg 
  n=k;
  steg = 0;
  
  # Utför de steg som algoritmen föreskriver
  while n != 1
    steg =steg + 1;
    if n / 2 == round(n / 2)
      n=n/2;
    else
      n=3*n+1;
    end
  end

  if steg> maxSteg
      maxSteg=steg;
  end
  
  % Skriv ut resultat
  disp([num2str(k)," (kräver ",num2str(steg)," steg)"])
  stegArray(k)=steg;
end

%plot(1:antalTal,stegArray)
%[max maxindex]=max(stegArray)
maxSteg