function result = dexpe ( x )
%  
%
result = (-1/10)*exp (- x / 10) *sin(10* x) + exp (- x / 10) * 10 * cos(10* x);