tmp,win,params,1);
0077         S(:,ntr,nc)=s;
0078     <span class="keyword">end</span>
0079 <span class="keyword">end</span>;
0080 Sm=mean(S,2);
0081 <span class="keyword">if</span> use==1;
0082    params.tapers=tapers2spec;
0083    params.Fs=1/(f(2)-f(1));
0084    params.fpass=[0 params.Fs/2];
0085 <span class="keyword">else</span>;
0086    tau=[0:NF-1]/max(f);
0087    cosinefunc=cos(2*pi*f'*tau);
0088 <span class="keyword">end</span>;
0089 
0090 <span class="keyword">for</span> nc=1:NC;
0