| 查看: 375 | 回复: 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 |
回复此楼» 猜你喜欢
情人节自我反思：在爱情中有过遗憾吗？
已经有12人回复
-
今年春晚有几个节目很不错，点赞！
已经有11人回复
-
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低
已经有12人回复
-
过年走亲戚时感受到了所开私家车的鄙视链
已经有9人回复
-
基金正文30页指的是报告正文还是整个申请书
已经有5人回复
zhswee
铁杆木虫 (著名写手)
- 应助: 130 (高中生)
- 金币: 6195.7
- 散金: 400
- 红花: 19
- 帖子: 2416
- 在线: 398.7小时
- 虫号: 2658798
- 注册: 2013-09-16
- 专业: 力学
2楼2014-10-06 18:57:45