Facebook
From Nieznany , 6 Years ago, written in Matlab M-file.
Embed
Download Paste or View Raw
Hits: 286
  1. function k=gaussjordan(A,B,m,n);
  2. for i=1:n
  3.       s=A(i,i);
  4.        for j=1:n
  5.             A(i,j)=A(i,j)/s
  6.         end
  7.        B(i)=B(i)/s;
  8.         for k=1:m
  9.             if k~=i
  10.                  s=A(k,i);
  11.                  for j=1:n
  12.                      A(k,j)=A(k,j)-A(i,j)*s;
  13.                  end
  14.                  B(k)=B(k)-B(i)*s;
  15.              end
  16.          end
  17.      end