灰度世界法2-白平衡
* 方法二read_image (Image, 'C:/14.jpg')
decompose3(Image, R, G, B)
intensity(R,R,MeanR, DeviationR)
intensity(G,G,MeanG, DeviationG)
intensity(B,B,MeanB, DeviationB)
mrgb := MeanG
scale_image(R,R1,MeanG/MeanR,0)
scale_image(G,G1,MeanG/MeanG,0)
scale_image(B,B1,MeanG/MeanB,0)
compose3(R1,G1,B1,RGB1)
页:
[1]