TDMA算法 一直改不对 不知道是哪里出了问题 请求指点
TDMAc(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
发现少了个括号但是想请问一下这个算法应该怎么验证 加了个括号还是不对 唉
页:
[1]