  for logn = 1 : 6
    n = 10^logn;
    tic;
    scalar_code ( n );
    t1 = toc;
    tic;
    vector_code ( n );
    t2 = toc;
    fprintf ( 1, '%6d  %g  %g  %g\n', n, t1, t2, t1/t2 );
  end
