function res=pic(x)

%  pic(x) est la fonction égale à 
%  2*x sur [0,1/2] ;
%  2*(1-x) sur [1/2,1].

res=2*x.*(double(x)<=1/2)+2*(1-x).*(double(x)>1/2);
if ~(isnumeric(x))
   res=simplify(res);
end