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
    sabato 07 dicembre 2019
    Bari
    19
    09
    20
    16
    01
    Cagliari
    76
    60
    80
    06
    47
    Firenze
    43
    88
    78
    73
    83
    Genova
    46
    20
    79
    54
    04
    Milano
    30
    31
    46
    24
    19
    Napoli
    42
    86
    20
    06
    07
    Palermo
    66
    04
    81
    53
    09
    Roma
    55
    81
    32
    25
    13
    Torino
    69
    21
    52
    32
    72
    Venezia
    44
    22
    37
    80
    32
    Nazionale
    19
    88
    32
    60
    90

Ultimi Messaggi

Alto