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}}]
今後の予定