| 查看: 385 | 回复: 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 |
» 猜你喜欢
805600专硕材料与化工348分求调剂
已经有6人回复
重庆大学材料与化工085600,初试370+,求求调剂建议
已经有5人回复
309求调剂
已经有3人回复
一志愿北交大材料工程,总分358
已经有4人回复
302求调剂一志愿北航070300,本科郑大化学
已经有11人回复
化学工程专硕324分,一志愿中国矿业大学求调剂
已经有7人回复
材料求调剂
已经有11人回复
【求调剂】新能源材料本科,一志愿211,初试321
已经有4人回复
336求调剂
已经有5人回复
材料求调剂
已经有8人回复
zhswee
铁杆木虫 (著名写手)
- 应助: 130 (高中生)
- 金币: 6195.7
- 散金: 400
- 红花: 19
- 帖子: 2416
- 在线: 398.7小时
- 虫号: 2658798
- 注册: 2013-09-16
- 专业: 力学
2楼2014-10-06 18:57:45














回复此楼