作者WEGA64 (无尾熊)
看板Fortran
标题[问题] 关於读档
时间Sat Dec 27 22:32:30 2008
请问版上的各位
在程式一开始的时候程式会读入圆球座标
之後便把这些座标代入回圈做运算
每一个回圈结束前会输出新的座标值
如果想以每一个回圈跑出来的座标代替上一步的值
我该如何处理?
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
1F：推 agody:看起来要把问题清楚的描述出来其实不容易 12/27 22:45
2F：推 charlesdc:没有看到b_nowloc的运算过程? 还有是要怎样取代? 12/29 23:04
3F：→ charlesdc:你把b_nowloc直接写入矩阵ballpos看看 write(ballpos,*) 12/29 23:08
4F：→ charlesdc:写入变数矩阵的写法在查一下，忘了格式@@ 12/29 23:08