function [ab,Mcap,kount]=r_Bspline_dis(N)
%R_BSPLINE_DIS Recurrence coefficients for the B-spline measure.
%   AB=R_BSPLINE_DIS(N) uses a multicomponent discretization
%   procedure to generate the first N recurrence coefficients for 
%   the Mth-order B-spline measure PHI_M(t)dt.

global mc mp iq idelta irout m
mc=m; mp=0; iq=1; idelta=2; irout=1; Mmax=500;
eps0=.5e-8;
[ab,Mcap,kount]=mcdis(N,eps0,@quad_Bspline,Mmax);
ab(:,1)=(m/2)*ones(N,1);
