Distribuţia Binomială: Modelare Statistică, Optimizare Numerică, cu ...

Lorentz JÄNTSCHI (principal investigator) & Sorana D. BOLBOACĂ (co-investigator)
end;
procedure afis_prob(var bino : mat_prob; n , p1 , p2 : integer; var
f:text);
var
i,j : integer;
begin
for i := 0 to n do begin
for j := 0 to n do begin
write(f,bino[i][j]:p1:p2);
write(f,chr(9));
end;
writeln(f);
end;
end;
procedure afis_va(var list : t_v; n , m , p : integer; var f:text);
var
i,j : integer;
begin
for i := 0 to n-1 do begin
for j := 0 to m-1 do begin
write(f,list[i][j]:p);
write(f,chr(9));
end;
writeln(f);
end;
end;
function va_st(var er:lin_prob; n:integer):tip_prob;
var
ret : tip_prob;
i : integer;
begin
ret := 0;
for i:= 0 to n div 2 do
ret := ret + sqr(100*a-er[i]);
ret := 2.0 * ret;
if(n mod 2 = 0)then
ret := ret - sqr(100*a-er[n div 2]);
va_st := ret;
end;
function va_va(var er:lin_prob; n:integer):tip_prob;
var
ret : tip_prob;
i : integer;
begin
ret := 0;
for i:= 0 to n div 2 do
ret := ret + variance2(100*a-er[i]);
ret := 2.0 * ret;
if(n mod 2 = 0)then
ret := ret - variance2(100*a-er[n div 2]);
va_va := ret;
end;
procedure ta_va(var t:t_v);
var
i,j : integer;
v_s : v_v;
begin
for i := 0 to 6 do v_s[i] := 0;
48(157)