0);         <span class="comment">% Window length in samples</span>
0041     tl=round(wl);                   <span class="comment">% Taper length</span>
0042     w(1:wl)=1;
0043     n=0:tl;
0044     <span class="keyword">if</span> strcmp(Type,<span class="string">'GAUSSIAN'</span>)
0045         p=<a href="makepulse.html" class="code" title="function p = makepulse(N,fs,tp,pt);">makepulse</a>(2*tl,1,2*tl-1,Type);
0046         p=p(tl:end)/p(tl);
0047         w(wl:wl+tl)=p;
0048     <span class="keyword">elseif