一种去雾算法

1. dev_update_off ()
   
2. dev_close_window ()
   
3. read_image (Image, 'tt (1)')
   
4. get_image_size (Image, Width, Height)
   
5. dev_open_window (0, 0, Width, Height, 'black', WindowHandle)
   
6. dev_display (Image)
   
7. disp_message (WindowHandle, '原图像', 'window', 12, 12, 'red', 'false')
   
8. *转换图像类型，用于后续运算
   
9. convert_image_type (Image, IxImage, 'real')
   
10. *求取暗通道图像
    
11. decompose3 (IxImage, R, G, B)
    
12. min_image (R, G, ImageMin)
    
13. min_image (ImageMin, B, ImageMin1)
    
14. gray_erosion_rect (ImageMin1, DarkChannelImage, 15, 15)
    
15. *计算全球大气光成分A的值
    
16. min_max_gray (DarkChannelImage, DarkChannelImage, 0.1, Min, Max, Range)
    
17. threshold (DarkChannelImage, Region, Max, 255)
    
18. min_max_gray (Region, IxImage, 0, Min1, A, Range1)
    
19. *计算透视率预估值tx
    
20. scale_image (IxImage, ImageScaled, 1/A, 0)
    
21. decompose3 (ImageScaled, R1, G1, B1)
    
22. min_image (R1, G1, ImageMin2)
    
23. min_image (ImageMin2, B1, ImageMin3)
    
24. gray_erosion_rect (ImageMin3, ImageMin4, 15, 15)
    
25. scale_image (ImageMin4, txImage, -0.95, 1)
    
26. *设定阈值T0，如果t<T0,则t=T0
    
27. T0:=0.1
    
28. threshold (txImage, Region1, 0, T0)
    
29. paint_region (Region1, txImage, txImage, T0, 'fill')
    
30. *求取去雾后的图像
    
31. scale_image (IxImage, ImageScaled1, 1, -A)
    
32. decompose3 (ImageScaled1, R2, G2, B2)
    
33. div_image (R2, txImage, ImageResultR, 1, A)
    
34. div_image (G2, txImage, ImageResultG, 1, A)
    
35. div_image (B2, txImage, ImageResultB, 1, A)
    
36. compose3 (ImageResultR, ImageResultG, ImageResultB, JxImage)
    
37. dev_open_window (0, 0+Width, Width, Height, 'black', WindowHandle1)
    
38. dev_display (JxImage)
    
39. disp_message (WindowHandle1, '去雾图', 'window', 12, 12, 'green', 'false')

复制代码

以下是雾图

你这又是网上copy的吧？有人已经发布过了
去雾算法的halcon代码实现
https://www.51halcon.com/forum.p ... =1472&fromuid=3