матлаб,покоординатный спуск

[Ам тя]

function [X] = Spusk(A, B)

% Находит решение СЛАУ по методу покоординатного спуска
[n,n] = size(A);
invA = eye(n);
A = [A,invA];
k=0;
for i=1:n
for j=1:n
C(i,j)=-A(i,j)/A(i,i);
d(i)=B(i)/a(i,i);
x(i)=c(i-1,j)*x(j)+c(i,i+1)*x(j)+d(i)
end;
end;

http://dic.academic.ru/dic.nsf/ruwiki/408798 сыль на метод
помогите функцию написать
ну или книжку с примерами.. киньте...не понятно просто