国外的基于matalb的双目视觉标定的程序

国外的基于matalb的双目视觉标定的程序，http://www.vision.caltech.edu/bouguetj/calib_doc/

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 ~isempty（ind_active）
      
      if length（ind_active） > 2
      
   		for ii = 1:length（ind_active）-2
      		
         	fprintf（1

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2017-11-29 13:55  toolbox_calib\
     目录           0  2017-11-29 14:25  toolbox_calib\TOOLBOX_calib\
     文件        2177  2013-10-10 08:46  toolbox_calib\TOOLBOX_calib\Compute3D.m
     文件       11226  2013-10-10 08:46  toolbox_calib\TOOLBOX_calib\ComputeStripes.m
     文件        8466  2013-10-10 08:46  toolbox_calib\TOOLBOX_calib\Distor2Calib.m
     文件       14599  2013-10-10 08:46  toolbox_calib\TOOLBOX_calib\Meshing.m
     文件         470  2008-02-28 12:38  toolbox_calib\TOOLBOX_calib\README.txt
     文件         437  2013-10-10 08:46  toolbox_calib\TOOLBOX_calib\Rectangle2Square.m
     文件        3339  2013-10-10 08:46  toolbox_calib\TOOLBOX_calib\TestFunction.m
     文件         887  2013-10-10 08:46  toolbox_calib\TOOLBOX_calib\UnWarpPlane.m
     文件        3558  2013-10-10 08:46  toolbox_calib\TOOLBOX_calib\add_suppress.m
     文件         817  2013-10-10 08:46  toolbox_calib\TOOLBOX_calib\affine.m
     文件         572  2013-10-10 08:46  toolbox_calib\TOOLBOX_calib\align_structures.m
     文件        4100  2013-10-10 08:46  toolbox_calib\TOOLBOX_calib\analyse_error.m
     文件        1487  2013-10-10 08:46  toolbox_calib\TOOLBOX_calib\anisdiff.m
     文件        1578  2013-10-10 08:46  toolbox_calib\TOOLBOX_calib\apply_distortion.m
     文件        2033  2013-10-10 08:46  toolbox_calib\TOOLBOX_calib\apply_distortion2.m
     文件        1360  2013-10-10 08:46  toolbox_calib\TOOLBOX_calib\apply_fisheye_distortion.m
     文件         267  2015-10-15 06:31  toolbox_calib\TOOLBOX_calib\calib.m
     文件        1358  2015-10-15 06:31  toolbox_calib\TOOLBOX_calib\calib_gui.m
     文件        1519  2013-10-10 08:47  toolbox_calib\TOOLBOX_calib\calib_gui_fisheye.m
     文件        1463  2013-10-10 08:47  toolbox_calib\TOOLBOX_calib\calib_gui_no_read.m
     文件        1446  2013-10-10 08:47  toolbox_calib\TOOLBOX_calib\calib_gui_normal.m
     文件       18472  2013-10-10 08:47  toolbox_calib\TOOLBOX_calib\calib_stereo.m
     目录           0  2017-11-29 14:58  toolbox_calib\TOOLBOX_calib\calibration_pattern\
     文件        7365  2017-11-29 14:58  toolbox_calib\TOOLBOX_calib\calibration_pattern\Calib_Results.m
     文件      275726  2017-11-29 14:58  toolbox_calib\TOOLBOX_calib\calibration_pattern\Calib_Results.mat
     文件      311284  1999-10-08 16:36  toolbox_calib\TOOLBOX_calib\calibration_pattern\Image1.tif
     文件      311284  1999-10-08 16:36  toolbox_calib\TOOLBOX_calib\calibration_pattern\Image10.tif
     文件      311284  1999-10-08 16:36  toolbox_calib\TOOLBOX_calib\calibration_pattern\Image11.tif
     文件      311284  1999-10-08 16:37  toolbox_calib\TOOLBOX_calib\calibration_pattern\Image12.tif
............此处省略183个文件信息