一、單項機標定原因
- 降低畸變（相差）
- 測量
二、相機標定求出什么
該方程是求取世界坐標系與像素坐標系之間轉換矩陣，本質就是求出相機的內外參數。其中dx和dy為每個像素在圖像坐標系（UVO）沿U和V方向的物理尺寸，單位毫米每像素， U0 和 V0 為像素坐標 中心即圖像中心（光軸與圖像平面的交點）。
三、標定助手
設置標定參數；
盡量選擇9到16張圖片，且圖片覆蓋整個視野，Mark點出現在視野各個區域，同時標定板也可以發生傾斜，旋轉，注意只要不出現標定點提取失敗就可以。點擊標定按鈕前，選擇一張設置位姿。
查看結果：相機內外參數。也可插入代碼。
四、畸變校正（不需要外參）
畸變的原因自己去查找，在這里不羅嗦了。畸變如B所示。
過程：
標定助手---->獲取相機內外參數------->校正（相機位置不能發生改變）
change_radial_distortion_cam_param() 徑向畸變
gen_radial_distorition_map() 形成映射矩陣
map_image() 圖像映射
* Calibration 01: Code generated by Calibration 01
ImageFiles := []
ImageFiles[0] := 'E:/項目/Halcon/STUDY/Lesson_13_棋盤格標定/scratch/scratch_calib_01.png'
ImageFiles[1] := 'E:/項目/Halcon/STUDY/Lesson_13_棋盤格標定/scratch/scratch_calib_02.png'
ImageFiles[2] := 'E:/項目/Halcon/STUDY/Lesson_13_棋盤格標定/scratch/scratch_calib_03.png'
ImageFiles[3] := 'E:/項目/Halcon/STUDY/Lesson_13_棋盤格標定/scratch/scratch_calib_04.png'
ImageFiles[4] := 'E:/項目/Halcon/STUDY/Lesson_13_棋盤格標定/scratch/scratch_calib_05.png'
ImageFiles[5] := 'E:/項目/Halcon/STUDY/Lesson_13_棋盤格標定/scratch/scratch_calib_06.png'
ImageFiles[6] := 'E:/項目/Halcon/STUDY/Lesson_13_棋盤格標定/scratch/scratch_calib_07.png'
ImageFiles[7] := 'E:/項目/Halcon/STUDY/Lesson_13_棋盤格標定/scratch/scratch_calib_08.png'
ImageFiles[8] := 'E:/項目/Halcon/STUDY/Lesson_13_棋盤格標定/scratch/scratch_calib_09.png'
ImageFiles[9] := 'E:/欣奕華/項目/Halcon/STUDY/Lesson_13_棋盤格標定/scratch/scratch_calib_10.png'
ImageFiles[10] := 'E:/項目/Halcon/STUDY/Lesson_13_棋盤格標定/scratch/scratch_calib_11.png'
ImageFiles[11] := 'E:/項目/Halcon/STUDY/Lesson_13_棋盤格標定/scratch/scratch_calib_12.png'
dev_close_window()
read_image (Image1, 'E:/項目/Halcon/STUDY/Lesson_13_棋盤格標定/scratch/scratch_calib_01.png')
get_image_size (Image1, Width, Height)
dev_open_window (0, 0, Width, Height, 'black', WindowHandle)
dev_set_line_width (2)
dev_set_draw ('margin')
TmpCtrl_ReferenceIndex := 0
TmpCtrl_PlateDescription := 'E:/項目/Halcon/STUDY/Lesson_13_棋盤格標定/caltab_30mm.descr'
StartParameters := [0.008,0,8.3e-006,8.3e-006,320,240,640,480]
TmpCtrl_FindCalObjParNames := ['gap_tolerance','alpha','skip_find_caltab']
TmpCtrl_FindCalObjParValues := [1,1,'false']
* Calibration 01: Create calibration model for managing calibration data
create_calib_data ('calibration_object', 1, 1, CalibHandle)
set_calib_data_cam_param (CalibHandle, 0, 'area_scan_division', StartParameters)
set_calib_data_calib_object (CalibHandle, 0, TmpCtrl_PlateDescription)
* Calibration 01: Collect mark positions and estimated poses for all plates
for Index := 0 to |ImageFiles|-1 by 1
read_image (Image, ImageFiles[Index])
find_calib_object (Image, CalibHandle, 0, 0, Index, TmpCtrl_FindCalObjParNames, TmpCtrl_FindCalObjParValues)
get_calib_data_observ_contours (Contours, CalibHandle, 'marks', 0, 0, Index)
get_calib_data_observ_points (CalibHandle, 0, 0, Index, RCoord, CCoord, Index1, Pose)
dev_set_color ('green')
dev_display (Image)
dev_display (Contours)
disp_cross (WindowHandle, RCoord, CCoord, 6, 0)
dev_set_color ('yellow')
disp_3d_coord_system (WindowHandle, StartParameters, Pose, 0.02)
endfor
* Calibration 01: Perform the actual calibration
calibrate_cameras (CalibHandle, TmpCtrl_Errors)
get_calib_data (CalibHandle, 'camera', 0, 'params', CameraParameters)
get_calib_data (CalibHandle, 'calib_obj_pose', [0, TmpCtrl_ReferenceIndex], 'pose', CameraPose)
* Calibration 01: Adjust origin for plate thickness
set_origin_pose (CameraPose, 0.0, 0.0, 0.001, CameraPose)
* Calibration 01: Clear calibration model when done
clear_calib_data (CalibHandle)
stop ()
CameraParametersDis := CameraParameters
CameraParametersDis[1] := 0
change_radial_distortion_cam_par ('adaptive', CameraParameters, 0, CamParamOut)
gen_radial_distortion_map (Map, CameraParameters, CamParamOut, 'bilinear')
map_image (Image1, Map, ImageMapped)
五、測量
* Measure 01: Code generated by Measure 01
* Measure 01: Initialize calibration
CameraParameters := [0.0186517,-518.695,8.35295e-006,8.3e-006,243.968,254.876,640,480]
CameraPose := [0.0102948,-0.00294296,0.290575,358.426,32.4473,91.0773,0]
* Measure 01: Prepare measurement
AmplitudeThreshold := 15
RoiWidthLen2 := 2
set_system ('int_zooming', 'true')
* Measure 01: Coordinates for line Measure 01 [0]
LineRowStart_Measure_01_0 := 143.25
LineColumnStart_Measure_01_0 := 359.016
LineRowEnd_Measure_01_0 := 143.25
LineColumnEnd_Measure_01_0 := 382.761
* Measure 01: Convert coordinates to rectangle2 type
TmpCtrl_Row := 0.5*(LineRowStart_Measure_01_0+LineRowEnd_Measure_01_0)
TmpCtrl_Column := 0.5*(LineColumnStart_Measure_01_0+LineColumnEnd_Measure_01_0)
TmpCtrl_Dr := LineRowStart_Measure_01_0-LineRowEnd_Measure_01_0
TmpCtrl_Dc := LineColumnEnd_Measure_01_0-LineColumnStart_Measure_01_0
TmpCtrl_Phi := atan2(TmpCtrl_Dr, TmpCtrl_Dc)
TmpCtrl_Len1 := 0.5*sqrt(TmpCtrl_Dr*TmpCtrl_Dr + TmpCtrl_Dc*TmpCtrl_Dc)
TmpCtrl_Len2 := RoiWidthLen2
* Measure 01: Create measure for line Measure 01 [0]
* Measure 01: Attention: This assumes all images have the same size!
gen_measure_rectangle2 (TmpCtrl_Row, TmpCtrl_Column, TmpCtrl_Phi, TmpCtrl_Len1, TmpCtrl_Len2, 640, 480, 'nearest_neighbor', MsrHandle_Measure_01_0)
* Measure 01: ***************************************************************
* Measure 01: * The code which follows is to be executed once / measurement *
* Measure 01: ***************************************************************
* Measure 01: Load image
read_image (Image, 'E:/項目/Halcon/STUDY/Lesson_13_棋盤格標定/scratch/scratch_calib_01.png')
* Measure 01: Execute measurements
measure_pos (Image, MsrHandle_Measure_01_0, 0.4, 15, 'all', 'all', Row_Measure_01_0, Column_Measure_01_0, Amplitude_Measure_01_0, Distance_Measure_01_0)
* Measure 01: Transform to world coordinates
* Measure 01: Calibrate positions for Measure 01 [0]
image_points_to_world_plane (CameraParameters, CameraPose, Row_Measure_01_0, Column_Measure_01_0, 0.001, Column_World_Measure_01_0, Row_World_Measure_01_0)
* Measure 01: Calibrate distances
TmpCtrl_Length := |Row_World_Measure_01_0|
if (TmpCtrl_Length > 0)
tuple_select_range (Row_World_Measure_01_0, 0, TmpCtrl_Length - 2, TmpCtrl_RowFrom)
tuple_select_range (Column_World_Measure_01_0, 0, TmpCtrl_Length - 2, TmpCtrl_ColumnFrom)
tuple_select_range (Row_World_Measure_01_0, 1, TmpCtrl_Length - 1, TmpCtrl_RowTo)
tuple_select_range (Column_World_Measure_01_0, 1, TmpCtrl_Length - 1, TmpCtrl_ColumnTo)
distance_pp (TmpCtrl_RowFrom, TmpCtrl_ColumnFrom, TmpCtrl_RowTo, TmpCtrl_ColumnTo, Distance_World_Measure_01_0)
endif
* Measure 01: Do something with the results
* Measure 01: Clear measure when done
close_measure (MsrHandle_Measure_01_0)