[프로그램] 수치해석 프로그램

등록일 2002.11.26 한글 (hwp) | 3페이지 | 가격 500원

목차

없음

본문내용

PROGRAM D2R3
C Driver for routine LUBKSB
PARAMETER (NP=100)
DIMENSION A(NP,NP),B(NP,NP),INDX(NP)
DIMENSION C(NP,NP),X(NP)
CHARACTER TXT*3
OPEN(5,FILE='MATRX1.DAT',STATUS='OLD')
READ(5,*)
10 READ(5,*)
READ(5,*) N,M
READ(5,*)
READ(5,*) ((A(K,L), L=1,N), K=1,N)
READ(5,*)
READ(5,*) ((B(K,L), K=1,N), L=1,M)
C Save matrix A for later testing
DO 12 L=1,N
DO 11 K=1,N
C(K,L)=A(K,L)
11 CONTINUE
12 CONTINUE
C Do LU decomposition
CALL LUDCMP(C,N,NP,INDX,P)
C Solve equations for each right-hand vector
      최근 구매한 회원 학교정보 보기
      1. 최근 2주간 다운받은 회원수와 학교정보이며
         구매한 본인의 구매정보도 함께 표시됩니다.
      2. 매시 정각마다 업데이트 됩니다. (02:00 ~ 21:00)
      3. 구매자의 학교정보가 없는 경우 기타로 표시됩니다.
      최근 본 자료더보기