get_filters

 returns filters for lemarie wavelet  
 FORMAT [H,G,RH,RG] = get_filters(obj, dim, varargin)
 
 Input
 obj       - phiw_lemarie object
 dim       - size of input to filter 
 varargin  - any other parameters used to determine filters (not
             applicable for this object)
 
 Returns
 H         - high pass analysis filter
 G         - low pass analysis
 RH        - high pass synthesis
 RG        - low pass synthesis
 
 $Id: get_filters.m,v 1.1 2004/09/26 07:48:37 matthewbrett Exp $

0001 function [H,G,RH,RG] = get_filters(obj, dim, varargin)
0002 % returns filters for lemarie wavelet
0003 % FORMAT [H,G,RH,RG] = get_filters(obj, dim, varargin)
0004 %
0005 % Input
0006 % obj       - phiw_lemarie object
0007 % dim       - size of input to filter
0008 % varargin  - any other parameters used to determine filters (not
0009 %             applicable for this object)
0010 %
0011 % Returns
0012 % H         - high pass analysis filter
0013 % G         - low pass analysis
0014 % RH        - high pass synthesis
0015 % RG        - low pass synthesis
0016 %
0017 % $Id: get_filters.m,v 1.1 2004/09/26 07:48:37 matthewbrett Exp $
0018 
0019 if nargin < 2
0020   error('Need image width to specify filter')
0021 end
0022 
0023 f_len = ceil(dim/obj.dim_div/2)*2;
0024 [H,G,RH,RG] = lemarie(f_len);