基于Bouguet角点提取法的摄像机标定方法

本程序是一个用Matlab编写的很好的基于Bouguet角点提取法的摄像机标定方法

if ~exist（‘n_ima‘）
   fprintf（1‘No data to process.\n‘）;
   return;
end;

if n_ima == 0
    fprintf（1‘No image data available\n‘）;
    return;
end;

if ~exist（‘active_images‘）
	active_images = ones（1n_ima）;
end;
n_act = length（active_images）;
if n_act < n_ima
   active_images = [active_images ones（1n_ima-n_act）];
else
   if n_act > n_ima
      active_images = active_images（1:n_ima）;
   end;
end;

ind_active = find（active_images）;

% I did not call check_active_images because I want to prevent a break
%check_active_images;


fprintf（1‘\nThis function is useful to select a subset of images to calibrate\n‘）;

   fprintf（1‘\nThere are currently %d active images selected for calibration （out of %d）:\n‘length（ind_active）n_ima）;
   
   if ~isempty（ind_active）
      
      if length（ind_active） > 2
      
   		for ii = 1:length（ind_active）-2
      		
         	fprintf（1‘%d ‘ind_active（ii））;
         	
      	end;
      	
      	fprintf（1‘%d and %d.‘ind_active（end-1）ind_active（end））;
         
      else
         
         if length（ind_active） == 2
            
            fprintf（1‘%d and %d.‘ind_active（end-1）ind_active（end））;
            
         else
            
            fprintf（1‘%d.‘ind_active（end））;
            
         end;
         
         
      end;
      
   end;
      
      
   fprintf（1‘\n‘）;
   
   if length（ind_active）==0
      fprintf（1‘\nYou probably want to add images\n‘）;
      choice = 1;
   else
      if length（ind_active）==n_ima
         fprintf（1‘\nYou probably want to suppress images\n‘）;
         choice = 0;
      else
         choice = 2;
      end;
   end;
   
   if （choice~=0） & （choice ~=1）
   	fprintf（1‘\nDo you want to suppress or add images from that list?\n‘）;
   end;
   
while （choice~=0）&（choice~=1）
   choice = input（‘For suppressing images enter 0 for adding images enter 1 （[]=no change）: ‘）;
   if isempty（choice）
      fprintf（1‘No change applied to the list of active images.\n‘）;
      return;
   end;
   if （choice~=0）&（choice~=1）
      disp（‘Bad entry. Try again.‘）;
   end;
end;


if choice
   
	ima_numbers = input（‘Number（s） of image（s） to add （[] = all images） = ‘）;

if isempty（ima_numbers）
	   fprintf（1‘All %d images are now active\n‘n_ima）;
   	ima_proc = 1:n_ima;
	else
   	ima_proc = ima_numbers;
	end;
   
else
   
   
	ima_numbers = input（‘Number（s） of image（s） to suppress （[] = no image） = ‘）;

	if isempty（ima_numbers）
      fprintf（1‘No image has been suppressed. No modication of the list of active images.\n‘n_ima）;
   	ima_proc = [];
	else
   	ima_proc = ima_numbers;
	end;
   
end;

if ~isempty（ima_proc）
   
   active_images（ima_proc） = choice * ones（1length（ima_proc））;
   
end;


   check_active_images;
   

   fprintf（1‘\nThere is now a total of %d active images for calibration:\n‘length（ind_active））;
   
   if ~isem

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       3721  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\add_suppress.m

     文件        850  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\affine.m

     文件        612  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\align_structures.m

     文件       4257  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\analyse_error.m

     文件       1542  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\anisdiff.m

     文件       1675  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\apply_distortion.m

     文件       2138  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\apply_distortion2.m

     文件        297  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\calib.m

     文件        153  2005-02-26 21:53  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\calibration_pattern\CVS\Entries

     文件         60  2005-02-26 21:53  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\calibration_pattern\CVS\Entries.Extra

     文件        153  2004-06-24 21:05  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\calibration_pattern\CVS\Entries.Old

     文件         55  2004-06-24 21:05  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\calibration_pattern\CVS\Repository

     文件         46  2004-06-24 21:05  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\calibration_pattern\CVS\Root

     文件       1915  2004-05-03 00:26  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\calibration_pattern\object6x5.png

     文件       2143  2004-05-03 00:26  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\calibration_pattern\object6x7.png

     文件       2093  2004-06-22 14:07  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\calibration_pattern\object8x7.png

     文件       3847  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\calib_gui.m

     文件       3497  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\calib_gui_normal.m

     文件       3562  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\calib_gui_no_read.m

     文件      19013  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\calib_stereo.m

     文件       4096  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\cam_proj_calib.m

     文件       2668  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\cam_proj_calib_optim.m

     文件       1579  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\cam_proj_extract_param.m

     文件       3684  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\centercirclefinder.m

     文件        973  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\check_active_images.m

     文件        690  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\check_convergence.m

     文件       4958  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\check_directory.m

     文件        900  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\check_extracted_images.m

     文件        385  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\clearwin.m

     文件        105  2004-06-07 09:34  30608624TOOLBOX_calib_0_31b\TOOLBOX_calib\clear_windows.m

............此处省略179个文件信息