线扫相机项目中定量判断机构运动是否匀速的方法

 1 *载入当前目录下的全部图片
 2 list_files (‘‘, [‘files‘,‘follow_links‘], ImageFiles)    
 3 tuple_regexp_select (ImageFiles, [‘\\.(tif|tiff|gif|bmp|jpg|jpeg|jp2|png|pcx|pgm|ppm|pbm|xwd|ima|hobj)$‘,‘ignore_case‘], ImageFiles)
 4    
 5     for Index :=0 to |ImageFiles| - 1 by 1
 6         dev_clear_window ()
 7         read_image (Image, ImageFiles[Index])           
 8         threshold (Image, Region, 0, 210)     
 9         fill_up_shape (Region, Region, ‘area‘, 1, 100)
10         opening_circle (Region, RegionOpening, 5.5)       
11         connection (RegionOpening, ConnectedRegions)  
12         select_shape (ConnectedRegions, SelectedRegions, ‘roundness‘, ‘and‘, 0.9, 1)
13         select_shape (SelectedRegions, SelectedRegions1, ‘area‘, ‘and‘, 10550, 19999)
14         smallest_rectangle1 (SelectedRegions1, Row1, Column1, Row2, Column2)
15         gen_rectangle1 (Rectangle, Row1, Column1, Row2, Column2)
16         inner_circle (SelectedRegions1, Row, Column, Radius)
17         
18         dev_display (Image)
19         dev_set_draw (‘margin‘)
20         dev_display (Rectangle)
21         
22         hight := []
23         for Index := 0 to |Row1| -1 by 1
24             *设置字体和字号
25             set_font (3600, ‘-Courier New-10-‘)
26             *显示每个圆的最小外接矩形的高和宽
27             disp_message (3600,((Row2[Index] - Row1[Index]) + ‘ ‘+  (Column2[Index] - Column1[Index]))  , ‘image‘, Row1[Index] - 70, Column1[Index], ‘black‘, ‘true‘)
28             tuple_concat (hight, Row2[Index] - Row1[Index], hight)
29         endfor
30 
31         if (|hight| > 1)
32             *求元组中所有元素的标准差
33             tuple_deviation (hight, Deviation)
34             set_font (3600, ‘-Courier New-20-‘)
35             disp_message (3600, ‘纵向高度标准差：‘ + Deviation + ‘    ‘  + |hight| +  ‘个圆‘ , ‘image‘, 50, 50, ‘black‘, ‘true‘)
36         endif
37     stop() 
38     endfor