2013-03-25[n年前へ]
■ノートPC付属のWebCamで「脈拍検出」をしてみよう!? 
テレビ画面に映るアイドルの「胸のドキドキ」がわかる未来!?で書いた「カメラ画像からの脈拍推定」を、MacBook AirのFaceTimeカメラ（Webカメラ）を使い・Mathematicaでコードを書いて試してみました。
まずは、下のようなMathematicaコードを書き、1秒に１０回のペースで１０秒間にわたりカメラから画像を取り込み（カメラにかざした手のひらを撮影し）、そして、撮影画像の「緑←→赤」方向の色成分を抽出し、１０秒間の色変化をグラフにしてみたのです。
Pause[5]; (* 手をかざすまでの待ち時間 *)
img = Table[ Pause[0.1]; CurrentImage[], {100}];
lab = ImageData@(ColorConvert[#, "LAB"]) & /@ img;
bImg = Table[ Map[(#[[2]]) &, data[[i]], {2, 2}],
{i, 1, Length@data}];
ListPlot[ (Apply[Plus, Flatten[#] ]) & /@ bImg ]
（Webカメラに手をかざしつつ）このコードを実行した結果が、下に貼り付けたグラフです。横軸がフレーム数（１０フレームで約１秒です）で、縦軸が「緑←→赤」方向の色成分量です。
１０秒間に１２間程度の色変化が見て取れます。…ということは、１分間あたりに換算すると７０回程度の「色振動」が生じています。
…なるほど、これが脈拍を反映した肌の色変化なのかもしれません。今この時点のわたしの脈拍は７０（回/分）程度のようです（点滅を高速に繰り返す照明周期と撮影周期のビートが生じていないか？という点は気にかかりますが）。
ノートPC付属のWebCamがユーザの脈拍検出も容易にできるようになると…「やってみたい面白いこと」がたくさん頭に浮かんできますね。
」など。