imagerExtra (version 1.3.2)

EqualizeADP: Adaptive Double Plateaus Histogram Equalization

Description

compute the paramters, t_down and t_up, and then apply double plateaus histogram equalization.

Usage

EqualizeADP(im, n = 5, N = 1000, range = c(0, 255),
  returnparam = FALSE)

Arguments

im

a grayscale image of class cimg

n

window size to determine local maximum

N

the number of subintervals of histogram

range

range of the pixel values of image. this function assumes that the range of pixel values of of an input image is [0,255] by default. you may prefer [0,1].

returnparam

if returnparam is TRUE, returns the computed parameters: t_down and t_up.

Value

a grayscale image of class cimg or a numericvector

References

Kun Liang, Yong Ma, Yue Xie, Bo Zhou ,Rui Wang (2012). A new adaptive contrast enhancement algorithm for infrared images based on double plateaus histogram equalization. Infrared Phys. Technol. 55, 309-315.

Examples

# NOT RUN {
g <- grayscale(dogs)
layout(matrix(1:2, 1, 2))
plot(g, main = "Original")
EqualizeADP(g) %>% plot(main = "Contrast Enhanced")
# }