[Fortran]입실론과 포트란 허용 최대최소값 찾기

소개글

[Fortran]입실론과 포트란 허용 최대최소값 찾기에 대한 보고서 자료입니다.

목차

- 알고리즘

- 설명

- 결과

본문내용

알고리즘
입실론 찾기
DOUBLE PRECISION E !or REAL
E=1
50 IF(1+E.EQ.1) THEN
WRITE(*,*) EX
STOP
ELSE
EX=E
E=EX*0.1
GOTO 50
END IF
END
포트란 허용 최소값, 최대값 찾기
REAL E !or DOUBLE PRECISION
E=3.40 !or 1.14 and so on
50 READ(*,*) A
IF(A.EQ.1) THEN
E=E*10 !Change 10 to 0.1 in the MIN value
WRITE(*,*) E
GOTO 50
ELSE IF(A.EQ.11) THEN
E=E*1E10 !Change 1E10 to 1E-10 in the MIN value
WRITE(*,*) E
GOTO 50
ELSE IF(A.EQ.111) THEN
E=E*1E30 !Change 1E30 to 1E-30 in the MIN value
WRITE(*,*) E
GOTO 50
ELSE
END IF
STOP
END
설명
입실론 찾기
입실론을 의미 하는 E를 계속적으로 0.1곱하는 시행을 반복하여 1+E가 1과 같게 되어지는 E 값을 찾는 시행을 했습니다. 입실론이란 1+E가 1이 되지 않는 최소값이므로 같게 되어지기 전에 EX 값이 진정한 입실론이 됩니다.
포트란 허용 최소값, 최대값 찾기
1을 입력할 경우 3.40을 뜻하는 E 라는 변수에 10(최소값이면은 0.1)을 곱합니다. 이런 시행을 반복하여 포트란이 인식하지 못하는 값이 나올 때를 찾았습니다.
여기에서 DOUBLE PRECISION을 할 경우 인식할 수 있는 범위가 너무나 많기 때문에
2와 3을 입력할 시 각각
{ 10}^{10 }( { 10}^{-10 }), { 10}^{30 }( { 10}^{-30 })
이 곱해지도록 하여 범위를 찾았습니다.
결과
입실론(REAL)
입실론(DOUBLE PRECISION)
최대값(DOUBLE PRECISION)
최대값(REAL)
최소값(DOUBLE PRECISION)
최소값(REAL)

키워드

포트란,   알고리즘,   프로그래밍,   화학공학,   프로젝트,   입실론