Ошибка импорта изображения в графе Mathematica

Question

Я пытаюсь преобразовать импортированную цветную картинку в оттенки серого.

Вот что я пытался до сих пор, но Mathematica просто падает после выполнения этого кода, может быть, вы можете найти ошибку, не может признать, что я делаю неправильно:

SetDirectory[NotebookDirectory[]] 
testimage = Import["test.jpg"] 
matrixpic = getMatrix[testimage] 

matrixpic = getMatrix[testimage] 
greypic = 
    Graphics[ 
    Raster[ 
     matrixpic, {{0, 0}, {sizeX[matrixpic], sizeY[matrixpic]}}, {0, 
     255}, ColorFunction -> (GrayLevel[#[[1]]*0.3 + #[[2]]*0.5 + #[[ 
     3]]*0.2] &) 
    ], 
    ImageSize -> {sizeX[matrixpic], sizeY[matrixpic]}, 
    AspectRation -> Automatic 
] 

Show[greypic] 

Answer 1

Это работает и больше кода стиля Mathematica.

SetDirectory[NotebookDirectory[]]; 
img = Import["55th-All-Japan-Kendo-Champ2007-4.jpg"]; 
colorXform[p_] := p[[1]]*0.3 + p[[2]]*0.5 + p[[3]]*0.2; 
newImg = Image[Map[colorXform, ImageData[img], {2}]]; 
Show[newImg] 

Answer 2

Я считаю, что лучший способ сделать это преобразование является использование ImageApply и Dot:

img = Import["ExampleData/lena.tif"] 

ImageApply[{.3, .5, .2}.# &, img] 

---

Пожалуйста, задавайте свои вопросы в будущем на выделенном StackExchange сайте Mathematica:

Answer 3

Ваш код может быть упрощен до

img = Import["ExampleData/lena.tif"]; 
matrixpic = ImageData[img, DataReversed -> True]; 
Graphics[Raster[matrixpic, 
    ColorFunction -> (GrayLevel[{.3, .5, .2}.#] &)]] 

Это работает без ошибок в Mathematica 8.0.4.