function f=trunc(n);

%          f=trunc(n);
%
% Fenêtre de troncature rectangulaire adoucie aux extrémités ; elle est
% utilisée dans les programmes rpyramid et dpyramid. 

x=ones(1,n);
x(1)=0;
x(2)=1/4;
x(3)=1/2;
x(4)=3/4;
x(n)=0;
x(n-1)=1/4;
x(n-2)=1/2;
x(n-3)=3/4;
f=x;