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

Lorentz JÄNTSCHI (principal investigator) & Sorana D. BOLBOACĂ (co-investigator)
end;
if(j>0)then
if(l-pm[i]^[j-1]+u+pm[i]^[k]pm[i]^[j-1]) then begin
l:=l-pm[i]^[j-1];
u:=u+pm[i]^[k];
j:=j-1;
k:=k-1;
end;
end;
err[i]:=l+u;
cil[i]:=j;
ciu[i]:=k;
end;
for i:=m downto mm+1 do begin
cil[i]:=m-ciu[m-i];
ciu[i]:=m-cil[m-i];
err[i]:=err[m-i];
end;
ciu[0]:=ciu[1];
cil[m]:=cil[m-1];
end;
În Figura 1 (de la 1.a la 1.i) sunt reprezentate valorile intervalelor de încredere pentru
variabila binomială X aşa cum rezultă din formulele de calcul folosind şi algoritmii descrişi,
exemplificaţi pentru m = 10 şi α = 5%.
10
9
8
7
6
5
4
3
2
1
0
0 1 2 3 4 5 6 7 8 9 10
Figura 1.a Intervalul de încredere Wald
52(157)
Wald_C
Wald_N