Novità

Di nuovo io...

adispo2000

Super Member >GOLD<
Messaggi
212
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
493
Punti reazione
16
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
    martedì 10 dicembre 2019
    Bari
    31
    35
    51
    16
    17
    Cagliari
    74
    45
    88
    04
    02
    Firenze
    58
    79
    71
    32
    70
    Genova
    35
    36
    74
    19
    67
    Milano
    37
    22
    09
    03
    50
    Napoli
    67
    32
    06
    82
    37
    Palermo
    59
    41
    52
    31
    06
    Roma
    17
    79
    01
    58
    19
    Torino
    41
    31
    57
    60
    03
    Venezia
    50
    31
    41
    01
    68
    Nazionale
    05
    12
    65
    02
    13
Alto