کد پیاچپی:
function X = jordan(a,b)
[m,n]=size(a);
for j=1:m-1
for z=2:m
if a(j,j)==0
t=a(1,:);a(1,:)=a(z,:);
a(z,:)=t;
end
end
for i=j+1:m
a(i,:)=a(i,:)-a(j,:)*(a(i,j)/a(j,j));
end
end
for j=m:-1:2
for i=j-1:-1:1
a(i,:)=a(i,:)-a(j,:)*(a(i,j)/a(j,j));
end
end
for s=1:m
a(s,:)=a(s,:)/a(s,s);
x(s)=a(s,n);
end
disp('Gsuss-jordan method:')
a
x'
ادمین مشکل این تابع چی هستش ؟؟/
این دستور رو میدم که تابع حلش کنه اما اررور میده
کد پیاچپی:
X=jordan([-2 1 -1;1 2 3;3 0 1],[4;13;-1])
باید بگم که این دستورات برای حل معادلات بروش حذفی گاوس جردن هستش.