| 查看: 354 | 回复: 1 | |||
xuhaohang新虫 (初入文坛)
|
[求助]
讲义中关于“求函数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 |
回复此楼» 猜你喜欢
职称评审没过，求安慰
已经有13人回复
-
毕业后当辅导员了，天天各种学生超烦
已经有4人回复
-
EST投稿状态问题
已经有4人回复
-
聘U V热熔胶研究人员
已经有10人回复
-
求助文献
已经有3人回复
-
垃圾破二本职称评审标准
已经有10人回复
-
投稿返修后收到这样的回复，还有希望吗
已经有8人回复
-
三无产品还有机会吗
已经有6人回复
-
谈谈两天一夜的“延安行”
已经有13人回复
-
氨基封端PDMS和HDI反应快速固化
已经有11人回复
zhswee
铁杆木虫 (著名写手)
- 应助: 130 (高中生)
- 金币: 6195.7
- 散金: 400
- 红花: 19
- 帖子: 2416
- 在线: 398.7小时
- 虫号: 2658798
- 注册: 2013-09-16
- 专业: 力学
【答案】应助回帖
感谢参与，应助指数 +1