方程f(x)=x^3-3x=0
program main
implicit none
real(8) ::x=3,g(x)=(3*x)^(1/3)
do while(abs(g(x)-x)>=1E(-5))
x=g(x)
end do
print*,"方程f(x)=x^3-3x=0的精确解为x=",x
end
但是这样一次只能算一个解，而且跟老师的提示不一样。
这个程序要写得规范一些要怎么写啊？
program main
implicit none
real(8) ::x=3,g(x)=(3*x)^(1/3)
do while(abs(g(x)-x)>=1E(-5))
x=g(x)
end do
print*,"方程f(x)=x^3-3x=0的精确解为x=",x
end
但是这样一次只能算一个解，而且跟老师的提示不一样。
这个程序要写得规范一些要怎么写啊？
