- •Арбитражные ситуации в букмекерских конторах
- •Оглавление
- •Глава I. Букмекерство §1.1. История возникновения букмекерских контор
- •§ 1.2. Перспективы развития букмекерских контор
- •§ 1.3. Букмекерская линия и основные виды ставок
- •§ 1.4. Маржевая прибыль. На чем зарабатывают букмекерские конторы
- •§ 1.5. Основные правила игры в букмекерской конторе
- •Глава II. Арбитражные ситуации
- •§ 2.1. Реальный пример арбитражной ситуации
- •§ 2.2. Математическое обоснование арбитражной ситуации
- •§ 2.3. Расчет вероятностей исходов и коэффициентов выплат
- •§ 2.4. Условие арбитражной ситуации
- •Глава III. Метод «критерий келли» § 3.1. Суть метода «критерий Келли»
- •§ 3.2. Описание метода «критерий Келли» и его свойства
- •§ 3.3. Пример использования свойств «критерия Келли». Обобщающая формула Келли
- •Глава IV. Программная реализация § 4.1. Пример использования программы для расчета букмекерских «вилок»
- •§ 4.2. Листинг программы для расчета букмекерских «вилок»
- •§ 4.3. Пример использования программы для расчета суммы ставки по методу «критерий Келли»
- •§ 4.4. Листинг программы для расчета суммы ставки по методу «критерий Келли»
- •Заключение
- •Список использованной литературы
§ 4.2. Листинг программы для расчета букмекерских «вилок»
Текст модуля формы
unit UnitMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;
type
TMainForm = class(TForm)
MainMenu: TMainMenu;
DoubleIssue: TMenuItem;
TrippleIssue: TMenuItem;
Label1: TLabel;
EditBank: TEdit;
Label2: TLabel;
Label3: TLabel;
LabelX: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
EditCoef1: TEdit;
EditCoefX: TEdit;
EditCoef2: TEdit;
EditBet1: TEdit;
EditBetX: TEdit;
EditBet2: TEdit;
EditProfit1: TEdit;
EditProfitX: TEdit;
EditProfit2: TEdit;
LabelCalc: TLabel;
Label4: TLabel;
LabelMargin: TLabel;
procedure TrippleIssueClick(Sender: TObject);
procedure DoubleIssueClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure LabelCalcClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
uses Math;
var
IsDoubleForks: boolean; //указывает на выбранное количество исходов в расчете
{$R *.dfm}
procedure TMainForm.TrippleIssueClick(Sender: TObject);
begin
IsDoubleForks := False;
//изменяем видимость полей
LabelX.Visible := True;
EditCoefX.Visible := True;
EditBetX.Visible := True;
EditProfitX.Visible := True;
//обнуляем поля
EditBet1.Text := '';
EditBet2.Text := '';
EditBetX.Text := '';
EditProfit1.Text := '';
EditProfit2.Text := '';
EditProfitX.Text := '';
LabelMargin.Caption := '0%';
end;
procedure TMainForm.DoubleIssueClick(Sender: TObject);
begin
IsDoubleForks := True;
//изменяем видимость полей
LabelX.Visible := False;
EditCoefX.Visible := False;
EditBetX.Visible := False;
EditProfitX.Visible := False;
//обнуляем поля
EditBet1.Text := '';
EditBet2.Text := '';
EditBetX.Text := '';
EditProfit1.Text := '';
EditProfit2.Text := '';
EditProfitX.Text := '';
LabelMargin.Caption := '0%';
end;
procedure TMainForm.FormActivate(Sender: TObject);
begin
DoubleIssueClick(nil);
//значения по умолчанию
EditBank.Text := '100';
EditCoef1.Text := '1,00';
EditCoef2.Text := '1,00';
EditCoefX.Text := '1,00';
end;
procedure TMainForm.LabelCalcClick(Sender: TObject);
var
coef1: double;
coef2: double;
coefX: double;
bank: double;
bet1: double;
bet2: double;
betX: double;
betsum: double;
profit1: double;
begin
//проверка ввода валидных данных в поля банка и коэффициентов
try
bank := StrToFloat(EditBank.Text);
except
MessageBox(Handle ,'В поле "Банк" введены неверные данные!', 'Ошибка ввода данных', MB_OK);
Exit;
end;
try
begin
coef1 := StrToFloat(EditCoef1.Text);
coef2 := StrToFloat(EditCoef2.Text);
if (not IsDoubleForks) then
coefX := StrToFloat(EditCoefX.Text);
end;
except
MessageBox(Handle ,'В поле "Коэффициент" введены неверные данные!', 'Ошибка ввода данных', MB_OK);
Exit;
end;
//рассчет для двойного исхода
if (IsDoubleForks) then
begin
bet1 := Round((bank*coef2/(coef1+coef2))*100)/100;
EditBet1.Text := FloatToStr(bet1);
bet2 := Round((bank*coef1/(coef1+coef2))*100)/100;
EditBet2.Text := FloatToStr(bet2);
betsum := bet1 + bet2;
profit1 := coef1*bet1 - betsum;
EditProfit1.Text := FloatToStr(Round((profit1)*100)/100);
EditProfit2.Text := FloatToStr(Round((coef2*bet2 - betsum)*100)/100);
LabelMargin.Caption := FloatToStr(Round((100*profit1/bank)*100)/100) + '%';
end
else //рассчет для тройного исхода
begin
bet1 := Round((bank*coef2*coefX/(coef1*coef2+coef1*coefX+coef2*coefX))*100)/100;
EditBet1.Text := FloatToStr(bet1);
bet2 := Round((bank*coef1*coefX/(coef1*coef2+coef1*coefX+coef2*coefX))*100)/100;
EditBet2.Text := FloatToStr(bet2);
betX := Round((bank*coef1*coef2/(coef1*coef2+coef1*coefX+coef2*coefX))*100)/100;
EditBetX.Text := FloatToStr(betX);
betsum := bet1 + bet2 + betX;
profit1 := coef1*bet1 - betsum;
EditProfit1.Text := FloatToStr(Round((profit1)*100)/100);
EditProfit2.Text := FloatToStr(Round((coef2*bet2 - betsum)*100)/100);
EditProfitX.Text := FloatToStr(Round((coefX*betX - betsum)*100)/100);
LabelMargin.Caption := FloatToStr(Round((100*profit1/bank)*100)/100) + '%';
end;
end;
end.