zc_yxx
技术员
技术员
  • 最后登录2020-02-14
  • 发帖数22
  • 金币451枚
  • 贡献勋章0枚
阅读:158回复:6

halcon 清晰度评价 算子

楼主#
更多 发布于:2020-02-14 14:18


open_framegrabber ('Sentech', 1, 1, 0, 0, 0, 0, 'progressive', 8, 'default', -1, 'false', 'default', '0', 0, -1, AcqHandle)
grab_image_start (AcqHandle, -1)
grab_image_async (Image, AcqHandle, -1)
dev_update_off()
dev_close_window()
get_image_size(Image, Width, Height)
dev_open_window(0, 0, Width, Height, 'black', WindowHandle)
dev_set_color('red')
Method:='Tenegrad'
while (true)
    grab_image_async (Image, AcqHandle, -1)
    dev_display(Image)
    scale_image_max(Image, Image)
    if(Method='Deviation')
        region_to_mean(Image, Image, ImageMean)
        convert_image_type(ImageMean, ImageMean, 'real')
        convert_image_type(Image, Image, 'real')
        sub_image(Image, ImageMean, ImageSub, 1, 0)
        mult_image(ImageSub, ImageSub, ImageResult, 1, 0)
        intensity(Image, ImageResult, Value, Deviation)
        set_tposition(WindowHandle, 24, 12)
        write_string(WindowHandle, Deviation)
    elseif(Method='energy')
       crop_part(Image, ImagePart00,0, 0, Width-1, Height-1)
       crop_part(Image, ImagePart01,0, 1, Width-1, Height-1)
       crop_part(Image, ImagePart10,1, 0, Width-1, Height-1)
       convert_image_type(ImagePart00, ImagePart00, 'real')
       convert_image_type(ImagePart01, ImagePart01, 'real')
       convert_image_type(ImagePart10, ImagePart10, 'real')
       sub_image(ImagePart10, ImagePart00, ImageSub1, 1, 0)
       mult_image(ImageSub1, ImageSub1, ImageResult1,1, 0)
       sub_image(ImagePart01, ImagePart00, ImageSub2, 1, 0)
       mult_image(ImageSub2, ImageSub2, ImageResult2,1, 0)
       add_image(ImageResult1, ImageResult2, ImageResult, 1, 0)
       intensity(ImageResult, ImageResult2, Value, Deviation)
       set_tposition(WindowHandle, 24, 12)
       write_string(WindowHandle, Deviation)
    elseif(Method='Tenegrad')
       sobel_amp(Image, EdgeAmplitude, 'sum_sqrt', 3)
       min_max_gray(EdgeAmplitude, EdgeAmplitude, 0, Min, Max, Range)
       threshold(EdgeAmplitude, Region, 50, 255)
       region_to_bin(Region, BinImage, 1, 0, Width, Height)
       mult_image(BinImage, BinImage, ImageResult3, 1, 0)
       mult_image(ImageResult3, ImageResult3, ImageResult4, 1, 0)
       intensity(ImageResult4, ImageResult4, Value, Deviation)
       set_tposition(WindowHandle, 24, 12)
       write_string(WindowHandle, Deviation)
      
    endif
    
    * Do something
endwhile
close_framegrabber (AcqHandle)
可以用于自动对焦
喜欢2

最新打赏:0人

雾里看花AAA
技术员
技术员
  • 最后登录2020-03-26
  • 发帖数45
  • 金币171枚
  • 贡献勋章0枚
  • 社区居民
  • 忠实会员
沙发#
发布于:2020-02-14 15:22
好东西   学习学习
cwhcwh
初学者
初学者
  • 最后登录2020-03-24
  • 发帖数181
  • 金币87枚
  • 贡献勋章0枚
  • 社区居民
  • 忠实会员
板凳#
发布于:2020-02-15 12:48
这好像是从范例抓出来的,好東西學習學習
goudou
技术员
技术员
  • 最后登录2020-03-29
  • 发帖数129
  • 金币205枚
  • 贡献勋章0枚
地板#
发布于:2020-02-15 20:59
好東西,學習學習,谢谢楼主
huangxiaoyu
初学者
初学者
  • 最后登录2020-03-24
  • 发帖数17
  • 金币67枚
  • 贡献勋章0枚
  • 社区居民
4楼#
发布于:2020-02-15 22:53
这好像是从范例抓出来的,好東西學習學習
flexdm
初学者
初学者
  • 最后登录2020-03-25
  • 发帖数289
  • 金币110枚
  • 贡献勋章0枚
  • 社区居民
  • 忠实会员
5楼#
发布于:2020-02-16 15:31
从范例抓出来的,好東西
496407151
技术员
技术员
  • 最后登录2020-03-28
  • 发帖数130
  • 金币524枚
  • 贡献勋章0枚
  • 社区居民
  • 忠实会员
6楼#
发布于:2020-02-16 18:25
这些东西还是不错的,很实用
游客

返回顶部
支付

欢迎打赏,请选择打赏金额

  • 1元
  • 6元
  • 10元
  • 66元
  • 100元

支付即代表同意《本站支付协议》 有疑问请联系客服