用牛顿切线法解决一个问题(方程)用fortran语言编写程序
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/05/02 08:41:35
用牛顿切线法解决一个问题(方程)用fortran语言编写程序
求高人能帮我编写一份啊.
还有 用撕裂线法解决一个问题(方程组)
求高人能帮我编写一份啊.
还有 用撕裂线法解决一个问题(方程组)
EXTERNAL FS
X0=1.5
EPS=1.0E-06
CALL DNEWT(X0,EPS,FS,L)
IF (L.NE.0) THEN
WRITE(*,10) X0
END IF
10FORMAT(1X,'X=',E15.6)
END
SUBROUTINE FS(X,F,DY)
F=X*X*(X-1.0)-1.0
DY=3.0*X*X-2.0*X
RETURN
END
SUBROUTINE DNEWT(X,EPS,FS,L)
L=60
CALL FS(X,F,DY)
10IF (ABS(DY)+1.0.EQ.1.0) THEN
L=0
WRITE(*,20)
RETURN
END IF
20FORMAT(1X,' ERR')
X1=X-F/DY
CALL FS(X1,F,DY)
IF ((ABS(X1-X).GE.EPS).OR.(ABS(F).GE.EPS)) THEN
L=L-1
X=X1
IF (L.EQ.0) RETURN
GOTO 10
END IF
X=X1
RETURN
END
----------------------------------------------------------------------------------------------------------------------------------牛顿法---------哥负责的帮你调试好了.题中有个例子直接可以解答!没有一点问题.不过最好用Fortran77..90的没事实验.有什么问题可以问.请采纳哦这么多时间哥的
X0=1.5
EPS=1.0E-06
CALL DNEWT(X0,EPS,FS,L)
IF (L.NE.0) THEN
WRITE(*,10) X0
END IF
10FORMAT(1X,'X=',E15.6)
END
SUBROUTINE FS(X,F,DY)
F=X*X*(X-1.0)-1.0
DY=3.0*X*X-2.0*X
RETURN
END
SUBROUTINE DNEWT(X,EPS,FS,L)
L=60
CALL FS(X,F,DY)
10IF (ABS(DY)+1.0.EQ.1.0) THEN
L=0
WRITE(*,20)
RETURN
END IF
20FORMAT(1X,' ERR')
X1=X-F/DY
CALL FS(X1,F,DY)
IF ((ABS(X1-X).GE.EPS).OR.(ABS(F).GE.EPS)) THEN
L=L-1
X=X1
IF (L.EQ.0) RETURN
GOTO 10
END IF
X=X1
RETURN
END
----------------------------------------------------------------------------------------------------------------------------------牛顿法---------哥负责的帮你调试好了.题中有个例子直接可以解答!没有一点问题.不过最好用Fortran77..90的没事实验.有什么问题可以问.请采纳哦这么多时间哥的
用牛顿切线法解决一个问题(方程)用fortran语言编写程序
编写程序,用牛顿切线法求方程f(x)=x
编写牛顿均差插值多项式的程序用fortran语言
求教 fortran 高手! 怎么用fortran语言编写程序 用来构建一个三维网格
第 四 题:C语言编程题(总题数:2 总分数:40) 1:编写程序,用牛顿切线法求方程f(x)=2x+cosx-2.6
请用fortran语言帮忙编写一下程序
穷举法 C语言编写一个程序解决一道题
用Fortran语言编写两个4*4矩阵乘的程序
用VB牛顿切线编写程序,用牛顿切线法求方程f(x)=x+lnx-1.7=0的近似实根r迭代初值自选,精确带0.0001.
fortran程序 第一次接触fortran语言,试着编写了一个简单的程序:program tsimplicit non
编写程序,用牛顿切线法求方程f(x)= x^2-x-8=0(其中^表示 幂运算)在区间[3,4]上的近似实根r,迭代初
VB编写程序,用牛顿切线法求方程f(x)= x^2-x-8=0(其中^表示 幂运算)在区间[3,4]上的近似实根r,迭代