 
file = "clarinette_la3.wav";
			
son = Import[file]
  
fe = 22050
signal = Import[file,"Data"][[1]];
			

tracer[signal_,debut_,duree_]:=Module[{onde},
	onde = Table[{k/fe,signal[[k+debut]]},{k,duree}];
	ListPlot[onde,Joined->True,AxesLabel->{"t (s)","s"}]
]
			
tracer[signal,100,300]

spectre[signal_,debut_,duree_,plotrange_]:=Module[{echantillon,tfd,sp},
	echantillon = Take[signal,{debut,debut+duree}]; 
	tfd = Fourier[echantillon,FourierParameters->{-1,-1}];
	sp = Table[{(k-1)/duree*fe,Abs[tfd[[k]]]*duree/fe},{k,duree/2}];
	ListPlot[sp,Filling->Axis,AxesLabel->{"f(Hz)","|Cn|"},PlotRange->plotrange]
]
			
spectre[signal,100,3000,{{0,5000},{0,0.002}}]
spectre[signal,20000,3000,{{0,5000},{0,0.002}}]
spectre[signal,1,22000,{{430,450},{0,0.02}}]
 
signal = Import["clarinette_re1.wav","Data"][[1]];
				
spectre[signal,1000,3000,{{0,4000},{0,0.001}}]

signal = Import["clarinette_re2.wav","Data"][[1]];
				
spectre[signal,1000,3000,{{0,4000},{0,0.001}}]

signal = Import["clarinette_la3.wav","Data"][[1]];
				
spectre[signal,1000,3000,{{0,4000},{0,0.001}}]

signal = Import["clarinette_la4.wav","Data"][[1]];
				
spectre[signal,1000,3000,{{0,6000},{0,0.001}}]

signal = Import["fluteBec_la4.wav","Data"][[1]];
				
spectre[signal,1000,3000,{{0,6000},{0,0.001}}]
