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

纯小白

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   

纯小白

发现少了个括号  但是想请问一下这个算法应该怎么验证

纯小白

加了个括号还是不对 唉