基于Lab颜色空间的灰度世界法3-白平衡

Halcom

1. * 方法三
   
2. read_image (Image, 'E:/9.jpg')
   
3. decompose3(Image, R, G, B)
   
4. trans_from_rgb(R,G,B,L,a,b,'cielab')
   
5. 
   
6. convert_image_type(a,a,'real')
   
7. intensity(a,a,Meana1,Deviationa1)
   
8. get_image_size(a,Width, Height)
   
9. gen_image_const(Image1, 'real', Width, Height)
   
10. gen_image_proto(Image1, ImageCleared, Meana1)
    
11. sub_image(a,ImageCleared, a1, 1, 0)
    
12. intensity(a1,a1,Meana2, Deviationa2)
    
13. gen_image_const(Image2, 'byte', Width, Height)
    
14. gen_image_proto(Image2, a3, Meana1+Meana2)
    
15. 
    
16. convert_image_type(b,b,'real')
    
17. intensity(b,b,Meanb1,Deviationb1)
    
18. * get_image_size(b,Width, Height)
    
19. gen_image_const(Image1, 'real', Width, Height)
    
20. gen_image_proto(Image1, ImageCleared, Meanb1)
    
21. sub_image(b,ImageCleared, b1, 1, 0)
    
22. intensity(b1,b1,Meanb2, Deviationb2)
    
23. gen_image_const(Image2, 'byte', Width, Height)
    
24. gen_image_proto(Image2, b3, Meanb1+Meanb2)
    
25. 
    
26. trans_to_rgb(L,a3,b3,R1,G1,B1,'cielab')
    
27. compose3(R1,G1,B1,RGB1)
    

复制代码