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

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

end do

stop

end

一般迭代法程序 program main implicit none

real::x0

integer::k

real::x1

integer,parameter::N=9 real,external::f k=0

x0=1.5

do while (k<=N) k=k+1

write(*,*) k,x0 x0=f(x0)

end do

end

function f(x)

real::x,f

f=(x+1)**(real(1)/real(3)) return

end

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