function [x,sem]=negexp( esp, sem )
% NEGEXP    - negative exponential generator
% esp = esperanca da exponencial negativa
[x,sem]=aleat(sem); x = -esp*log(x);