선형대수 방정식 수치해법으로 풀이

소개글

이완법을 사용한 Gauss-Seidel법의 가상코드를 이용하여 봉의 각 질점에서의 온도를 수치해적으로 구한다.

목차

1.문제의 정의

2.프로그램의 목적

3.프로그램 구성
-알고리즘 해석

4.결과 및 고찰

본문내용

이완법을 사용한 Gauss-Seidel법의 가상코드를 이용하여 봉의 각 질점에서의 온도를 수치해적으로 구한다.
Private Sub CommandButton1_Click() ---------------user form을 제작
Dim a(1 To 5, 1 To 5), b(1 To 5), x(1 To 5), n As Double ---행렬변수 설정
Open "C:Documents and SettingsAdministratorMy Documentsread.txt" For Input As #3 -------------------------------read.txt파일 열기
Open "C:Documents and SettingsAdministratorMy Documentsoutput.txt" For Output As #4 ------------------------------output.txt파일 열기
n = Format(Val(TextBox1.Text)) ----------------행렬수(n)을 입력
lamda = Format(Val(TextBox2.Text)) ----------------가중치()값 입력
es = 0.03 --------------------------------------기준상대오차0.03%
imax = 1000 ------------------------------------최대계산반복수1000번

For i = 1 To n ---------------------------------read.txt의 값을 읽어오기
Input #3, a(i, 1), a(i, 2), a(i, 3), a(i, 4), b(i)

참고 자료

없음