- read_image (Image12, 'C:/Users/Administrator/Desktop/12.png')
- rgb1_to_gray (Image12, GrayImage)
- threshold (GrayImage, Regions, 0, 163)
- reduce_domain (GrayImage, Regions, ImageReduced)
- dev_close_window ()
- dev_open_window_fit_image (ImageReduced, 0, 0, -1, -1, WindowHandle)
- gen_empty_obj (Emptyrec)
- *交互式提取样本区域
- for j := 1 to 5 by 1
- dev_display (GrayImage)
- draw_rectangle1 (WindowHandle, Row1, Column1, Row2, Column2)
- gen_rectangle1 (Rectangle2, Row1, Column1, Row2, Column2)
- concat_obj (Emptyrec, Rectangle2, Emptyrec)
- endfor
- stop()
- *添加样本、训练
- count_obj (Emptyrec, Number)
- create_class_gmm (5, 1, [5, 10], 'spherical', 'normalization', 10, 42, GMMHandle)
- for i := 1 to Number by 1
- select_obj (Emptyrec, ObjectSelected, i)
- reduce_domain (GrayImage, ObjectSelected, ImageReduced1)
- gen_texture_image (ImageReduced1, ImageTexture)
- add_samples_image_class_gmm (ImageTexture, ObjectSelected, GMMHandle, 2.0)
- endfor
- train_class_gmm (GMMHandle, 200, 0.1, 'training', 0.0001, Centers, Iter)
- *write_class_gmm (GMMHandle, 'C:/Users/Administrator/Desktop/Dectec Texture.ggc')
- *纹理识别
- gen_texture_image (GrayImage, ImageTexture)
- classify_image_class_gmm (ImageTexture, Correct, GMMHandle, 0.000002)
- difference (Regions, Correct, RegionDifference)
- opening_circle (RegionDifference, RegionOpening, 3)
- dev_set_draw ('fill')
- dev_set_line_width (3)
- dev_display (GrayImage)
- dev_display (RegionOpening)
复制代码 |