관망해석

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) 91 FORMAT(I5,3F10.4,2I5) 1 CONTINUE DO 2 I=1,N 2 AK(I)=10.666xxx79*AL(I)/C**1.851851852/D(I)**4.870377037 WRITE(7,9…
…