图
//获取图片
read_image (Image18, 'D:/tu/18.bmp')
//二值化
threshold (Image18, Region1, 28, 255)
//膨胀腐蚀操作
erosion_rectangle1 (Region1, ccc, 80, 80)
dilation_rectangle1 (ccc, aaa,80, 80)
//像素融合
connection (aaa, ConnectedRegions)
//获取边缘
gen_contour_region_xld (ConnectedRegions, Contours, 'border')
//选择合适大小区域
select_shape_xld (Contours, SelectedXLD, 'area', 'and', 999999, 9999999)
//选择圆
select_shape(ConnectedRegions, SelectedRegions1, 'circularity', 'and', 0.6, 1)
//感觉有点大,腐蚀一下
erosion_rectangle1 (SelectedRegions1, SelectedRegions1, 40, 40)
//获取取到圆的边缘
gen_contour_region_xld (SelectedRegions1, ppp, 'border')
//获取圆面积以及中心坐标
area_center (SelectedRegions1, Area, Row,Column)
//获取包围圈长度
fuzzy_perimeter (SelectedRegions1,Image18, 0, 255, Perimeter)
//求半径
CRadius:=sqrt(Area/3.1415926)
//求周长
CCircumference :=