Re: [問題] TDMA
我回應在板上一次好了QQ 有人寄信來跟我要
= = = = = =
| a b | | x | | d |
| a b c | | x | | d |
| a b c | x | x | = | d |
| . . . | | x | | d |
| . . . | | x | | d |
| b c | | x | | d |
= = = = = =
subroutine TDMA(a,b,c,d,x,n)
real :: a(19),b(19),c(19),d(19),x(19)
integer::N, I
c(2)=c(2)/b(2)
d(2)=d(2)/b(2)
do i=3,N
c(i)=c(i)/(b(i)-a(i)*c(i-1))
d(i)=(d(i)-a(i)*d(i-1))/(b(i)-a(i)*c(i-1))
end do
x(N)=d(N)
do i=N-1,2,-1
x(i)=d(i)-x(i+1)*c(i)
end do
return
end subroutine
這樣應該看的懂吧 囧 不是很會畫圖..
※ 引述《libra1005 (PTT鄉民)》之銘言：
: 請問一下，現在我正在修計算流體力學這門課，有用到TDMA這東西
: 想請問一下這要如何寫出來??
: 我目前對他所認識只是知道他是三帶寬矩陣而已，卻不知如何寫成
: 程式碼？請板上高手解惑
: 感激不盡~~
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.113.134.115
※ 編輯: cl36260 來自: 140.113.134.115 (01/18 19:14)
推
02/03 16:06, , 1F
02/03 16:06, 1F
討論串 (同標題文章)
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
