vb_plot_misfit

 plot large distance error points
  vb_plot_misfit(V,F,pos,dmin,dlimit)

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

0001 function    vb_plot_misfit(V,F,pos,dmin,dlimit)
0002 % plot large distance error points
0003 %  vb_plot_misfit(V,F,pos,dmin,dlimit)
0004 %
0005 % Copyright (C) 2011, ATR All Rights Reserved.
0006 % License : New BSD License(see VBMEG_LICENSE.txt)
0007 
0008 if ~exist('dlimit','var'), dlimit = 2; end;
0009 
0010 if ~exist('dmin','var'),
0011     error('Argument error: dmin is necessary');
0012 end
0013 
0014 ix_max = find(dmin > dlimit);
0015 ix_min = find(dmin <= dlimit);
0016 
0017 fwgcolor   = [0.8 0.7 0.6];
0018 edgecolor  = 'none';
0019 
0020 alphaval = 0.8;
0021 msize1     = 10;
0022 mtype1     = '.b';
0023 msize2     = 10;
0024 mtype2     = '.r';
0025 NX         = 2;
0026 NY         = 2;
0027 angle     = [120 30; -120 30];    % Right/Left view
0028 
0029 %view([180, 0]);    % Front view (from +Y axis)
0030 %view([ 90, 0]);    % Right view (from +X axis)
0031 %view([-90, 0]);    % Left view  (from -X axis)
0032 %view([  0, 90]);    % Top view   (from +Z axis)
0033 
0034 
0035 Nfig = size(angle,1);
0036 
0037 figure;
0038 
0039 for n=1:Nfig
0040     subplot(NY,NX,n)
0041     vb_plot_surf(V,F,fwgcolor,edgecolor,1);
0042     hold on
0043     view(angle(n,:)); 
0044     axis equal;
0045     axis tight;
0046     
0047     plot3(pos(ix_max,1),pos(ix_max,2),pos(ix_max,3), ...
0048           mtype1,'MarkerSize',msize1);
0049     title('Large fitting error points')
0050 end
0051 
0052 
0053 for n=1:Nfig
0054     subplot(NY,NX,n + NX)
0055     vb_plot_surf(V,F,fwgcolor,edgecolor,1);
0056     hold on
0057     view(angle(n,:)); 
0058     axis equal;
0059     axis tight;
0060     
0061     plot3(pos(ix_min,1),pos(ix_min,2),pos(ix_min,3), ...
0062           mtype2,'MarkerSize',msize2);
0063     title('Good fitting points')
0064 end