固定したカメラで撮った動画で、画素ごとに時間について平均を取れば、（適当な速度で）動くものを消せます。Mathematicaだとこんな感じです。（参照：フリーソフトウェアを使う方法） Export["result.jpg", Image[Mean[Map[ImageData, Import["movie.mov", "ImageList"]]]]] おまけ：フレームの平均を計算していく過程（最初の5秒を30秒で） 詳細：風景から歩行者が消えていく様子（リアルタイム版） 追記：画質的には平均ではなく中央値や最頻値を使った方がいいかもしれませんが、「手軽」ではなくなります。「平均でもできるんだ」という「手軽」さの実例だと理解していただければと思います。 中央値：MeanをMedianに置き換えるだけで試せますが、計算時間・消費メモリともに増大します。平均なら約90秒で終わるこの動画（1280x
