カラー画像を白黒変換して指定サイズで保存

Dec 19 2014
Masahiro Mizutani

Mathematica Noteの保存場所を作業場所とする

SetDirectory[NotebookDirectory[]]

準備

スマートフォンなどで撮影した画像サイズは大きい（iPhoneでは2592 x 3872）。利用したい画像領域を指定し、さらに縦横どちらかのピクセル数を指定して縮小したファイルを作成しておくとMathematicaでの作業が正確に進められる。

利用したい画像領域の切り出しには、MacOSならプレビュー[長方形で選択]して[切り取り]で、Windowsならペイントでを画像の取り出したい領域を切り取りる。
さらに、縦横ピクセル数のいずれかを指定して縦横いずれか目的ピクセルで画像を縮小。プレビュー[ツール][サイズを調整]、またはペイントで画像のサイズを変更する」http://windows.microsoft.com/ja-jp/windows7/resize-a-picture-using-paint 。

写真を読み込む

colorphoto=Import["data/construction.jpg"]

画像サイズの確認

縦が546ピクセル、横が512ピクセルのデータと確認

ImageDimensions[colorphoto]

Grayscaleに変換

grayphoto=ColorConvert[colorphoto,"Grayscale"]

画像サイズの調整

画像データ

ImageData[grayphoto]

画像の縦ピクセル数

Length[ImageData[grayphoto]]

画像の横幅ピクセル数

Length[First[ImageData[grayphoto]]]

画像の切り出し

ピクセル位置 (1, 1) から (512, 512) まで切り取る

squaregray=Take[ImageData[grayphoto],{1,512},{1,512}]

Image[squaregray]

画像データの書き出し

SetDirectory[NotebookDirectory[ ]]内のフォルダ data 何に書き出す

Export["data/grayconst.jpg",Image[squaregray],"Image"]