Fortran Coder

查看: 1163|回复: 2

TDMA算法 一直改不对 不知道是哪里出了问题 请求指点

[复制链接]

9

帖子

2

主题

0

精华

入门

F 币
37 元
贡献
14 点
发表于 2023-3-8 18:01:08 | 显示全部楼层 |阅读模式
TDMA        
    c(1)=c(1)/b(1)
    x(1)=x(1)/b(1)
  !!max=3
    do i=2,max
        middle=1.0d0/b(i)-c(i-1)*a(i)
        c(i)=c(i)*middle
        x(i)=(x(i)-x(i-1)*a(i))*middle
    end do

    do i=max-1, 1,-1
        x(i)=x(i)-c(i)*x(i+1)
    end do   

     open(unit=10,file='result.txt')
        do i=1,max
            write(10,*) x(i)
        end do   

9

帖子

2

主题

0

精华

入门

F 币
37 元
贡献
14 点
 楼主| 发表于 2023-3-8 18:12:13 | 显示全部楼层
发现少了个括号  但是想请问一下这个算法应该怎么验证

9

帖子

2

主题

0

精华

入门

F 币
37 元
贡献
14 点
 楼主| 发表于 2023-3-8 18:16:47 | 显示全部楼层
加了个括号还是不对 唉
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-6-24 04:14

Powered by Tencent X3.4

© 2013-2024 Tencent

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