| 查看: 363 | 回复: 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 |
回复此楼» 猜你喜欢
救命帖
已经有11人回复
-
招博士
已经有5人回复
-
青椒八年已不青，大家都被折磨成啥样了？
已经有6人回复
-
青年基金C终止
已经有3人回复
-
26申博求博导推荐-遥感图像处理方向
已经有4人回复
-
限项规定
已经有7人回复
-
西南交通大学国家级人才团队2026年博士研究生招生（考核制）—机械、材料、力学方向
已经有3人回复
-
英文综述是否需要润色及查重
已经有5人回复
-
为什么nbs上溴 没有产物点出现呢
已经有9人回复
zhswee
铁杆木虫 (著名写手)
- 应助: 130 (高中生)
- 金币: 6195.7
- 散金: 400
- 红花: 19
- 帖子: 2416
- 在线: 398.7小时
- 虫号: 2658798
- 注册: 2013-09-16
- 专业: 力学
2楼2014-10-06 18:57:45