frame0=Import["~/courses/Spring2014/MATH089/animations/EMframes00000.gif"]

f0=ImageData[frame0];

Dimensions[f0]

p0=ListPlot[f0[[100,90;;,1]]-f0[[100,90;;,3]],Joined->True]

frame1=Import["~/courses/Spring2014/MATH089/animations/EMframes00001.gif"]

f1=ImageData[frame1];

Dimensions[f1]

p1=ListPlot[f1[[100,90;;,1]]-f1[[100,90;;,3]],Joined->True]

Show[p0,p1]

p1=ListPlot[{f0[[100,90;;,1]]-f0[[100,90;;,3]],f1[[100,90;;,1]]-f1[[100,90;;,3]]},Joined->True]

?FourierTransform

d0=f0[[100,90;;,1]]-f0[[100,90;;,3]];

Dimensions[d0]

A0=Abs[Fourier[d0]];

ListPlot[A0[[1;;20]]  ,Joined->True,PlotRange->All]

d1=f1[[100,90;;,1]]-f1[[100,90;;,3]];

Dimensions[d1]

A1=Abs[Fourier[d1]];

ListPlot[A1[[1;;20]]  ,Joined->True,PlotRange->All]

ListPlot[{A0[[;;20]],A1[[;;20]]},Joined->True,PlotRange->All]

data=Table[ 1 Sin[ 2 π x] + 2 Sin[ 10 π x] + 4 Sin[20 π x]+ 8 Sin[40 π x],{x,0,1,0.005}];

ListPlot[data,Joined->True]

Adata=Fourier[data];

ListPlot[Abs[Adata[[1;;100]]],Joined->True,PlotRange->All,Frame->True]

d0=f0[[100;;200,90;;,1]]-f0[[100;;200,90;;,3]];

Dimensions[d0]

A0=Fourier[d0];

ListPlot3D[Abs[A0[[;;40,;;100]]],PlotRange->All]