수치해석 5장 레포트
- 최초 등록일
- 2013.04.26
- 최종 저작일
- 2013.02
- 11페이지/
한컴오피스
- 가격 1,000원
![할인쿠폰받기](/images/v4/document/ico_det_coupon.gif)
목차
없음
본문내용
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
참고 자료
없음