jacobi법으로 온도계산을 하는데요
11*11의 매트릭스로 출력을 해야하는데
write(*,*) a로 하면 행렬이 아니라 그냥 칸맞춰서 첫번째줄에는 결과값14개 둘째줄에는 결과값8개 이런식으로 제멋대로 나와버리네요 고수님들 도와주세요
program Jacobi
implicit none
real a(0:10,0:10),b(0:10,0:10),i,j,n,k
write(*,*) 'Enter the Iteration'
read(*,*) n
k=1
do i = 0,10
do j = 0,10
a(i,j)=1
enddo
enddo
do i = 0,10
a(0,i) = 10
a(10,i) = 10
a(i,0) = 10
a(i,10) = 10
enddo
do while(k.le.n)
do i = 1,9
do j = 1,9
b(i,j)=(a(i-1,j)+a(i+1,j)+a(i,j-1)+a(i,j+1))/4
enddo
enddo
do i = 1,9
do j = 1,9
a(i,j) = b(i,j)
enddo
enddo
k=k+1
enddo
write(*,*) a
stop
end
11*11의 매트릭스로 출력을 해야하는데
write(*,*) a로 하면 행렬이 아니라 그냥 칸맞춰서 첫번째줄에는 결과값14개 둘째줄에는 결과값8개 이런식으로 제멋대로 나와버리네요 고수님들 도와주세요
program Jacobi
implicit none
real a(0:10,0:10),b(0:10,0:10),i,j,n,k
write(*,*) 'Enter the Iteration'
read(*,*) n
k=1
do i = 0,10
do j = 0,10
a(i,j)=1
enddo
enddo
do i = 0,10
a(0,i) = 10
a(10,i) = 10
a(i,0) = 10
a(i,10) = 10
enddo
do while(k.le.n)
do i = 1,9
do j = 1,9
b(i,j)=(a(i-1,j)+a(i+1,j)+a(i,j-1)+a(i,j+1))/4
enddo
enddo
do i = 1,9
do j = 1,9
a(i,j) = b(i,j)
enddo
enddo
k=k+1
enddo
write(*,*) a
stop
end
다음검색
댓글
댓글 리스트-
작성자정주호 작성시간 05.11.29 DO I = 1, 11 WRITE(*,*) A(I,1:11) END DO 이렇게 하면 원하시는 모양은 나오지만, 가능하면 ARRAY에 관한 교제를 읽어보면 쫌더 자유롭게 다룰 수 있겠죠->교제 참고하시길.
-
작성자앗띠 작성자 본인 여부 작성자 작성시간 05.11.30 애러뜨는걸요 -_-;; 제대로 가르쳐주세요 ㅜㅜ 흑 급합니다
-
작성자Gentle Rain 작성시간 05.12.01 정 급하시다면... do i = 1,11 write(*,*) a(i),a(i+1)........a(i+10) enddo 라는 아주 무식한 방법을 써보세요...^^; 가로로 출력되게 하는 명령어라...그런 것도 알아두면 좋겠네요 ㅋ 위에 명령어처럼 하면 되는건가요?