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}}]

今後の予定

• ヒストグラム (度数分布グラフ) → コントラストが分かる
• エッジ検出 (微分フィルタを利用)
• ノイズ除去 (移動平均フィルタを利用, メディアン・フィルタ)