用fortran程序编写的数值计算实验报告
else
x0=x1
end if
end if
end do
end
function f(x)
implicit none
real::f
real::x
f=x*x*x-x-1
return
end function
function y(x)
implicit none
real::y
real::x
y=3*x*x-1
return
end function
五、 求解结果
3 1.324718
4 1.324718
5 1.324718
6 1.324718
7 1.324718
8 1.324718
9 1.324718
六、 算法评价及讨论
1. 在求解在1.5处附近的根，不难发现在输入区间左端值为1时
需要迭代6次，而输入区间左端值为1.5时，却只要4次。初
