Budownictwo 2006 Wydział Inżynierii Lądowej Politechniki Krakowskiej

algebroman

jak w temacie, jakby ktoś miał działający program to byłbym wdzięczny jakby zapodał :]

R2Rek

A=[2,-4,10;-2,8,-2;1,1,9];
B=[4;12;12];
n=3;
for i=1:n
s=A(i,i);
for j=1:n
A(i,j)=A(i,j)/s;
end
B(i)=B(i)/s;
for k=i:n
if k~=i
s=A(k,i);
for j=1:n
A(k,j)=A(k,j)-A(i,j)*s;
end
B(k)=B(k)-B(i)*s;
end
end
end
disp(B);

algebroman

dzięki, ale już moja prośba nie jest aktualna, przyda sie może dla innych:)