- 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;
может быть это?
конечно, нашелся сразу умник, виложивший его сюда с криками "говно-говно". хотя что это я сам ору? что такое транслитная "ObrMatritsa"? а "ObratnayaMatritsa" не лучше? неа, InvertibleMatrix или как там в инглише принято куда лучше
//======================================== =================
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 строк.
3 курс, специальность программное обеспечение
если det равно 0 то наебнуться;
вот в германии немцы возраста TAX только пришли на первый курс (ибо в школе учатся 12, а не 10 лет)
школьная лаба ищо какая
Вот таких дубов учат подоконники в российских вузах.
> exit;
А это зачем?
tru:=false;
Application.Terminate;
//Мне вот на этом месте представляется такой несчастный, забитый жизнью программист, который обиделся на весь мир, отвернулся от монитора, скрестил руки на груди и презрительно фыркнул...