Вы можете разделить изображение в каналах R, G и B и заменить красный канал нулями, оставив только каналы G и B.
Пример в Mathematica:
i = Import["http://tinyurl.com/3wqklof"];
ColorCombine@{ImageSubtract[#[[1]], #[[1]]], #[[2]], #[[3]]} &@ ColorSeparate@i
Редактировать
Или, если вам нужно "точное" синее изображение, разделите его в цветовом пространстве "HSB", заменив все ненулевые значения матрицы H на 2/3 (синий), оставив компоненты S и B без изменений.
Пример:
ColorCombine[{Image[2/3 ImageData@ImageAdd[#[[1]], #[[1]]]], #[[2]], #[[3]]} &@
ColorSeparate[i, "HSB"], "HSB"]