- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
begin
tru:=false;
if tru=false then
begin
ObrMatritsa(Sigm,Sigm_transp);
tru:=true;
det:=abs(Determinant(Sigm));
if det=0 then
begin
ShowMessage('Determinant = 0');
tru:=false;
Application.Terminate;
exit;
end;
//if det=0 then begin result:=0 ; exit end;
sum:=1/sqrt(power(2*pi,kol_prizn)*det* exp(Mas));
if sum=0 then result:=0 ;
end else exit;
end;
nolka4 30.12.2009 06:25 # +1
guest 30.12.2009 10:18 # +3
может быть это?
nolka4 30.12.2009 10:40 # 0
zitzy 30.12.2009 11:16 # 0
nolka4 30.12.2009 11:27 # 0
zitzy 30.12.2009 12:39 # 0
guest 01.01.2010 01:55 # 0
конечно, нашелся сразу умник, виложивший его сюда с криками "говно-говно". хотя что это я сам ору? что такое транслитная "ObrMatritsa"? а "ObratnayaMatritsa" не лучше? неа, InvertibleMatrix или как там в инглише принято куда лучше
zitzy 01.01.2010 12:14 # 0
guest 01.01.2010 13:52 # 0
zitzy 01.01.2010 14:07 # 0
guest 01.01.2010 18:46 # 0
comfly 30.12.2009 14:59 # 0
zitzy 30.12.2009 16:35 # 0
TAX 30.12.2009 17:04 # 0
//======================================== =================
type
err = array of array of Real;
er = array of Real;
var
matr:er; tru:boolean; razn_X,Mas_rez,Mas_rez_transp:er; j,ty:integer;
sum,slog,Mas,det:real;Matr_razn,Matr_raz n_obrat,Sigm_transp:err;
function fff(Mat_X:err;mas_Ml:err;Sigm:err;Mas_kl ast:er;l:integer;i:integer):real;
begin
tru:=false;
if tru=false then
begin
ObrMatritsa(Sigm,Sigm_transp);
tru:=true;
det:=abs(Determinant(Sigm));
if det=0 then
begin
ShowMessage('Determinant = 0');
tru:=false;
Application.Terminate;
exit;
end;
//if det=0 then begin result:=0 ; exit end;
sum:=1/sqrt(power(2*pi,kol_prizn)*det* exp(Mas));
if sum=0 then result:=0 ;
end else exit;
end;
//======================================== =================
PS. Отступы я добавил для читабельности, в оригинале все было в 8 строк.
TarasB 30.12.2009 19:09 # +1
guest 30.12.2009 21:44 # +1
guest 01.01.2010 01:56 # 0
TAX 31.12.2009 10:06 # 0
3 курс, специальность программное обеспечение
TarasB 01.01.2010 12:57 # 0
bugmenot 01.06.2010 22:04 # +1
если det равно 0 то наебнуться;
guest 01.06.2010 22:28 # 0
вот в германии немцы возраста TAX только пришли на первый курс (ибо в школе учатся 12, а не 10 лет)
школьная лаба ищо какая
guest 31.12.2009 15:43 # 0
Вот таких дубов учат подоконники в российских вузах.
guest 01.01.2010 18:09 # 0
> exit;
А это зачем?
TAX 01.01.2010 19:02 # 0
StriderMan 06.01.2010 01:51 # 0
guest 04.02.2010 20:43 # 0
tru:=false;
Application.Terminate;
//Мне вот на этом месте представляется такой несчастный, забитый жизнью программист, который обиделся на весь мир, отвернулся от монитора, скрестил руки на груди и презрительно фыркнул...