۱۳۹۲/۰۸/۱۹, ۰۲:۱۱ ب.ظ
(۱۳۹۲/۰۸/۱۶, ۰۲:۱۹ ق.ظ)'4i469x' نوشته:من یه روش دیگه واسه نوشتن این تابع پیدا کردم اما تو قسمت سکریپت نوشتم حالا میخوام ببرمش تو فانکشن بنویسم که اررور میده
کد پیاچپی:
clear all
clc
A=input ('A:');
[a,b]=size (A);
if a~=b;
disp('Matrix be square.');
else
if det(A)==0;
disp('Matrix is singular.');
end
end
A_size=size(A);
N = zeros(A_size);
if A_size(1)==A_size(2) && det(A)~=0
for i=1:A_size(1)
for j=1:A_size(2)
M=A;
M(i,:)=[];
M(:,j)=[];
N(i,j)=((-1)^(i+j))*det(M);
end
end
end
adj = N'
دستور فانکشن رو لطفا قرار بدین