推 agody:看起來要把問題清楚的描述出來其實不容易 12/27 22:45
推 charlesdc:沒有看到b_nowloc的運算過程? 還有是要怎樣取代? 12/29 23:04
→ charlesdc:你把b_nowloc直接寫入矩陣ballpos看看 write(ballpos,*) 12/29 23:08
→ charlesdc:寫入變數矩陣的寫法在查一下，忘了格式@@ 12/29 23:08
請問版上的各位
在程式一開始的時候程式會讀入圓球座標
之後便把這些座標代入迴圈做運算
每一個迴圈結束前會輸出新的座標值
如果想以每一個迴圈跑出來的座標代替上一步的值
我該如何處理?
open(100,file'=QQ.txt')
do i=1,totalball
read(100,*)ballpos(i,1),ballpos(i,2),ballpos(i,3)
end do
do nt=1,totalstep
minbpx=ballpos(1,1)
minbpy=ballpos(2,1)
minbpy=ballpos(3,1)
maxbpx=ballpos(1,1)
maxbpy=ballpos(2,1)
maxbpz=ballpos(1,3)
if(totalball >= 2)then
do bn1=2,TotalBalls
minbpx=min(minbpx,ballpos(bn1,1))
minbpy=min(minbpy,ballpos(bn1,2))
minbpz=min(minbpz,ballpos(bn1,3))
maxbpx=max(maxbpx,ballpos(bn1,1))
maxbpy=max(maxbpy,ballpos(bn1,2))
maxbpz=max(maxbpz,ballpos(bn1,3))
end do
endif
..
..
..
do j=1,TotalBalls
write(60,*)b_nowloc(j,1),b_nowloc(j,2),b_nowloc(j,3)
enddo !!end output
enddo !!end step
程式節錄如上
該如何用跑出來的b_nowloc代替原本的ballpos?
麻煩了,謝謝..
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.135.120.58