zw版_Halcon-delphi系列教程_卫星航拍精确打击目标自动识别

《zw版·Halcon-delphi系列原创教程》 卫星航拍精确打击目标自动识别

这几天，俄罗斯空军在叙利亚大显神威，美军有意见了，说俄罗斯是狂轰滥炸，不是精确打击。
      不过，战斗民族也是会进化的，第二天，俄罗斯就show出了精确打击的航拍视频。

精确打击，看起来，高大上，不过，对于今天的机器视觉而言，非常简单。
        下面示例的脚本，才30多行，虽然不长，
       不过，无人机，卫星遥感、航拍等，相关功能，核心代码，也就是这些代码。

图1，是飞机卫星航拍照片
       图2，是首轮目标范围筛选，可以看到有很多细小的感染源，还有几个大型的建筑区域，需要过滤
       图3，是最终的识别结果，相关非常不错，该要的区域都在
      图4，建筑物分割图，脚本演示的是tree树、植被的的识别，所以，作为军用，打击目标的筛选，需要对图4，进行二次过滤。

这个脚本，略微修改，配合长时间的连续图像分析。
       就可用于森林数目、农作物，草原植被、甚至动物。鸟类种群、迁徙、活动等方面的分析
       例如，农作物产量推算，鸟类迁徙路线，动物活动区域等等，

ps，有兴趣的网友，可以自己改为delphi、vc、vb版

 dev_close_window ()
 read_image (Mreut, 'mreut_y')
 read_image (MreutDem, 'mreut_dgm_2.0')
 get_image_size (Mreut, Width, Height)
 dev_open_window (, , Width, Height, 'black', WindowHandle)
 get_system ('clip_region', Information)
 set_system ('clip_region', 'false')
 dev_set_draw ('margin')
 dev_set_color ('red')
 * do texture segmentation
 texture_laws (Mreut, ImageTexture, 'ee', , )
 median_separate (ImageTexture, ImageSMedian, , , 'mirrored')
 threshold (ImageSMedian, TexturedRegion, , )
 dev_display (Mreut)
 dev_display (TexturedRegion)
 disp_continue_message (WindowHandle, 'black', 'true')
 stop ()
 * find high objects
 scale_image_max (MreutDem, ImageScaleMax)
 dual_rank (ImageScaleMax, ImageRank, 'circle', , , 'mirrored')
 sub_image (ImageScaleMax, ImageRank, ImageSubRank, , )
 threshold (ImageSubRank, High, , )
 zoom_region (High, HighLarge, , )
 move_region (HighLarge, HighLargeMoved, -, -)
 clip_region (HighLargeMoved, HighClipped, , , , )
 threshold (Mreut, Dark, , )
 intersection (TexturedRegion, Dark, RegionIntersection)
 fill_up (RegionIntersection, RegionFillUp)
 connection (RegionFillUp, ConnectedRegions)
 select_shape (ConnectedRegions, SelectedRegions, 'area', 'and', , )
 closing_circle (SelectedRegions, TexureAndHigh, 2.5)
 dev_display (Mreut)
 dev_display (TexureAndHigh)
 set_system ('clip_region', Information)

【《zw版·Halcon-delphi系列原创教程》,网址，cnblogs.com/ziwang/】