来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/29 11:27:10
求:牛顿迭代法解方程的程序
要Fortran的
PROGRAM MAIN
READ(*,*)X
N=1
10 X1=X
F=X1**2-4*X1+1
F1=2*X1-4
X=X1-F/F1
WRITE(*,100)N,X1,X
N=N+1
IF(ABS(X-X1).GT.1E-6) GOTO 10
100 FORMAT(1X,'N=',I3,3X,'X1=',F15.7,3X,'X=',F15.7)
END