function walker_2d_l2_plot ( n )

  [ xtrack, ytrack ] = walker_2d_l2 ( n );

  l = length ( xtrack );
  clf
  hold on
  a = linspace ( 0.0, 2.0 * pi, 101 );
  x = n * cos ( a );
  y = n * sin ( a );
  plot ( x, y, 'r-', 'LineWidth', 5 );
  axis equal
  for i = 1 : l
    if ( 1 < i )
      plot ( [xtrack(i-1)], [ytrack(i-1)], 'b.', 'LineWidth', 2, 'Markersize', 40 )
      plot ( [xtrack(i-1), xtrack(i)], [ytrack(i-1), ytrack(i)], 'r-', 'LineWidth', 2, 'Markersize', 40 )
    end

    plot ( [xtrack(i)], [ytrack(i)], 'r.', 'LineWidth', 2, 'Markersize', 40 )
    s = sprintf ( '%d steps', i - 1 );
    title ( s, 'Fontsize', 24 );
    pause
  end
  hold off

  return
end

