G..5 R,G,B画像の取り出し

RGB画像の取り出し
In[] := {r,g,b} = Table[Table[Table[data[[i,j,k]], {j,512}], {i,512}],{k,3}];
In[] := Table[Image[x],{x,{r,g,b}}]

\includegraphics[width=5cm]{eps/lena-r.eps} \includegraphics[width=5cm]{eps/lena-g.eps} \includegraphics[width=5cm]{eps/lena-b.eps}

今後の予定

桂田 祐史
2018-10-12