灰度世界法---白平衡

Halcom

1. * 灰度世界法---白平衡
   
2. * 白平衡：白色的物体拍照后，应该看起来是白色的，那么其它颜色的物体拍出来就不会失真了
   
3. read_image (Image, '14.jpg')
   
4. decompose3(Image, R, G, B)
   
5. intensity(R,R,MeanR, DeviationR)
   
6. intensity(G,G,MeanG, DeviationG)
   
7. intensity(B,B,MeanB, DeviationB)
   
8. mrgb := (MeanR+MeanG+MeanB)/3.0
   
9. scale_image(R,R1,mrgb/MeanR,0)
   
10. scale_image(G,G1,mrgb/MeanG,0)
    
11. scale_image(B,B1,mrgb/MeanB,0)
    
12. compose3(R1,G1,B1,RGB1)

复制代码