//=======================================================================================
//在数组中插入元素通常有以下几种做法:
// [1]在数组中连续输入---元素值,中间用逗号隔开,操作方式如下所示:assign[Tuple,NewVal,Tuple]
// [2]如果想在---数组的指定位置---插入元素,首先要确认插入的数组,然后然后确定插入的位置和内容
//=======================================================================================
Tuple:=[] //【1】构造一个空的数组
for i:=0 to 5 by 1
Tuple[i]:=real(i)
endfor
//=======================================================================================
//函数原型:
// read_image( : Image : FileName : )
//函数参数:
// 1--Image-------OutputObject-----将从磁盘读入的图片存储在这个图标控制变量中
// 2--FileName----Input_control-----图片文件存储的路径
//函数作用:
// 将所要读取的图片从这个路径中载入,然后将载入的图片存储在Image这个图标变量中
//=======================================================================================
//=======================================================================================
//函数原型:
// threshold(Image : Region : MinGray, MaxGray : )
//函数参数:
// 1--Image-------InputObject-------输入变量-----将要进行阈值分割的图片对象
// 2--Region------OutputObject------输出变量-----将分割之后的区域存储在这个变量中
// 3--MinGray-----InputObject-------输入变量-----下阈值
// 4--MaxGray-----InputObject-------输入变量-----上阈值
//函数作用:
// 利用上下阈值对图像进行阈值分割
//=======================================================================================
//=======================================================================================
//函数原型:
// dilation_circle(Region : RegionDilation : Radius : )
//函数参数:
// 1--Region----------InputObject-------输入变量-----将要进行膨胀的区域
// 2--RegionDilation--OutputObject------输出变量-----膨胀之后的区域/图片存储在这个变量中
// 3--Radius----------InputObject-------输入变量-----进行膨胀的时候的圆形结构的元素
//函数作用:
// 形态学中的膨胀操作
//=======================================================================================
read_image(srcImg,'D:/RoadCrackImg/49.jpg') //【1】从磁盘读取图片
threshold(srcImg,Region,130,200) //【2】利用上下阈值,对图片进行手动阈值分割
Areas:=[] //【3】分配一个空的数组
for Radius:=1 to 50 by 1 //【4】做一个循环语句
dilation_circle(Region,RegionDilation,Radius) //【5】对区域进行膨胀操作
area_center(RegionDilation,Area,Row,Column) //【6】获取对应区域的面积及其重心点坐标
Areas[Radius-1]:= Area //【7】结束循环体
endfor