« View all new features in
Mathematica
9
◄
previous
|
next
►
New in
Mathematica
9
›
Advanced Image Processing with Large Image Support
Tracking Objects in an Image Sequence
Find and track feature points in a sequence of images.
In[1]:=
X
With[ {images = ExampleData /@ (ExampleData[{"TestAnimation", "ChemicalPlantClose"}, "Frames"][[1 ;; -1 ;; 2]])}, DynamicModule[{res}, res = Table[ MapThread[ HighlightImage, {images, ImageFeatureTrack[images, MaxFeatures -> n]}], {n, 5, 50, 5}]; Manipulate[res[[Round[features/5], frame]], {frame, 1, Length[images], 1, Appearance -> "Labeled"}, {{features, 20}, 5, 50, 5, Appearance -> "Labeled"}]]]
Play Animation
»
Stop Animation
»
