
function cbell = cosbell(n,percent)
% function cbell = cosbell(n,percent)
% This builds a cosine tapered bell of length n
% The first percent and last percent are the cosine taper
% 100 - 2*percent % of the bell is = 1.0
cbell = ones(n,1);
m = percent*n/100;
t = [0:m-1]*pi/m + pi/(2*m);
cs = (1+cos(t))/2;
cbell(n-m+1:n) = cs;
l = length(cs):-1:1;
cs = cs(l);
cbell(1:m) = cs;

% end of cosbell.m
