Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/fortran/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Fortran 牛顿-拉斐逊不收敛于某些初始猜测 程序newton\u raphson 隐式无 实数,参数::错误=1e-4 整数::i 实数:xo,x1,f,fd 打印*,“请输入初始猜测!!!” 读*,xo i=1 10x1=xo-(f(xo)/fd(xo)) 如果(abs((x1-xo)/x1)_Fortran - Fatal编程技术网

Fortran 牛顿-拉斐逊不收敛于某些初始猜测 程序newton\u raphson 隐式无 实数,参数::错误=1e-4 整数::i 实数:xo,x1,f,fd 打印*,“请输入初始猜测!!!” 读*,xo i=1 10x1=xo-(f(xo)/fd(xo)) 如果(abs((x1-xo)/x1)

Fortran 牛顿-拉斐逊不收敛于某些初始猜测 程序newton\u raphson 隐式无 实数,参数::错误=1e-4 整数::i 实数:xo,x1,f,fd 打印*,“请输入初始猜测!!!” 读*,xo i=1 10x1=xo-(f(xo)/fd(xo)) 如果(abs((x1-xo)/x1),fortran,Fortran,尽管牛顿-拉斐逊方法在根附近收敛很快,但其全局 收敛特性差。原因是切线并非总是可以接受的函数近似值,因此可以尝试将代码与对分法结合起来,这样可以改进结果。尽管牛顿-拉斐逊法在根附近收敛很快,但其全局收敛性很好 收敛特性较差。原因是切线并非始终是函数的可接受近似值,因此可以尝试将代码与二分法相结合,这样可以改进结果。失败的方式很重要。但是,如果您对此有疑问,请显示错误信息sage和你对行为的期望。你更可能有一个数学问题,而不是一个计算问题,即:当f(0)/fd(0)时,你期望发生什么已评估?Arg

尽管牛顿-拉斐逊方法在根附近收敛很快,但其全局
收敛特性差。原因是切线并非总是可以接受的函数近似值,因此可以尝试将代码与对分法结合起来,这样可以改进结果。

尽管牛顿-拉斐逊法在根附近收敛很快,但其全局收敛性很好
收敛特性较差。原因是切线并非始终是函数的可接受近似值,因此可以尝试将代码与二分法相结合,这样可以改进结果。

失败的方式很重要。但是,如果您对此有疑问,请显示错误信息sage和你对行为的期望。你更可能有一个数学问题,而不是一个计算问题,即:当
f(0)/fd(0)时,你期望发生什么
已评估?Arghh………抱歉,感谢您澄清…失败的方式很重要。但是,如果您对此有疑问,请显示错误消息以及您对行为的期望。您更有可能遇到数学问题,而不是计算问题,即:您期望发生什么何时评估
f(0)/fd(0)
?Arghh………抱歉,感谢您的澄清。。。。
 program newton_raphson
    implicit none
    real,parameter::error=1e-4
    integer::i
    real::xo,x1,f,fd
    print*,"Please enter the initial guess !!!"
    read*,xo
    i=1
    10 x1=xo-(f(xo)/fd(xo))
    if(abs((x1-xo)/x1)<error) then
    print*,"root is", x1,"no. of iteration=",i
    else
    xo=x1
    i=i+1
    goto 10
    endif
    end

    real function f(x)
    real::x
    f=cos(x)
    end

    real function fd(x)
    real::x
    fd=-sin(x)

    end