R/NIMfzero.R

NIMfzero <-
function(f,f1,x0=0,num=100,eps=1e-5,eps1=1e-5)
  {
    a=x0;b=a-f(a)/f1(a)
    i=0
    while((abs(b-a)>eps)&(i<num))
    {
      a=b
      b=a-f(a)/f1(a)
      i=i+1
    }
    print(b)
    print(f(b))
    if(abs(f(b))<eps1)
    {
      print("finding root is successful")
    }
    else
      print("finding root is fail")
  }

Try the NLRoot package in your browser

Any scripts or data that you put into this service are public.

NLRoot documentation built on May 2, 2019, 7:31 a.m.