test_AdtQA_V

0001 clear all
0002 
0003 udir = 'D:\MatData\Connection\Test\';
0004 %fn = 'input_Nvact10.mat';
0005 fn = 'input.mat';
0006 
0007 load([udir fn])
0008 
0009 Nvact = 500;
0010 Nloop = 1;
0011 profile_on = 1;
0012 
0013 % Reduce dimension for debug
0014 Delta = Delta(1:Nvact, 1:Nvact);
0015 
0016 profile_start(profile_on);
0017 
0018 [Delta_set, Ndelta, indx, deltax, Nindx, nl_indx, NL_indx] = ...
0019     init_index(Delta);
0020 
0021 init_matrix;
0022                 
0023 [AdtQA_V0] = init_AdtQA_V(Nvact, Ndelta, NL_indx);
0024 
0025 [sp_dl_indx] = get_AdtQA_V_index(Nvact, Ndelta, NL_indx, AdtQA_V0);
0026 
0027 if profile_on==0
0028     profile_end(profile_on);
0029     profile_start(profile_on);
0030 end
0031 
0032 for n=1:Nloop
0033     [AdtQA_V1] = cal_AdtQA_V ...
0034       (Nvact, Ndelta, Delta_set, ax_z, mar, Vmar, indx, deltax);
0035 end
0036 
0037 if profile_on==0
0038     profile_end(profile_on);
0039     profile_start(profile_on);
0040 end
0041 
0042 for n=1:Nloop
0043 %    [AdtQA_V2] = set_AdtQA_V2(Nvact, Ndelta, ax_z, mar, Vmar, nl_indx, NL_indx);
0044     
0045     [AdtQA_V2] = set_AdtQA_V(Nvact, Ndelta, ax_z, mar, Vmar, ...
0046         nl_indx, NL_indx, sp_dl_indx, AdtQA_V0);
0047 end
0048 
0049 profile_end(profile_on);
0050 
0051 [err2 ] = vb_err_cell(AdtQA_V1, AdtQA_V2)
0052 %[err4 ] = vb_err_cell(AdtQA_V1, AdtQA_V4)
0053 return