function g(x)
common p

g =x -p*(exp(x)-3*x*x)

!g =(1.78-0.2*tan(x))/(1+tan(x))

END
