function curve1 ( )

%% CURVE1 makes a plot one dot at a time.

  tic

  clf

  hold on

  dx = 0.0002;

  x = 0.0;
  for i = 1 : 5001
    y = cos ( 100 * x ) - 4 * erf ( 30 * x - 10 );
    plot ( x, y, 'r.' );
    x = x + dx;
  end

  hold off

  toc

  return
end
