IDL程序设计.doc

  1. 1、本文档共3页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
ENVI二次开发——道路裂缝提取 摘要:随着我国高速公路通车里程的不断增加,高速公路已成为社会经济发展的重要基础设施。由于行车荷载和自然因素的作用,路面车辙、松散、裂缝等病害日益严重。并且现在国内高速公路的路况调查仍是以人工调查为主,随着自动化技术的不断发展,人工识别已经不能满足高速公路路面状况日益增长的检测要求。由于人工检测具有人力消耗过大、时间消耗过长、精确度不高、影响正常的交通、危险性过大、代价过大等不可避免的缺,随着科技进步和计算机时代的到来,工业相机的像素越来越高,计算机运算能力的极大提高,使得我们可以将被检测路面进行影像记录,再在室内使用人工或者计算机进行路面裂缝的自动识别。这样最大的优势就是不需要现场作业,不需要封闭交通,极大的减少了路面检测的代价。本次实验以IDL编程为主,对道路影像进行道路裂缝提取。 关键词:控件 道路裂缝提取 IDL编程 1 引言 根据学习编程语言的特点,首先了解IDL的编写环境、代码的编写优化与调试、语法和控制基础、输入与输出等基础内容;然后针对IDL的快速、高效可视化特点介绍了直接图形法、对象图形法、快速可视化、智能化编程、界面程序与事件处理、图像处理与分析等内容; 最后讲述了IDL与其他语言的混合编程调用和ENVI二次开发。 2 相关控件 WIDGET_BASE?? 窗体(含主菜单),组件容器 WIDGET_BUTTON?? 按钮 WIDGET_LABEL? 标签 WIDGET_TREE 创建的树形列表的组件 WIDGET_SLIDER 滑动条组件 WIDGET_CONTROL 件控制,包括显示,属性设置,属性读取等 WIDGET_INFO 查询组件信息 DIALOG_MESSAGE?? 消息对话框 DIALOG_PICKFILE? 选择目录对话框 3 程序实现思路 通过IDL编程实现整个界面的显示。构建界面时,界面组件层次是以WIDGET_BASE为顶的“金字塔”式结构。界面构建成功后,需要利用Widget_Control和Widget_Info两个命令进行属性设置或获取组件状态。各个单元组件界面参数的获取与设置可以通过Widget_Control和Widget_Info命令配合对应的关键字进行实现,各组件支持的关键字可详细查询IDL帮助文档。 通过常用组件实现功能的控制。通过在界面上添加相关控件使得整个软件有了初步的模型,为后面的功能实现提供了初步的容器。一个好的软件,界面的布局也非常重要,我们通过对控件的属性编辑,创建一个既美观又实用的软件界面。 通过相关算法和IDL编程实现道路裂缝的提取和相关功能的实现。通过影像的分析,选用直方图均衡化对图像进行处理,然后再进行一定范围的灰度值提取,在进行二值化处理得到相对应的裂缝提取图像。还实现了图像处理的批量处理。示例代码如下: FUNCTION CrackDetection,jpegfile T_max=max(max(jpegfile)) T_min=min(min(jpegfile)) rows=N_elements(jpegfile(0,*));获取行数 ;help,rows cols=N_elements(jpegfile(*,0));获取列数 jpegfile=double(jpegfile) for i=0,cols-1 do begin for j=0,rows-1 do begin jpegfile[i,j]=(jpegfile[i,j]-T_min)/(T_max-T_min) endfor endfor R=make_array(cols,rows,/integer,value=1) T_max1=max(max(jpegfile)) T_min1=min(min(jpegfile)) for i=0,cols-1 do begin for j=0,rows-1 do begin jpegfile[i,j]=jpegfile[i,j]*255 endfor endfor jpegfile=byte(uint(jpegfile)) K=bytArr(cols,rows) for i=0,cols-1 do begin for j=0,rows-1 do begin T=jpegfile[i,j] if (T ge 0)(T le 20) then begin K[i,j]=255 endif

文档评论(0)

dashewan + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档