دترمینان ماتریس n * n

[behnam.m]

سلام
من برنامه دترمینان ماتریس n * n می خوام لطفا کمکم کنید
ممنون

[haghft]

بهنام جان فرمولشو میخای یا چیز دیگه ای کجاش مشکل داری؟
ببین این لینک کمکت میکنه:
http://stackoverflow.com/questions/5051528/how-to-calculate-matrix-determinant-nn-or-just-55

[behnam.m]

بهنام جان فرمولشو میخای یا چیز دیگه ای کجاش مشکل داری؟
اگر فرمول فرمول ریاضی به من بگید فکر می کنم کفایت کنم
متشکرم از شما

[haghft]

پس از لینک های زیر میتونی به جوابت برسی:
http://fa.wikipedia.org/wiki/%D8%AF%D8%AA%D8%B1%D9%85%DB%8C%D9%86%D8%A7%D9%86
http://daneshnameh.roshd.ir/mavara/mavara-index.php?page=%D8%AF%D8%AA%D8%B1%D9%85%DB%8C%D9%8 6%D8%A7%D9%86+%D9%85%D8%A7%D8%AA%D8%B1%DB%8C%D8%B3&SSOReturnPage=Check&Rand=0

[zahmatkesh8519]

برنامه به زبان پاسکال هست ولی به سادگی می تونی به سی شارپ تبدیلش کنی
از توابع ای که توشه صرفه نظر کن ، هیچ مشکلی پیش نمی یاد .



{---------------------- mohasebeh determinan ---------------------------}
for k:=1 to n-1 do
begin
for i:=k+1 to n do
begin
u:=a[i,k]/a[k,k];
for j :=k to n+1 do
a[i,j]:=a[i,j]-u*a[k,j];
end;
end;
{------------------- mohasebehe ghotre asly -----------------------}
s:=1;
for i:=1 to n do
begin
s:=a[i,i]*s;{write('s',s);}
end;
writeln;

{------------ namaeshe matrixe nahaie-------------------}
clrscr;
text_under_menu(' §þ¤—‘õ ö‘÷þõ¤—¢ ©þ‘õ÷ ',6,0);
color(1,3,1,1,80,2,' ');
print(20,1, ' ¢þ üõ –¨¢“ ¤þ¥ §þ¤—‘õ ö¢¤› ‹ §ø‘ð ©ø¤ –‘“¨‘Ÿõ ô‘›÷ ¥ ¢ã“ ');
for i:=80 downto 20 do
print(i,2,'Í');

menu(2,4,n*5+17,n+5,4,15,' ');
kadr(2,n);
{--------------------- namayshe matiex ba drayeh heaye 0 ---------------}
for i:= 1 to n do
for j:=1 to n do
begin
gotoxy(5+5*j,4+i);
write (a[i,j]:4:0);
end;