[問題] 關於讀檔
請問版上的各位
在程式一開始的時候程式會讀入圓球座標
之後便把這些座標代入迴圈做運算
每一個迴圈結束前會輸出新的座標值
如果想以每一個迴圈跑出來的座標代替上一步的值
我該如何處理?
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
推
12/27 22:45, , 1F
12/27 22:45, 1F
推
12/29 23:04, , 2F
12/29 23:04, 2F
→
12/29 23:08, , 3F
12/29 23:08, 3F
→
12/29 23:08, , 4F
12/29 23:08, 4F
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
