1. 프로그램 Source
FILENAME = NETWORK.FOR
C 이 프로그램은 수리학책 110,111쪽에 있는 표 4-6. 관망해석 프로그램과
C 114쪽에 있는 데이터를 Source로 이용하여 작성하였습니다. 책에나온 Source
C 로는 데이터 입력시 에러가 발생하므로 약간의 수정을 하였습니다. 또한
C 인쇄된 Source와 결과는 워드 프로세서를 이용하여 작성했기 때문에 아래의
C 프로그램과 인쇄할때의 프로그램은 약간의 차이가 있으나 외형적인 차이이므로
C 인쇄할때의 프로그램은 프린트하지 않았습니다.
PROGRAM NETWORK
DIMENSION AK(400),AL(400),D(400),DEL(400),F(400),HL(400),ND(400),
* NP(400),NS(400),Q(400),SD(400),SN(400),V(400)
C 프로그램을 만든후 실행을 할때, 데이타를 일일이 입력하려면 번거롭고
C 오타가 발생할수 있으므로, 자료를 입력하기 위한 데이터를 NTWRK.DAT에
C 저장해놓고 실행할때 읽어드린후에, 출력할때는 자료를 입력한 데이터와
C 결과를 각각 INPUT.DAT화일과 RESULT.DAT화일에 생성되게 하였다.
OPEN (UNIT=6,FILE='NTWRK.DAT',STATUS='OLD')
OPEN (UNIT=7,FILE='INPUT.DAT',STATUS='NEW')
OPEN (UNIT=8,FILE='RESULT.DAT',STATUS='NEW')
READ(6,90) N,KK,ACCFS,C
90 FORMAT(2I5,2F10.4)
DO 1 I=1,N
READ(6,91) ND(I),AL(I),D(I),Q(I),NP(I),NS(I)
.... |
2011.03.11
3페이지
