% Klassisk talföljd: Ta ett heltal. Halvera om det är jämnt;
% annars mult med 3 och addera 1, upprepa!
  clear, clf
  n=input('Ett heltal: ');  nv=n; 
  while n>1
    if rem(n,2)==0, n=n/2; else n=3*n+1; end;
    nv=[nv n];
  end
  talen=nv,  bar(nv)  % Stapeldiagram
 