function ab=r_hatfcn_dis(N)
%R_HATFCN_DIS Recurrence coefficients for the hat weight
%function.
%   R_HATFCN_DIS(N) generates the first N recurrence
%   coefficients for the weight function W(X)=1+X if
%   -1 <= X <=0, 1-X if 0 <= X <= 1, and 0 otherwise,
%   using a 2-component discretization procedure.
   
global mc mp iq idelta irout AB
mc=2; mp=0; iq=1; idelta=2; 
irout=1;
%irout=0;
Mmax=2*N; eps0=.5e-13;
[ab,Mcap,kount]=mcdis(N,eps0,@qhatf,Mmax);
[Mcap kount]
