수치해석 포트란 프로그램 이분법, 가위치법, 뉴튼랩슨법, 할선법

소개글

포트란90 프로그램 한글에 옯겨 놨습니다.

목차

1. 이분법
이분법2
이분법3

2. 가위치법
이분법+가위치법

3. 뉴튼랩슨법

4. 할선법

본문내용

◉수치해석 FORTRAN PROGRAM - 이분법+가위치법
*FALSE POSITION METHOD
F(X)=667.38/X * (1-EXP(-0.146843 * X)) - 40
READ(*,*) XL, XU, ES, N
ITER=0
DO
ITER = ITER + 1
FXL=F(XL)
FXU=F(XU)
XROLD = XR

IF(N.EQ.1) THEN
***********************
** BISECTION METHOD **
***********************
XR= (XU+XL)/2
ELSE
****************************
** FALSE POSITION METHOD **
****************************
XR=XU - ( (XL - XU) * FXU /(FXL-FXU))
FXR=F(XR)
ENDIF

IF (XR. NE. O) THEN
EA = ABS((XR - XROLD ) / XR ) * 100
ENDIF
TEST = FXR*FXU
IF (TEST.LT.0) THEN
XL = XR
ELSE IF (TEST.GT.0) THEN
XU = XR
ENDIF
WRITE(*,*) XROLD, XR, EA
IF (EA. LT. ES) GOTO 1000
IF (ITER.GT.N) GOTO 1000
ENDDO
1000 STOP
END

참고 자료

없음