[수치해석] Gauss Relaxation

목차

포트란 77
Gauss Relaxation

본문내용

real a(30,30),x(30),xold(30),b(30)
real es,eps(30),sum
integer iter,itmax
character slection

c input number of equations

write(*,*)'####### gauss_seidel_iteration #######'
write(*,*)' '
write(*,*) '방정식의 수를 넣으시오(n):'
read(*,*) n

c input coefficient of equations-a(n,n)

write(*,*)'**************************************************'
write(*,*)'A sufficent condition for convergence is diagonal
& dominant'
write(*,*)'**************************************************'
10 write(*,*)'방정식의 각각의 계수를 넣으시오!'
do i=1,n
write(*,*)'****equation:',i
read(*,*)(a(i,j),j=1,n),b(i)
end do

참고 자료

gauss_relaxation