极度飞车.
技术员
技术员
  • 最后登录2018-09-18
  • 发帖数30
  • 金币131枚
  • 贡献勋章0枚
  • 社区居民
阅读:600回复:2

请问一下这段代码,最后显示的是清晰度吗?数值大小代表什么?

楼主#
更多 发布于:2018-04-14 11:10
dev_close_window()
dev_open_window(0, 0, 800, 640, 'black', window)
*dir:='E:/20180414/T1_2_OK'
dir:='C:/Users/ZDH-XMYF-010/Desktop/新建文件夹'
list_files (dir,['files','recursive','follow_links'], ImageFiles)
tuple_regexp_select (ImageFiles, ['\\.(tif|tiff|gif|bmp|jpg|jpeg|\
                     jp2|png|pcx|pgm|ppm|pbm|xwd|ima)$',\
                     'ignore_case'], ImageFiles)
for Index := 0 to |ImageFiles| - 1 by 1
     read_image (Image1, ImageFiles[Index])


laplace(Image1, ImageLaplace4, 'signed', 3, 'n_4')


laplace(Image1, ImageLaplace8, 'signed', 3, 'n_8')


add_image(ImageLaplace4, ImageLaplace4, ImageResult1, 1, 0)


 add_image(ImageLaplace4, ImageResult1, ImageResult1, 1, 0)


add_image(ImageLaplace8, ImageResult1, ImageResult1, 1, 0)


mult_image(ImageResult1, ImageResult1, ImageResult, 1, 0)


 intensity(ImageResult, ImageResult, Value, Deviation)
  dev_display (Image1)
   * Ret:=[Ret,Value]
disp_message(window, Value, 'window', 12, 12, 'red', 'true')
endfor
喜欢0

最新打赏:0人

Corodile
技术员
技术员
  • 最后登录2018-07-24
  • 发帖数39
  • 金币109枚
  • 贡献勋章0枚
  • 社区居民
沙发#
发布于:2018-04-14 14:59
是的,而且是拉普拉斯梯度函数
参考 https://blog.csdn.net/dangkie/article/details/77726792
极度飞车.
技术员
技术员
  • 最后登录2018-09-18
  • 发帖数30
  • 金币131枚
  • 贡献勋章0枚
  • 社区居民
板凳#
发布于:2018-04-17 13:56
好的,谢谢。。。。。。。。。。
游客

返回顶部
支付

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

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

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