% Created by colent 12/7
% Copyright (C) 2007-2008 XMU 數值分析 Experiment. All rights reserved.\nAuthors: 廖綺綺(ID:04120049).
% Thanks 鞠穎老師
% Gauss-Seidel迭代法

function[] = gauss_Seidel()
% data input
%B = [10 -1 -2;-1 10 -2;-1 -1 5]
%b = [72 83 42]'

B = importdata('data_B.txt')
b = importdata('data_bb.txt')

pause;  
dim = max(size(B));   % 矩陣A的行、列數的最大值
x = zeros(dim ,1);     % 生成dim維全0矩陣
maxCount = 6;              % 最大容許迭代次數
for j = 2:maxCount
    x(1) = (b(1)-B(1 , 2:dim)*x(2 : dim))/B(1,1);
    for i = 2:dim-1
        x(i) = (b(i)-B(i,1:i-1)*x(1:i-1) - B(i , i+1:dim)*x(i+1 : dim))/B(i , i);
    end
        x(dim) = (b(dim)-B(dim , 1:dim-1)*x(1 : dim-1))/B(dim,dim);
    count = j-1
    x = x
    pause;
end