검색어 입력폼

수치해석 5장 레포트

저작시기 2013.02 |등록일 2013.04.26 한글파일한글 (hwp) | 11페이지 | 가격 500원

목차

없음

본문내용

PROGRAM HW5of1

IMPLICIT NONE

REAL::x0, x1, x2, x3, a0, a1, a2, a3,z,r,s,t,m,p
REAL, DIMENSION(4,4)::A
REAL, DIMENSION(3,3)::D
REAL, DIMENSION(2,2)::E
REAL, DIMENSION(1,4)::Y
REAL, DIMENSION(1,3)::B !! x0,x1,x2,x3 는 계산을 위해 실수로 지정
REAL, DIMENSION(1,2)::C !! a1,a2,a3는 식의 종류
INTEGER::i,j !! 계산식을 전개하기위한 행렬들과 필요한 변수들을 선언

x0=1.2
x1=2.1
x2=3.0
x3=3.6 !!주어진 초기 x값을 대입

<중 략>

!!a=0 Largrange를 구하는 과정은 주석처리를 하였습니다.
!!l0 = ((a-x(2))*(a-x(3)))/((x(1)-x(2))*(x(1)-x(3)))
!!l1 = ((a-x(1))*(a-x(3)))/((x(2)-x(1))*(x(2)-x(3)))
!!l2 = ((a-x(1))*(a-x(2)))/((x(3)-x(1))*(x(3)-x(2)))
!!pl = y(1)*l0+y(2)*l1+y(3)*l2

m=1 !!f1, f2를 계산합니다.
do while(m<=2)
f1(m)= (y(m+1)-y(m))/(x(m+1)-x(m))
m=m+1
end do
m=1
do while(m<=1)
f2(m)= (f1(m+1)-f1(m))/(x(m+2)-x(m))
m=m+1
end do

참고 자료

없음
다운로드 맨위로