Home > tt2 > tests > test_cross3.m

test_cross3

PURPOSE ^

SYNOPSIS ^

This is a script file.

DESCRIPTION ^

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 p=4;
0002 
0003 L=6; n=2^L-1; m=(n+1)/p; %Step size
0004 a=0;
0005 b=1;
0006 h=(b-a)/(n+1);
0007 
0008 
0009 %a2=ones(n+1,n+1); %Values of a2 are defined at midpoints
0010 %a2(1:m,1:m)=10^4;
0011 %mat=Fd_mtx2(a2);
0012 %rhs=ones(n*n,1);
0013 %sol=mat \ rhs;
0014 %mesh(reshape(sol,n,n))
0015 %return
0016 %The solution is defined at points (1:n)/(n+1)
0017 %mat=Fd_mtx2(a2);
0018 %fprintf('after Fd_mtx2 \n');
0019 %keyboard;
0020 %The diffusion coefficient is defined at points (0.5:n+0.5)/(n+1);
0021 xsol=(1:n)*h;
0022 xa=(0.5:n+0.5)*h;
0023 
0024 %Generate right coefficient
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);

Generated on Wed 08-Feb-2012 18:20:24 by m2html © 2005