Import["/usr/people/faculty/physics/jcrumley/370/sound/speed_of_sound_in_formica_cut.wav"]

sdata=Import["/usr/people/faculty/physics/jcrumley/370/sound/speed_of_sound_in_formica_cut.wav","Data"]

c2=sdata[[{2}]]

c1=sdata[[{1}]]

ListPlot[c1]

c1[[{1}]]

ListPlot[c1, PlotRange->{{0,5000},{-.1,.1}}]

ListPlot[c2, PlotRange->{{0,5000},{-.1,.1}}]

ListPlot[c2, PlotRange->{{1510,1560},{-.1,.2}}]

ListPlot[c1, PlotRange->{{1510,1560},{-.05,.1}}]

dat2=Import["/usr/people/faculty/physics/jcrumley/www-docs/370/Speed_of_Sound_2symbols.wav","Data"]

Dimensions[%]

p2=ListPlot[dat2[[2,Range[68000,75000]]],ImageSize->Full,PlotRange->All]

(* Cross Correlation *)

c2=Ordering[Flatten@Table[ListCorrelate[RotateRight[dat2[[1,Range[68500,70500]]],n],dat2[[2,Range[68500,70500]]]],{n,2000}],-1]