검색어 입력폼

한양대 기계공학실험 진동(장건희 박준홍 교수님) 20번

저작시기 2008.01 |등록일 2009.06.18 한글파일한컴오피스 (hwp) | 1페이지 | 가격 2,500원

소개글

한양대학교 기계공학실험 진동 부분 레포트 입니다

20개 정도 있는데 따로따로 올렸습니다

목차

없음

본문내용

PARAMETER(N=56)
REAL A(N,N),B(N),X(N),EA(N),DELX(N)
OPEN(5,FILE=`HEAT.DAT`)
read (5,*) ((A(i,j),j=1,N),i=1,N)
read (5,*) (B(i),i=1,N)
W=1.0
OPEN(6,FILE=`HEAT1.OUT`)
WRITE(6,*) ` NODE EA`
CALL SUR(A,B,N,X,EA,W,DELX)
DO I=1,56
WRITE(6,*) X(I)
ENDDO
STOP
END


SUBROUTINE SUR(A,B,N,X,EA,W,DELX)
REAL SUM,ES,A(N,N),B(N),X(N),EA(N),DELX(N)
INTEGER R,K,NFAIL,E
DO I=1,N
X(I)=0.0
ENDDO
DO K=1,40
R=k
DO I=1,N
SUM=0.0
DO J=1,N
SUM=SUM+A(I,J)*X(J)
ENDDO
DELX(I)=W*(B(I)-SUM)/A(I,I)
X(I)=X(I)+DELX(I)

참고 자료

없음
다운로드 맨위로