Fortran Coder

查看: 1240|回复: 2

[求助] 朋友们,用牛顿法解方程x³=8的错误怎么解决

[复制链接]

17

帖子

11

主题

0

精华

入门

F 币
79 元
贡献
45 点
发表于 2024-5-13 14:11:22 | 显示全部楼层 |阅读模式
本帖最后由 kyra 于 2024-5-16 10:28 编辑

    朋友们,我想解方程x³=8的方程,用牛顿法,结果x=4.5,是哪里的步骤有错误呢   
     
[Fortran] 纯文本查看 复制代码
program main
       X=1.
       K=0
100    K=K+1
       FX=X*X*X-8
C 这儿输入公式      
       DFX=2*X*X
       CALL NEWTON (X,FX,DFX,TOL)
       IF (TOL.LT.1.E-4) GOTO 200
       GOTO 100
200    WRITE(*,*)X
       STOP
      END program main

      SUBROUTINE NEWTON(X,FX,DFX,TOL)
      DX=-FX/DFX
      TOLER=ABS(DX)
      X=X+DX
      RETURN
      END



837

帖子

2

主题

0

精华

大宗师

F 币
3934 元
贡献
2338 点
发表于 2024-5-13 17:50:22 | 显示全部楼层
两处错误。
1.png
回复

使用道具 举报

17

帖子

11

主题

0

精华

入门

F 币
79 元
贡献
45 点
 楼主| 发表于 2024-5-15 14:48:48 | 显示全部楼层

谢谢回复,我刚上论坛,请问这两处针对这个方程该怎么解决呢
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2025-3-17 00:34

Powered by Tencent X3.4

© 2013-2025 Tencent

快速回复 返回顶部 返回列表