function x = linsp1(x1,x2,n)
% linsp1  Generate a vector of equally spaced values, version 1.
%
% Synopsis:  x = linsp1(x1,x2)
%            x = linsp1(x1,x2,n)
%
% Input:     x1, x2  = lower and upper limits of vector elements
%            n = (optional) number of elements to generate. Default: n=100
%
% Output:    x = vector of n equally spaced values  in x1 <= x <= x2
if nargin<3,  n=100;  end
dx = (x2-x1)/(n-1);
x(1) = x1;
for k=2:n
  x(k) = x(k-1) + dx;
end