function XX=differ(vec);

// "differentiates" a vector

[ig,n]=size(vec);
XX=convol(vec,[1 -1]);
XX(n+1)=[];

endfunction;



