0001 p=4;
0002
0003 L=6; n=2^L-1; m=(n+1)/p;
0004 a=0;
0005 b=1;
0006 h=(b-a)/(n+1);
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021 xsol=(1:n)*h;
0022 xa=(0.5:n+0.5)*h;
0023
0024
0025
0026 a2=zeros(n+1,n+1);
0027 mat=[];
0028 for i=1:p
0029 for j=1:p
0030 tmp=zeros(n+1,n+1);
0031 tmp((i-1)*m+1:i*m,(j-1)*m+1:j*m)=1;
0032 a2=a2+tmp;
0033 mat{i+(j-1)*p}=Fd_mtx2(tmp);
0034 end
0035 end
0036
0037 smin=1;
0038 smax=2;
0039 d=6;
0040 h=(smax-smin)/(2^d-1);
0041 rhs=ones(n*n,1);
0042
0043 fun = @(ind) lars(p,ind,mat,rhs,n,d,smin,h,(n+1)/2,(n+1)/2);
0044 y=tt_rc(p*p*d,2,fun,1e-5,'nswp',40,'change_dir_on',false);