aiuto script

[lottofortune]

Option Explicit
Class ClsTerno
Public sNumeri
Public nPresenze
End Class
Class clsSpia
Public Numero
Private collTerni
Public Property Get PresenzeMax
Dim cTerno
Dim nMax
If Not collTerni Is Nothing Then
For Each cTerno In collTerni
If cTerno.npresenze > nMax Then
nMax = cTerno.npresenze
End If
Next
End If
PresenzeMax = nMax
End Property
Sub InitColl
Set collTerni = GetNewCollection
End Sub
Function GetTerno(sKey)
On Error Resume Next
Set GetTerno = collTerni(sKey)
If Err <> 0 Then
Err.Clear
Set GetTerno = Nothing
End If
End Function
Sub IncrementaPresenzeTerni(aTerni)
Dim k,e
Dim sKey
Dim cTerno
For k = 1 To UBound(aTerni)
sKey = "i"
For e = 1 To 3
sKey = sKey & Format2(aTerni(k,e)) & "-"
Next
sKey = Left(sKey,Len(sKey) - 1)
Set cTerno = GetTerno(sKey)
If cTerno Is Nothing Then
Set cTerno = New ClsTerno
cTerno.sNumeri = sKey
Call collTerni.Add(cTerno,sKey)
cTerno.nPresenze = 1
Else
cTerno.nPresenze = cTerno.nPresenze + 1
End If
Next
End Sub
Sub CalcolaTerni(Inizio,Fine,ruota)
Dim k,e
Dim aTerni
For k = Inizio To Fine
ReDim aN(5)
For e = 1 To 5
aN(e) = Estratto(k,ruota,e)
Next
If aN(1) > 0 Then
aTerni = SviluppoIntegrale(aN,3)
Call IncrementaPresenzeTerni(aTerni)
End If
Next
End Sub
Sub ScriviTerniSpiati
Dim cTerno
Call OrdinaItemCollection(collTerni,"nPresenze","sNumeri")
Call Scrivi("Numero " & Numero)
Call Scrivi
For Each cTerno In collTerni
If cTerno.nPresenze > 1 Then
Call Scrivi(Mid(cTerno.sNumeri,2) & "---> " & cTerno.nPresenze)
End If
Next
Call Scrivi(String(50,"-"))
End Sub
End Class
Sub Main
Dim collSpie
Dim idEst,e,n
Dim Inizio,Fine
Dim nColpi
Dim nRuota
Dim cSpia
nColpi = CInt(InputBox("Quanti colpi ?","Colpi di gioco",12))
nRuota = ScegliRuota

If nRuota = 0 Or nColpi <= 0 Then Exit Sub
Inizio = EstrazioneIni
Fine = EstrazioneFin
Call InitCollSpie(collSpie)
For idEst = Inizio To Fine
For e = 1 To 5
n = Estratto(idEst,nRuota,e)
If n > 0 Then
Set cSpia = collSpie("i" & n)
Call cSpia.CalcolaTerni(idEst + 1,idEst + nColpi,nRuota)
End If
Next
Call AvanzamentoElab(Inizio,Fine,idEst)
If ScriptInterrotto Then Exit For
Next
Call Messaggio("ordinamento per spia con maggior esiti")
Call OrdinaItemCollection(collSpie,"PresenzeMax")
Call Messaggio("Scrittura combinazioni rilevate")

For Each cSpia In collSpie
Call cSpia.ScriviTerniSpiati
Next
End Sub
Sub InitCollSpie(coll)
Dim k
Dim cSpia
Set coll = GetNewCollection
For k = 1 To 90
Set cSpia = New clsSpia
cSpia.numero = k
Call cSpia.InitColl
coll.Add cSpia,"i" & k
Next
End Sub

salve qualcuno puo aiutarmi,lo script parte ma poi arrivato ad un certo punto si ferma e mi da l errore 'memoria esaurite'.grazie

 

[joe]

Ciao,

Lo studio dei terni richiede risorse di sistema enormi.

Ti consiglio di provare con un range di qualche centinaio di estrazioni.

Se il tuo Pc ha memoria sufficiente dovrebbe darti il rendiconto

dei risultati raccolti, in questo periodo,

 

[lottofortune]

Va bene grazie mille joe.. il problema è che non mi da l opzione di scegliere il tange di estrazioni.

 

[joe]

Ciao come vedi nell'immagine :

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"http:\/\/funkyimg.com\/i\/2nD3t.jpg"}[/IMG2]

nella parte bassa di essa è presente una barra colore fucsia.

A sinistra di questa c'è un bottone con una "X", premendolo diventa possibile,

stabilire il "limite iniziale" del range di estrazioni utilizzate per le statistiche.

Quindi se per ipotesi siamo ad avere come 9450 il limite finale del range

potresti provare a settare "9300 come inizio archivio" così da controllare se lo script funziona.

Con 150 estrazioni che equivalgono a circa 1 anno.

Poi, aumentare (se lo ritieni) questo range fino ad utilizzare tutta la memoria del computer.

Considera che 100 estrazioni sono circa 9 mesi.

Quindi 1000 estrazioni ... 6 anni. 1560 = circa 10 anni.

 

[lottofortune]

Va bene grazie mille joe.. gentilissimo buona giornata..

 

[lottofortune]

Ciao matematico,mi dispiace ma io non capisco niente di script..

 

[Matematico]

Ma io parlavo del metodo , cosa fà?...analizza i terni più frequenti all'uscita di un numero spia ?...sei tu che lo hai postato

 

[lottofortune]

Si si, ma volevo capirne il funzionamento

 

[joe]

E' giusto quello che scrive Matematico.

Tuttavia come spesso accade ... ogni misurazione altera il risultato della misurazione.

Dunque una spia, poco accorta, viene presto ad essere ... soggetto spiato.

Questo perché i parametri imposti nelle regole del gioco che sono:

- il periodo,

- il numero di colpi,

- la scelta della ruota,

... determinano il risultato.

Cagliari / Spia 33

16.08.2017 17.57.66.07.33
07.09.2017 65.10.59.04.33
19.10.2017 74.30.59.33.06
19.12.2017 10.33.52.48.27 [16.01.2018] Terno 09.32.48 12° Colpo
28.12.2017 33.61.63.65.44 [16.01.2018] Terno 09.32.48 8° Colpo
30.12.2017 17.33.18.74.08 [16.01.2018] Terno 09.32.48 7° Colpo
08.01.2018 90.39.51.74.33 [16.01.2018] Terno 09.32.48 4° Colpo
13.01.2018 60.33.50.45.48 [16.01.2018] Terno 09.32.48 1° Colpo
17.02.2018 28.17.33.40.20
08.03.2018 33.84.82.47.75
22.03.2018 20.33.65.50.87

(5 volte) Spiato il terno 9.32.48 ... trova essere la sua spia il 33.

 

[Matematico]

Ciao joe, concordo pienamente con te ...che parametri hai inserito x avere questo risultato su CA?

Io dal 16/8/2017ottengo da numero spia 33 iseguenti terno con fr.5 :

Numero 33 42-32-09---> 5 48-09-66---> 5 42-32-66---> 5 32-09-66---> 5 42-09-66---> 5 48-42-09---> 5 48-42-32---> 5 48-42-66---> 5 48-32-66---> 5 48-32-09---> 5 19-27-45---> 5 06-45-57---> 5 19-27-57---> 5 27-45-57---> 5 19-45-57---> 5 06-19-45---> 5 06-19-27---> 5 06-19-57---> 5 06-27-57---> 5 06-27-45---> 5

 

[joe]

Ciao,

Sono le indicazioni che avevi presentato:

12 colpi / Cagliari / dall'estrazione 9350 in poi.

Tuttavia essendo solo UN RISULTATO (solo 1) ...

non può essere "solo" UN TERNO.

Sono 10.

A seguito delle 5 spiate che ci sono state.

Inoltre ... essendo il periodo di ricerca molto lungo ...

ANCHE i 5 estratti dell'estrazione successiva

rientrano nel limite del 12° colpo dal primo rilevamento.

Con essi ... si aggiungono gli altri 10 Terni che hai elencato.

42-32-09---> 5
48-09-66---> 5
42-32-66---> 5
32-09-66---> 5
42-09-66---> 5
48-42-09---> 5
48-42-32---> 5
48-42-66---> 5
48-32-66---> 5
48-32-09---> 5

19-27-45---> 5
06-45-57---> 5
19-27-57---> 5
27-45-57---> 5
19-45-57---> 5
06-19-45---> 5
06-19-27---> 5
06-19-57---> 5
06-27-57---> 5
06-27-45---> 5

Buona serata a tutte/i.

 

[claudio8]

x lottofortune
nello script se vuoi variare il range delle estrazioni da considerare, modifica questa area di costrutto che ti evidenzio in rosso :

 Sub Main
    Dim collSpie
    Dim idEst,e,n
    Dim Inizio,Fine
    Dim nColpi
    Dim nRuota
    Dim cSpia
[COLOR=#FF0000]Dim qte[/COLOR]
    nColpi = CInt(InputBox("Quanti colpi ?","Colpi di gioco",12))
[COLOR=#FF0000]qte = CInt(InputBox("Quante estrazioni vuoi controllare ?","Q.tà Estrazioni",500))       'riga nuova[/COLOR]
    nRuota = ScegliRuota
    If nRuota = 0 Or nColpi <= 0 Then Exit Sub
[COLOR=#FF0000]Inizio = Estrazionefin - qte       ' riga modificata [/COLOR]
    Fine = EstrazioneFin

un saluto

 

[lottofortune]

Buongiorno grazie claudio8, grazie anche a joe..

 

[Matematico]

Grazie joe, tutto chiaro e limpido grazie

 

[lottofortune]

Buonasera a tutti un'ultima cosa, se io invece volessi scegliere un solo numero spia anziché avere tutta la lista?