function fnewtp = fnewtp(x)
  fnewtp = -2*x;