The D’Alembert roulette system is a simple progression system. After each win, you subtract a unit and after a loss, you add a unit. You can start at one unit or sometimes 5 to 10 times the minimum. In our example, we will start at 5 units.
Bet Number | Units bet | Result | Running Total |
---|---|---|---|
1 | 5 | loss | -5 |
2 | 6 | win | +1 |
3 | 5 | loss | -4 |
4 | 6 | win | +2 |
5 | 5 | win | +7 |
6 | 4 | lose | +3 |
The D’Alembert, like most betting systems, uses the even money bets (red/ black/ odd/ even/ high/ low) to cut down on variance. In the example above, there are 3 wins and 3 losses. When the wins and losses are even, the gains are just the number of wins. Due to the 0 in roulette, you can expect to win 18 times and lose 19 times out of 37 spins.
Basically, as with most progressive systems, they work in the short term. A long streak will bankrupt you though. Its no where near as aggressive as the
Code for roulette Xtreme, it's in the built-in system files too.
system "D'Alembert_System"
{D'Alembert System
is one of the oldest money management plans there are, for "even chances"
betting, all having in common that you add and subtract a fixed
amount to your bet, after a loss or win.
}
method "main"
begin
While Starting a New Session
begin
Clear All Records;
Clear Record "Initial Bet" data;
Clear Record "Current Layout to Bet" data;
Put 5 on Record "Initial Bet" data;
Call "Setup Layout";
call "Make Bets";
Exit;
end
While Record "Current Layout to Bet" layout has lost each time
begin
Add 1 on Record "Initial Bet" data;
end
While Record "Current Layout to Bet" layout has won each time
begin
Subtract 1 on Record "Initial Bet" data;
end
While Record "Initial Bet" data = 0
begin
Put 1 on Record "Initial Bet" data;
end
call "Make Bets";
end
method "Make Bets"
begin
Put 100 % of Record "Initial Bet" data on Record "Current Layout to Bet" layout;
end
method "Setup Layout"
begin
Input Dropdown "Make a Layout Selection
1:=Even
2:=Odd
3:=Red
4:=Black
5:=High (19-36)
6:=Low (0-18)" to Record "Layout Selection" data;
While Record "Layout Selection" data = 1
begin
Copy Even to the Record "Current Layout to Bet" layout;
end
Else
begin
While Record "Layout Selection" data = 2
begin
Copy Odd to the Record "Current Layout to Bet" layout;
end
Else
begin
While Record "Layout Selection" data = 3
begin
Copy Red to the Record "Current Layout to Bet" layout;
end
Else
begin
While Record "Layout Selection" data = 4
begin
Copy Black to the Record "Current Layout to Bet" layout;
end
Else
begin
While Record "Layout Selection" data = 5
begin
Copy high to the Record "Current Layout to Bet" layout;
end
Else
begin
While Record "Layout Selection" data = 6
begin
Copy low to the Record "Current Layout to Bet" layout;
end
end
end
end
end
end
end