G..4 カラーをグレースケールに変換

カラー画像をグレースケールにする
In[] := data2 = Table[Table[(Sum[data[[i,j,k]],{k,1,3}])/3,{j,512}],{i,512}];
In[] := gry=Image[data2]

\includegraphics[width=5cm]{eps/lena-gray.eps}



桂田 祐史