proc newton＝(real x,error,proc(real)real f,f prime)real: