vb_plot_dmin_hist

 plot distance error histgram
  vb_plot_dmin_hist(dmin,Nscan)

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

0001 function    vb_plot_dmin_hist(dmin,Npos)
0002 % plot distance error histgram
0003 %  vb_plot_dmin_hist(dmin,Nscan)
0004 %
0005 % Copyright (C) 2011, ATR All Rights Reserved.
0006 % License : New BSD License(see VBMEG_LICENSE.txt)
0007 
0008 Nhist  = 50;
0009 dstep  = 0.25;
0010 dmax   = 10;
0011 
0012 Nall  = length(dmin);
0013 dmean = sum(dmin)/Nall;
0014 
0015 % plot distance histgram
0016 dlist = 0:dstep:dmax;
0017 
0018 figure;
0019 
0020 if exist('Npos','var')
0021     NY=1; NX=2;
0022     subplot(NY,NX,1)
0023 else
0024     Npos = 0;
0025 end
0026 
0027 hist(dmin(Npos+1:end),dlist);
0028 title('Histgram of face fit error')
0029 hold on
0030 
0031 xlabel('Distance Error [mm]')
0032 plot([dmean dmean],[0 100], 'r-')
0033 plot([2*dmean 2*dmean],[0 100], 'r-')
0034 xlim([0 dmax])
0035 
0036 if ~exist('Npos','var') | Npos == 0, return; end;
0037 
0038 subplot(NY,NX,2)
0039 hist(dmin(1:Npos),dlist);
0040 title('Histgram of head fit error')
0041 hold on
0042 
0043 xlabel('Distance Error [mm]')
0044 plot([dmean dmean],[0 10], 'r-')
0045 plot([2*dmean 2*dmean],[0 10], 'r-')
0046 xlim([0 dmax])
0047