Questo sito fa uso di cookie, i cookie introducono una gamma di servizi che migliorano la tua fruizione del sito. Utilizzando il sito si ritiene accettato l'uso dei cookie secondo le nostre linee guida. Per maggiori informazioni clicca qui.

Home Risorse Roulette Xtreme Sistemi Xtreme Turbostatistics

Turbostatistics

(Turbogenius | Stormor) Giocare in base al ritardo rispetto alle uscite teoriche delle chance.

Xtreme icon TURBOSTATISTACTICS.dgt — Xtreme, 19 KB (20444 bytes)

Contenuto del file

system "TURBOSTATISTACTICS"
{
*************************************
*      System by TurboGenius        *
*       on the VIP Lounge           *
*************************************
        Rx-ed by St0rm0r

1:1 bets (red,black,even,odd,high,low) are expected to show
every 2,06 spins(37/18)
After 2,06 spins (X), thus on spin 3 (X+1),we check which 1:1 bets have not
hit so far and bet 1 unit on them.
From spin 4 (X*2) on (twice the expected number of spins) we bet 2 units.
From spin 6 (X*3) on (3 times the expected number of spins) we bet 0 units.

Do the same for dozens,columns,lines,corners,streets,splits and straight numbers:
                                                        x+1     x*2     x*3
1:1 bets(red,black,even,odd,high,low)---(37/18=2,06)     3      4       6
THE ORIGINAL:                                            3      4       5
1:2 bets(dozens,columns)----------------(37/12=3,08)     4      6       9
THE ORIGINAL:                                            5      7       9
1:5 bets(lines)-------------------------(37/6=6,17)      7      12      19
THE ORIGINAL:                                            7      12      17
1:8 bets(corners)-----------------------(37/4=9,25)     10      19      28
THE ORIGINAL:                                           10      18      26
1:11 bets(streets)----------------------(37/3=12,33)    13      25      37
THE ORIGINAL:                                           13      24      35
1:17 bets(splits)-----------------------(37/2=18,5)     20      37      56
THE ORIGINAL:                                           19      36      53
1:35 bets(numbers)----------------------(37/1=37)       38      74      111
THE ORIGINAL:                                           38      74      109
}
method "main"
begin
// section 1: do this once
while starting new session
    begin
    call "init"
    exit
    end

// section 2: do the tracking
add 1 record"#spins"data
if record"#spins"data > 109
    begin
    call"reset"
    end

track last number for 1 time record"last N"layout

if record"last N"layout not = number 0
    begin
    track last red-black for 1 time record"last RB"layout
    track last even-odd for 1 time record"last EO"layout
    track last high-low for 1 time record"last HL"layout
    call "update EM frequency"

    track last dozen for 1 time record"last D"layout
    track last column for 1 time record"last C"layout
    call "update DC frequency"

    call "update L frequency"
    call "update C frequency"

    track last street for 1 time record"last S"layout
    call "update S frequency"
    end
call "update Sp frequency"
call "update N frequency"

// section 3: act on a loss
if net < 0
    begin

    end

// section 4:act on a win
if net > 0
    begin
    if record"MM"data = 2
        begin
        call"reset"
        end
    if record"MM"data = 3
        begin
        if bankroll >= record"new high"data
            begin
            put 100% bankroll in record"new high"data
            call"reset"
            end
        end
    if record"MM"data = 4
        begin
        if bankroll >= record"new high"data
            begin
            put 100% bankroll in record"new high"data
            put 100% bankroll in record"previous"data
            put 0 record"base unit"data
            call"reset"
            exit
            end
            else
            begin
            if bankroll < record"previous"data
                begin
                add 1 record"base unit"data
                put 100% bankroll in record"previous"data
                call"reset"
                exit
                end
            put 100% bankroll in record"previous"data
            call"reset"
            exit
            end
        end

    end


// section 5: bet
//1:1
if flag "1:1" true
begin
put 100% record"#spins"data in record"1:1 bets"data index
add 1 record"1:1 bets"data index
put 1 record"EM_F"data index
loop until record"EM_F"data index > record"EM_F"data count
    begin
    if record"EM_F"data = 0
        begin
        put 100% record"EM_F"data index in record"EM"layout index
        put 100% record"1:1 bets"data on record"EM"layout
        add 100% record"base unit"data to record"EM"layout
        end
    add 1 record"EM_F"data index
    end
end
//1:2
if flag "1:2" true
begin
put 100% record"#spins"data in record"1:2 bets"data index
add 1 record"1:2 bets"data index
put 1 record"DC_F"data index
loop until record"DC_F"data index > record"DC_F"data count
    begin
    if record"DC_F"data = 0
        begin
        put 100% record"DC_F"data index in record"DC"layout index
        put 100% record"1:2 bets"data on record"DC"layout
        if record"1:2 bets"data > 0
            begin
            add 100% record"base unit"data to record"DC"layout
            end
        end
    add 1 record"DC_F"data index
    end
end
//1:5
if flag "1:5" true
begin
put 100% record"#spins"data in record"1:5 bets"data index
add 1 record"1:5 bets"data index
put 1 record"L_F"data index
loop until record"L_F"data index > record"L_F"data count
    begin
    if record"L_F"data = 0
        begin
        put 100% record"L_F"data index in record"L"layout index
        put 100% record"1:5 bets"data on record"L"layout
         if record"1:5 bets"data > 0
            begin
            add 100% record"base unit"data to record"L"layout
            end
        end
    add 1 record"L_F"data index
    end
end
//1:8
if flag "1:8" true
begin
put 100% record"#spins"data in record"1:8 bets"data index
add 1 record"1:8 bets"data index
put 1 record"C_F"data index
loop until record"C_F"data index > record"C_F"data count
    begin
    if record"C_F"data = 0
        begin
        put 100% record"C_F"data index in record"C"layout index
        put 100% record"1:8 bets"data on record"C"layout
        if record"1:8 bets"data > 0
            begin
            add 100% record"base unit"data to record"C"layout
            end
        end
    add 1 record"C_F"data index
    end
end
//1:11
if flag "1:11" true
begin
put 100% record"#spins"data in record"1:11 bets"data index
add 1 record"1:11 bets"data index
put 1 record"S_F"data index
loop until record"S_F"data index > record"S_F"data count
    begin
    if record"S_F"data = 0
        begin
        put 100% record"S_F"data index in record"S"layout index
        put 100% record"1:11 bets"data on record"S"layout
        if record"1:11 bets"data > 0
            begin
            add 100% record"base unit"data to record"S"layout
            end
        end
    add 1 record"S_F"data index
    end
end
//1:17
if flag "1:17" true
begin
put 100% record"#spins"data in record"1:17 bets"data index
add 1 record"1:17 bets"data index
put 1 record"Sp_F"data index
loop until record"Sp_F"data index > record"Sp_F"data count
    begin
    if record"Sp_F"data = 0
        begin
        put 100% record"Sp_F"data index in record"Sp"layout index
        put 100% record"1:17 bets"data on record"Sp"layout
        if record"1:17 bets"data > 0
            begin
            add 100% record"base unit"data to record"Sp"layout
            end
        end
    add 1 record"Sp_F"data index
    end
end
//1:35
if flag "1:35" true
begin
put 100% record"#spins"data in record"1:35 bets"data index
add 1 record"1:35 bets"data index
put 1 record"N_F"data index
loop until record"N_F"data index > record"N_F"data count
    begin
    if record"N_F"data = 0
        begin
        put 100% record"N_F"data index in record"numbers"layout index
        put 100% record"1:35 bets"data on record"numbers"layout
        if record"1:35 bets"data > 0
            begin
            add 100% record"base unit"data to record"numbers"layout
            end
        end
    add 1 record"N_F"data index
    end
end
end

// subroutines
method "init"
begin
group
    begin
    display "TURBOSTATISTACTICS"
    input dropdown "Method of calculation:
    1:= The original
    2:= The mathematical" record"game type"data
    input checkbox "Play 1:1 bets (even money)" to flag "1:1"
    input checkbox "Play 1:2 bets (dozens/columns)" to flag "1:2"
    input checkbox "Play 1:5 bets (line)" to flag "1:5"
    input checkbox "Play 1:8 bets (corner)" to flag "1:8"
    input checkbox "Play 1:11 bets (street)" to flag "1:11"
    input checkbox "Play 1:17 bets (split)" to flag "1:17"
    input checkbox "Play 1:35 bets (straight)" to flag "1:35"
    input dropdown "Money Management
    1:= Play the full cycle all the time
    2:= Reset cycle on a win
    3:= Reset cycle on a new high
    4:= Reset cycle on a win; base bet: increase when down, reset when up" record"MM"data
    end
copy list [red,black,even,odd,high,low] record"EM"layout
copy list [1st dozen,2nd dozen,3rd dozen,column A,column B,column C] record"DC"layout
copy list [Line(1-6),Line(4-9),Line(7-12),Line(10-15),Line(13-18),
Line(16-21),Line(19-24),Line(22-27),Line(25-30),Line(28-33),Line(31-36)] record"L"layout
set list [0,1,1,1,1,1,1,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,7,7,7,8,8,8,9,9,9,10,10,
10,11,11,11] record "L1"data
set list [0,0,0,0,2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,7,7,7,8,8,8,9,9,9,10,10,10,11,
11,11,0,0,0] record "L2"data
copy list [Corner(1:5),Corner(2:6),Corner(4:8),Corner(5:9),Corner(7:11),
Corner(8:12),Corner(10:14),Corner(11:15),Corner(13:17),Corner(14:18),
Corner(16:20),Corner(17:21),Corner(19:23),Corner(20:24),Corner(22:26),
Corner(23:27),Corner(25:29),Corner(26:30),Corner(28:32),Corner(29:33),
Corner(31:35),Corner(32:36)] to record"C"layout
set list [0,1,1,2,1,1,2,3,3,4,5,5,6,7,7,8,9,9,10,11,11,12,13,13,14,15,15,16,17,
17,18,19,19,20,21,21,22] record "C1"data
set list [0,0,2,0,3,2,4,5,4,6,7,6,8,9,8,10,11,10,12,13,12,14,15,14,16,17,16,18,
19,18,20,21,20,22,0,22,0] record "C2"data
set list [0,0,0,0,0,3,0,0,5,0,0,7,0,0,9,0,0,11,0,0,13,0,0,15,0,0,17,0,0,19,0,0,
21,0,0,0,0] record "C3"data
set list [0,0,0,0,0,4,0,0,6,0,0,8,0,0,10,0,0,12,0,0,14,0,0,16,0,0,18,0,0,20,0,0,
22,0,0,0,0] record "C4"data
copy list [Street(1-3),Street(4-6),Street(7-9),Street(10-12),Street(13-15),
Street(16-18),Street(19-21),Street(22-24),Street(25-27),Street(28-30),
Street(31-33),Street(34-36)] to record"S"layout
copy list [Split(1-0),Split(2-0),Split(3-0),Split(1-2),Split(1-4),Split(2-3),
Split(2-5),Split(3-6),Split(4-5),Split(4-7),Split(5-6),Split(5-8),Split(6-9),
Split(7-8),Split(7-10),Split(8-9),Split(8-11),Split(9-12),
Split(10-11),Split(10-13),Split(11-12),Split(11-14),Split(12-15),Split(13-14),
Split(13-16),Split(14-15),Split(14-17),Split(15-18),Split(16-17),Split(16-19),
Split(17-18),Split(17-20),Split(18-21),Split(19-20),Split(19-22),Split(20-21),
Split(20-23),Split(21-24),Split(22-23),Split(22-25),Split(23-24),Split(23-26),
Split(24-27),Split(25-26),Split(25-28),Split(26-27),Split(26-29),Split(27-30),
Split(28-29),Split(28-31),Split(29-30),Split(29-32),Split(30-33),Split(31-32),
Split(31-34),Split(32-33),Split(32-35),Split(33-36),Split(34-35),Split(35-36)]
to record"Sp"layout
set list [1,1,2,3,5,7,8,10,12,13,15,17,18,20,22,23,25,27,28,30,32,33,35,37,38,
40,42,43,45,47,48,50,52,53,55,57,58] record"Sp1"data
set list [2,4,4,6,9,9,11,14,14,16,19,19,21,24,24,26,29,29,31,34,34,36,39,39,41,
44,44,46,49,49,51,54,54,56,59,59,60] record"Sp2"data
set list [3,5,6,8,10,11,13,15,16,18,20,21,23,25,26,28,30,31,33,35,36,38,40,41,43,
45,46,48,50,51,53,55,56,58,0,60,0] record"Sp3"data
set list [0,0,7,0,0,12,0,0,17,0,0,22,0,0,27,0,0,32,0,0,37,0,0,42,0,
0,47,0,0,52,0,0,57,0,0,0,0] record"Sp4"data
copy list [number 0, number 1, number 2, number 3,number 4,number 5,number 6,
number 7,number 8,number 9,number 10,number 11,number 12,number 13,number 14,
number 15,number 16,number 17,number 18,number 19,number 20,number 21,number 22,
number 23,number 24,number 25,number 26,number 27,number 28,number 29,number 30,
number 31,number 32,number 33,number 34,number 35,number 36] to record"numbers"layout
if record"game type"data = 1
    begin
set list [0,0,1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] record"1:1 bets"data
set list [0,0,0,0,1,1,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] record"1:2 bets"data
set list [0,0,0,0,0,0,1,1,1,1,1,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] record"1:5 bets"data
set list [0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] record"1:8 bets"data
set list [0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] record"1:11 bets"data
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] record"1:17 bets"data
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,
2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0] record"1:35 bets"data
    end
if record"game type"data = 2
    begin
set list [0,0,1,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] record"1:1 bets"data
set list [0,0,0,1,1,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] record"1:2 bets"data
set list [0,0,0,0,0,0,1,1,1,1,1,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] record"1:5 bets"data
set list [0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] record"1:8 bets"data
set list [0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,
2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] record"1:11 bets"data
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] record"1:17 bets"data
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,
2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2] record"1:35 bets"data
    end
put 100% bankroll in record"new high"data
put 100% bankroll in record"previous"data
put 0 record"base unit"data
call "reset"
end

method "reset"
begin
put 0 record"#spins"data
set list [0,0,0,0,0,0] record"EM_F"data
set list [0,0,0,0,0,0] record"DC_F"data
set list [0,0,0,0,0,0,0,0,0,0,0] record"L_F"data
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] record"C_F"data
set list [0,0,0,0,0,0,0,0,0,0,0,0] record"S_F"data
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] record"Sp_F"data
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0] record"N_F"data
end

method "update EM frequency"
begin
put 1 record"EM"layout index
loop until record"EM"layout = record"last RB"layout
    begin add 1 record"EM"layout index end
put 100% record"EM"layout index in record"EM_F"data index
add 1 record"EM_F"data
loop until record"EM"layout = record"last EO"layout
    begin add 1 record"EM"layout index end
put 100% record"EM"layout index in record"EM_F"data index
add 1 record"EM_F"data
loop until record"EM"layout = record"last HL"layout
    begin add 1 record"EM"layout index end
put 100% record"EM"layout index in record"EM_F"data index
add 1 record"EM_F"data
end

method "update DC frequency"
begin
put 1 record"DC"layout index
loop until record"DC"layout = record"last D"layout
    begin add 1 record"DC"layout index end
put 100% record"DC"layout index in record"DC_F"data index
add 1 record"DC_F"data
loop until record"DC"layout = record"last C"layout
    begin add 1 record"DC"layout index end
put 100% record"DC"layout index in record"DC_F"data index
add 1 record"DC_F"data
end

method "update L frequency"
begin
put 1 record"numbers"layout index
loop until record"numbers"layout = record"last N"layout
    begin
    add 1 record"numbers"layout index
    end
put 100% record"numbers"layout index in record "L1"data index
put 100% record "L1"data in record"L_F"data index
if record "L1"data > 0
    begin add 1 record"L_F"data end
put 100% record"numbers"layout index in record "L2"data index
put 100% record "L2"data in record"L_F"data index
if record "L2"data > 0
    begin add 1 record"L_F"data end
end

method "update C frequency"
begin
put 1 record"numbers"layout index
loop until record"numbers"layout = record"last N"layout
    begin
    add 1 record"numbers"layout index
    end
put 100% record"numbers"layout index in record "C1"data index
put 100% record "C1"data in record"C_F"data index
if record "C1"data > 0
    begin add 1 record"C_F"data end
put 100% record"numbers"layout index in record "C2"data index
put 100% record "C2"data in record"C_F"data index
if record "C2"data > 0
    begin add 1 record"C_F"data end
put 100% record"numbers"layout index in record "C3"data index
put 100% record "C3"data in record"C_F"data index
if record "C3"data > 0
    begin add 1 record"C_F"data end
put 100% record"numbers"layout index in record "C4"data index
put 100% record "C4"data in record"C_F"data index
if record "C4"data > 0
    begin add 1 record"C_F"data end
end

method "update S frequency"
begin
put 1 record"S"layout index
loop until record"S"layout = record"last S"layout
    begin add 1 record"S"layout index end
put 100% record"S"layout index in record"S_F"data index
add 1 record"S_F"data
end

method "update Sp frequency"
begin
put 1 record"numbers"layout index
loop until record"numbers"layout = record"last N"layout
    begin
    add 1 record"numbers"layout index
    end
put 100% record"numbers"layout index in record "Sp1"data index
put 100% record "Sp1"data in record"Sp_F"data index
if record "Sp1"data > 0
    begin add 1 record"Sp_F"data end
put 100% record"numbers"layout index in record "Sp2"data index
put 100% record "Sp2"data in record"Sp_F"data index
if record "Sp2"data > 0
    begin add 1 record"Sp_F"data end
put 100% record"numbers"layout index in record "Sp3"data index
put 100% record "Sp3"data in record"Sp_F"data index
if record "Sp3"data > 0
    begin add 1 record"Sp_F"data end
put 100% record"numbers"layout index in record "Sp4"data index
put 100% record "Sp4"data in record"Sp_F"data index
if record "Sp4"data > 0
    begin add 1 record"Sp_F"data end
end

method "update N frequency"
begin
put 1 record"numbers"layout index
loop until record"numbers"layout = record"last N"layout
    begin add 1 record"numbers"layout index end
put 100% record"numbers"layout index in record"N_F"data index
add 1 record"N_F"data
end