Novità

Di nuovo io...

adispo2000

Super Member >GOLD<
Messaggi
220
Punti reazione
0
Punti
16
Ciao a tutti i scripter, si puo' creare uno script.(che vi sto' a chiedere siete fenomenali).dove un numero che nel lasso di tempo analizzato presenta la propria frequenza convergente al valore medio................se e' possibile poter analizzare gli archivi di spaziometria..quindi superenalotto..lotto..10elottom5 e serale....ciao
Con questo tipo di analisi si cerca di prevedere quali siano i numeri più propensi per una futura sortita,inizialmente mi sono concentrato sui numeri in bassa/alta frequenza,poi ho potuto constatare che i numeri con una determinata "stabilità" hanno maggiori possibilità di apparire nelle estrazioni a seguire,rompendola di conseguenza.
 
Ultima modifica:

magia

Super Member >PLATINUM<
Messaggi
482
Punti reazione
15
Punti
18
In attesa dei " mejo " LuigiB , Mike58 , Joe91 , Ilegend , Claudio8 , Rubino ,
Beppignello , Salvo50 . Druid , Moro_80 , Master ed altri
Se abbiamo capito bene ,
Postiamo questo listato .
Option Explicit
'Di nuovo io... di adispo2000
'https://forum.lottoced.com/threads/di-nuovo-io.2191514/
Sub Main
Dim QT : QT = CInt(InputBox("QUANTE ESTRAZIONI DI CONTROLLO",,18))
Dim Ini,fin,X : Ini = EstrazioneFin - QT : fin = EstrazioneFin
Call aGetTitoli()
For X = 01 To 90 : Call Messaggio(Format2(X)) : Call AvanzamentoElab(01,90,X)
ReDim nt(90) : nt(01) = X
ReDim aValori(14) : aValori(01) = Format2(X) : aValori(13) = Format2(X)
'------------------------------------------------------------
Dim freq01
ReDim ruota01(01) : ruota01(01) = BA_
Call StatFrzTurbo(nt,ruota01,AMBATA_,,,,freq01,,Ini,fin)
aValori(02) = freq01
'------------------------------------------------------------
Dim freq02
ReDim ruota02(01)
ruota02(01) = CA_
Call StatFrzTurbo(nt,ruota02,AMBATA_,,,,freq02,,Ini,fin)
aValori(03) = freq02
'------------------------------------------------------------
Dim freq03
ReDim ruota03(01)
ruota03(01) = FI_
Call StatFrzTurbo(nt,ruota03,AMBATA_,,,,freq03,,Ini,fin)
aValori(04) = freq03
'------------------------------------------------------------
Dim rit04,freq04
ReDim ruota04(01)
ruota04(01) = GE_
Call StatFrzTurbo(nt,ruota04,AMBATA_,,,,freq04,,Ini,fin)
aValori(05) = freq04
'------------------------------------------------------------
Dim freq05
ReDim ruota05(01)
ruota05(01) = MI_
Call StatFrzTurbo(nt,ruota05,AMBATA_,,,,freq05,,Ini,fin)
aValori(06) = freq05
'------------------------------------------------------------
Dim freq06
ReDim ruota06(01)
ruota06(01) = NA_
Call StatFrzTurbo(nt,ruota06,AMBATA_,,,,freq06,,Ini,fin)
aValori(07) = freq06
'------------------------------------------------------------
Dim freq07
ReDim ruota07(01)
ruota07(01) = PA_
Call StatFrzTurbo(nt,ruota07,AMBATA_,,,,freq07,,Ini,fin)
aValori(08) = freq07
'------------------------------------------------------------
Dim freq08
ReDim ruota08(01)
ruota08(01) = RO_
Call StatFrzTurbo(nt,ruota08,AMBATA_,,,,freq08,,Ini,fin)
aValori(09) = freq08
'------------------------------------------------------------
Dim rit09,freq09
ReDim ruota09(01)
ruota09(01) = TO_
Call StatFrzTurbo(nt,ruota09,AMBATA_,,,,freq09,,Ini,fin)
aValori(10) = freq09
'------------------------------------------------------------
Dim freq10
ReDim ruota10(01)
ruota10(01) = VE_
Call StatFrzTurbo(nt,ruota10,AMBATA_,,,,freq10,,Ini,fin)
aValori(11) = freq10
'------------------------------------------------------------
Dim freq12
ReDim ruota12(01)
ruota12(01) = NZ_
Call StatFrzTurbo(nt,ruota12,AMBATA_,,,,freq12,,Ini,fin)
aValori(12) = freq12
Call AddRigaTabella(aValori,,,03,,01)
'-------------------------------------------------------------------------------------
Dim MT : MT = QT/(90/05)
Dim Xx,yy
For Xx = 02 To 11
For yy = Xx + 01 To 12
If aValori(Xx) = MT Then
Call SetColoreCella(01,RGB(255,128,255)) : Call SetColoreCella(13,RGB(255,128,255))
Call SetColoreCella(Int(Xx),vbGreen)
ElseIf aValori(yy) = MT Then
Call SetColoreCella(01,RGB(255,128,255)) : Call SetColoreCella(13,RGB(255,128,255))
Call SetColoreCella(Int(yy),vbGreen)
End If
Next
Next
Next
'-------------------------------------------------------------------------------------
Call Messaggio(" Attendere Creazione Tabella ")
Call Scrivi(" Elaborazione dall'estrazione n. " & Ini & " del " & DataEstrazione(Ini) & _
" fino all'estrazione n. " & fin & " del " & DataEstrazione(fin) & " " & _
" Estrazioni Esaminate : " & fin - Ini,True,False,,,03)
Call Scrivi()
Call CreaTabella()
End Sub
Function aGetTitoli
Dim atitoli : atitoli = Array(atitoli,"Numeri","BA - Fr","CA - Fr",_
"FI - Fr","GE - Fr","MI - Fr","NA - Fr","PA - Fr",_
"RO - Fr","To - Fr","VE - Fr","NZ - Fr","Numeri")
Call InitTabella(atitoli,vbGreen,,03,00)
End Function

Controllare Sempre .
Salvo Errori ed Omissis .
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 15 febbraio 2020
    Bari
    30
    83
    35
    44
    75
    Cagliari
    23
    88
    76
    57
    72
    Firenze
    22
    69
    27
    04
    83
    Genova
    75
    87
    40
    50
    16
    Milano
    37
    42
    17
    71
    51
    Napoli
    43
    71
    19
    47
    44
    Palermo
    43
    20
    24
    28
    32
    Roma
    68
    74
    81
    50
    09
    Torino
    22
    76
    90
    77
    61
    Venezia
    31
    32
    72
    24
    74
    Nazionale
    80
    74
    01
    39
    77
Alto