vb_asign_ext_area

  asign external vertex area to base vertex area according to distance
  xxA = vb_asign_ext_area(xxA_all, base_index, ext_index, ext_table);

 Copyright (C) 2011, ATR All Rights Reserved.
 License : New BSD License(see VBMEG_LICENSE.txt)

0001 function xxA = vb_asign_ext_area(xxA_all, base_index, ext_index, ext_table)
0002 %  asign external vertex area to base vertex area according to distance
0003 %  xxA = vb_asign_ext_area(xxA_all, base_index, ext_index, ext_table);
0004 %
0005 % Copyright (C) 2011, ATR All Rights Reserved.
0006 % License : New BSD License(see VBMEG_LICENSE.txt)
0007 
0008 Nbase = length(base_index);
0009 Next  = length(ext_index);
0010 
0011 xxA = xxA_all(base_index);
0012 
0013 for i=1:Next
0014     ix = ext_index(i);
0015     jx_list = ext_table{i};
0016     
0017     Nj = length(jx_list);
0018     
0019     for j = 1:Nj
0020         jx = jx_list(j);
0021         xxA(jx) = xxA(jx) + xxA_all(ix)/Nj;
0022     end
0023 end;