Просмотреть всю тему "Каково СКО равных шансов (флэтбет)?" »»
Re: Каково СКО равных шансов (флэтбет)?   ID:19389   ответ на 19384 Чт, 15 июня 2006 13:10 [#]
Sharky Форумы CasinoGames
Так формула диспы: D(X) = M{[X - M(X)]^2}
верно?

тогда:

procedure TForm1.Button1Click(Sender: TObject);
var
A, B, C: Single;
begin
A := 1-(-0.027);
B := -1-(-0.027);
C := ((A*A*18) + (B*B*19)) / 37;
Edit1.Text := FloatToStr(C); // Диспа
Edit2.Text := FloatToStr(Sqrt(C)); // СКО
end;