画像シーケンス内のオブジェクトを追跡する
Manipulate[HighlightImage[images[[frame]], Take[features[[frame]], UpTo[n]]], {frame, 1, Length[images], 1, Appearance -> "Labeled"},
{{n, 15}, 5, 50, 5, Appearance -> "Labeled"},
Initialization :> {images = ExampleData /@ (ExampleData[{"TestAnimation", "ChemicalPlantClose"}, "Frames"]), features = ImageFeatureTrack[images]}]