24小时热门版块排行榜

返回列表

xuhaohang

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 35.2
帖子: 20
在线: 14.2小时
虫号: 3426811
注册: 2014-09-18
专业: 凝聚态物性 II ：电子结构

[求助] 讲义中关于“求函数f(x)=x^2-5的正根”的程序中有疑惑，望解答已有1人参与

疑问在下文中出现在感叹号后：
题目如下：求函数f(x)=x^2-5的正根，容许的误差是10^-6.我们可以知道这个正根在2和3之间（！请问是怎么知道正根在2和3之间的？）。我们可以以x=2为初始猜测值，初始步长为0.5.程序如下：
program main
implicit none
real::x,tolx=1.0E-6,h=0.5,f-old
x=2.0
f-old=fnf(x)
do while(h>tolx)
x=x+h
print*,x,sqrt(5.0)-x !请问在此处的“根5-x”是什么意思？
if(f-old*fnf(x)>0)cycle
x=x-h
h=h/2.0
enddo
contains
function fnf(x)
implicit none
real::x
real fnf
fnf=x*x-5.0
end function fnf
end

回复此楼