function f(x)
common p


f =exp(x)-p*x*x

END
