function y=exponential(x,r)

y=exp(r*x);