pper(pt),<span class="string">'HALFSINE'</span>)
0029     p(1:n_zero)=sin(2*pi/(2*tp)*t(1:n_zero));
0030     p(n_zero+1:N)=zeros(size(n_zero+1:N));
0031 <span class="keyword">elseif</span> strcmp(upper(pt),<span class="string">'GAUSSIAN'</span>)
0032     p(1:n_zero)=exp(-((t(1:n_zero)-t(n_zero/2))/(t(n_zero/2)/3)).^2/2);
0033     <span class="comment">%p(1:n_zero)=exp(-((t(1:n_zero)-.05)/.01).^2/2);</span>
0034     p(1:n_zero)=p(1:n_zero)-min(p(1:n_zero));
0035     p(n_zero+1:N)=zeros(size(n_zero+1:N));
003