function [w,info] = perform_alpert_transform_1d(v,pos,k, dir, options)

% perform_alpert_transform_1d - transform a 1D signal using a 1D Alpert basis.
%
%   [w,info] = perform_alpert_transform_1d(v,pos,k, dir, options);
%
%	'v' is a 1D vector, the valued to transform.
%   'pos' is a 1D vector, pos(i) is the ith point.
%   'k' is the number of vanishing moments (1=>Haar, 2=>linear basis ...).
%   'dir' is 1 for fwd transform and -1 for bwd.
%
%   'w' is the transformed data.
%   'info' is a struct containing the localisation information for each
%       basis Alpert vector.
%       'info.l' is the scale of the vector (0=coarse scale).
%       'info.n' is the space location of the vector.
%       'info.k' is the number of multiwavelet (in [1,...,k(1)*k(2)]).
%
%   Copyright (c) 2004 Gabriel Peyr