HALCON示例程序train_characters_ocr.hdev使用SVM分类器训练字体

小哥哥小姐姐觉得有用点个赞呗！
在这里插入图片描述

示例程序源码（加注释）

蓝色字体均为算子解释链接，可以前往查看解答

关于显示类函数解释
read_image (Image, ‘ocr/chars_training_01.png’)
获取单通道图像的指针
get_image_pointer1 (Image, Pointer, Type, Width, Height)
dev_close_window ()
dev_open_window (0, 0, Width, Height, ‘white’, WindowHandle)
set_display_font (WindowHandle, 12, ‘mono’, ‘true’, ‘false’)
dev_set_draw (‘margin’)
dev_set_line_width (2)
dev_display (Image)
dev_update_window (‘off’)
dev_update_pc (‘off’)
dev_update_var (‘off’)
创建一个 SVM 分类器内容，从A-G
ClassNames := [‘A’,‘B’,‘C’,‘D’,‘E’,‘F’,‘G’]
创建OCR分类器
create_ocr_class_svm (8, 10, ‘constant’, [‘convexity’,‘num_holes’,‘projection_horizontal’,‘projection_vertical’], ClassNames, ‘rbf’, 0.02, 0.05, ‘one-versus-one’, ‘normalization’, 10, OCRHandle)

for i := 1 to 7 by 1
read_image (Image, ‘ocr/chars_training_’ + i$’.2d’)
dev_display (Image)
* halcon自定义函数大括号内为其代码
get_regions (Image, SortedRegions)
{
dev_set_color (‘white’)

二值化
threshold (Image, Region, 0, 125)
分割连通域
connection (Region, ConnectedRegions)
通过面积筛选区域
select_shape (ConnectedRegions, SelectedRegions, ‘area’, ‘and’, 50, 999999)
对区域进行排序
sort_region (SelectedRegions, SortedRegions, ‘character’, ‘true’, ‘row’)
return ()
}
- 对元素进行计数
  count_obj (SortedRegions, NumberObjects)
  for j := 1 to NumberObjects by 1
- 选取数组内指定元素
  select_obj (SortedRegions, ObjectSelected, j)
  if (i == 1 and j == 1)
  - 将训练字符储存到指定文件
    write_ocr_trainf (ObjectSelected, Image, ClassNames[j - 1], ‘train_characters_ocr.trf’)
    else
  - 向训练文件中添加对象
    append_ocr_trainf (ObjectSelected, Image, ClassNames[j - 1], ‘train_characters_ocr.trf’)
    endif
    dev_set_color (‘gray’)
    dev_display (ObjectSelected)
    disp_message (WindowHandle, ClassNames[j - 1], ‘window’, 10, 10 + (j * 20), ‘black’, ‘true’)
    endfor
    disp_continue_message (WindowHandle, ‘black’, ‘true’)
    stop ()
    endfor
    读训练文件并转化为图像
    read_ocr_trainf (Characters, ‘train_characters_ocr.trf’, CharacterNames)
    count_obj (Characters, NumberCharacters)

for i := 1 to NumberCharacters by 1
select_obj (Characters, CharacterSelected, i)
dev_clear_window ()
dev_display (CharacterSelected)
disp_message (WindowHandle, CharacterNames[i - 1], ‘window’, 10, 10, ‘black’, ‘true’)
endfor

训练OCR分类器
trainf_ocr_class_svm (OCRHandle, ‘train_characters_ocr.trf’, 0.001, ‘default’)
缩减SVM分类器，以减少分类所用时间。
reduce_ocr_class_svm (OCRHandle, ‘bottom_up’, 2, 0.001, OCRHandleReduced)
将训练出的分类器写入文件
write_ocr_class_svm (OCRHandleReduced, ‘font_characters_ocr’)
清除OCR分类器
clear_ocr_class_svm (OCRHandle)
clear_ocr_class_svm (OCRHandleReduced)
stop ()
dev_clear_window ()
disp_message (WindowHandle, ‘No more lines to execute’, ‘window’, 10, 10, ‘black’, ‘true’)