% measured in pts, we have 62 and 105

middle = 62/(62+105);  % middle would be 0.5 for 0 chirpiness

t = linspace(0,1,250);  % closed intervals look better
t_hires = linspace(0,1,10000);
fc = 8; % number of cycles
g = sin(2*pi*fc*t);
g_hires = sin(2*pi*fc*t_hires);
h = dechirp(g_hires,250,middle);

clg
hold off
axis('normal')
subplot(211)
axis([0 1 -1.1 1.1])
plot(t,g)
title('sinusoidal ``mother chirplet''''')
xlabel('normalized domain coordinate axis')
ylabel('amplitude of real part')
grid
plot(t,h)
title('member of sinusoidal p-chirplet family')
xlabel('normalized range coordinate axis')
ylabel('amplitude of real part')
grid

