牛顿迭代法实验报告(2)

用fortran程序编写的数值计算实验报告

四、 程序设计

program nndd01

implicit none

real,parameter::e=0.005

real,parameter::n=9

real::x1

real::x0=1.5

integer::k

real,external::f,y

do k=1,9

if (y(x0)==0) then

write(*,*)"失败"

else

x1=x0-f(x0)/y(x0)

if (abs(x1-x0)<e) then

write(*,*)k,x1

百度搜索“70edu”或“70教育网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，70教育网，提供经典教育范文牛顿迭代法实验报告(2)在线全文阅读。