script per 10elotto ogni 5min esistono??

[Mike58]

x antopunt nelle richieste divresti essere più chiara è un po difficile seguire il tuo esposto.




x mike58 vorrei partire da una tecnica suggerita dall'amico ib63 e vedere di migliorarla se puoi realizzare per il momento queste poche righe di script

inserisco un numero x vado a calcolare il suo vertibile dist. 30 e 60 -1 e +1
es. 4 40 34 64 3 5
ottenuta la sestino elimino con controllo a ritroso di x estrazioni quelli già sortiti e poi dei rimanentio verifico l'esito fino alla sortita

Ciao Keeper comincia con questo solo calcolo e verifica su tot estrazioni.
Per la verfica e l'eliminazione a ritroso devi fare in modo visivo.
Per Antonpun comincia a leggere queste poche righe per capire lo svolgimento.

Ciao.

Sub Main
ImpostaArchivio10ELotto(2)
qt = CInt(InputBox("Quante estrazioni vuoi giocare ? ",,50))
numero = CInt(InputBox("Quale numero vuoi analizzare ",,4))
ReDim aNumeri(6)
aNumeri(1) = numero
aNumeri(2) = Vert(numero)
aNumeri(3) = Fuori90(numero + 30)
aNumeri(4) = Fuori90(numero + 60)
aNumeri(5) = Fuori90(numero + 1)
aNumeri(6) = Fuori90(numero - 1)
fin = EstrazioniArchivioDL
Ini = fin - 50
Call ImpostaGiocataDL(1,aNumeri,1,qt)
Call GiocaDL(fin - qt)
Call ScriviResocontoDL
End Sub

 

[Mike58]

si li raccolgo
volevo anche chiederti ma tu per la tua tecnica di gioco dei numeri frequenti in 10 estrazioni e non osrtiti in cinque precedenti hai fatto anche li uno sciprt per velocizzare il tutto

Keeper questo è lo script che volevi valutare prova con i periodi impostati e poi fai le tue dovute verifiche.

Ciao Mike

Sub Main()
' presenze su cicli di 9 estrazioni"
ImpostaArchivio10ELotto(2)
Scrivi " Statistica rilevamento Numeri per il 10 e lotto 5 minuti ",1,- 1,6
Scrivi String(85,"=")
Dim ruote(1)
Dim nm(1)
periodo = CInt(InputBox("lunghezza ciclo ",,10))
zero = CInt(InputBox("ultimo ciclo lunghezza, ? ",,5))
ultima = InputBox("Estrazione ultima",,EstrazioniArchivioDL)
pres = CInt(InputBox("N° di presenza nel ciclo ",,2))
pres1 = CInt(InputBox("N° presenze ultimo ciclo ",,0))
Scrivi "-------------------------------------------------------------------------"
Scrivi " Situazione statistica per ciclo 10 e lotto - creato by Mike58 - ",1
Scrivi " Correlazione e presenze dei singoli numeri in periodi di " & periodo & " estrazioni"
Scrivi " Partenza della statistica a ritroso dal...." & Ultima
Scrivi " Durata del periodo N.Estrazioni a ritroso ." & periodo
Scrivi " Ultimo ciclo di " & zero & " estrazioni ... presenza ... zero "
Scrivi "-------------------------------------------------------------------------"

fine = EstrazioniArchivioDL
Inizio = EstrazioniArchivioDL - 200
dal1 =(ultima + 1) - zero
al1 = ultima
dal2 = dal1 - periodo
al2 = dal1 - 1
dal3 = dal2 - periodo
al3 = dal2 - 1
dal4 = dal3 - periodo
al4 = dal3 - 1
dal5 = dal4 - periodo
al5 = dal4 - 1
dal6 = dal5 - periodo
al6 = dal5 - 1
For x = 1 To 90
nm(1) = x
a = SerieFreqDL(dal1,al1,nm,1)
b = SerieFreqDL(dal2,al2,nm,1)
c = SerieFreqDL(dal3,al3,nm,1)
d = SerieFreqDL(dal4,al4,nm,1)
e = SerieFreqDL(dal5,al5,nm,1)
f = SerieFreqDL(dal6,al6,nm,1)
If a = pres1 Then
If b >= pres Then
If c >= pres Then
If d >= pres Then
If e >= pres Then
If f >= pres Then
rit = EstrattoRitardoDL(x,inizio,fine)
fre = a + b + c + d + e + f
casi = casi + 1
Scrivi "___________________________________________________________________" & " ( caso n°.) " & casi
Scrivi " Periodo dal...al..." & dal1 & "/" & al1 & " " & DataEstrazione(ultima) & " Presenze del nr.." & a
Scrivi " Periodo dal...al..." & dal2 & "/" & al2 & " " & DataEstrazione(dal1) & " Presenze del nr.." & b
Scrivi " Periodo dal...al..." & dal3 & "/" & al3 & " " & DataEstrazione(dal2) & " Presenze del nr.." & c
Scrivi " Periodo dal...al..." & dal4 & "/" & al4 & " " & DataEstrazione(dal3) & " Presenze del nr.." & d
Scrivi " Periodo dal...al..." & dal5 & "/" & al5 & " " & DataEstrazione(dal4) & " Presenze del nr.." & e
Scrivi " Periodo dal...al..." & dal6 & "/" & al6 & " " & DataEstrazione(dal5) & " Presenze del nr.." & f
fre = a + b + c + d + e + f
Scrivi""
ColoreTesto 2
Scrivi " ----- numero " & nm(1) & " ritardo attuale " & rit & " --- presenza" & " ---> " & fre,2
ColoreTesto 0
End If
End If
End If
End If
End If
End If
Next
ColoreTesto 1
Scrivi "______________________________________________________________________________________________________",2
Scrivi""
Scrivi " Riepilogo numeri rintracciati " & " numeri totali " & casi & " .... [cicli di ] : " & periodo & " estraz.",- 1,6,3
Scrivi "______________________________________________________________________________________________________",2
'dal5 = ultima + 1 - 5
For x = 1 To 90
nm(1) = x
a = SerieFreqDL(dal1,al1,nm,1)
b = SerieFreqDL(dal2,al2,nm,1)
c = SerieFreqDL(dal3,al3,nm,1)
d = SerieFreqDL(dal4,al4,nm,1)
e = SerieFreqDL(dal5,al5,nm,1)
f = SerieFreqDL(dal6,al6,nm,1)
If a = pres1 Then
If b >= pres Then
If c >= pres Then
If d >= pres Then
If e >= pres Then
If f >= pres Then
rit = EstrattoRitardoDL(x,inizio,fine)
fre = a + b + c + d + e + f
Scrivi " ----- numero " & Format2(nm(1)) & " Ritardo attuale " & Format2(rit) & " --- presenza nei cicli " & " ---> " & Format2(fre) & " .... [" & a & "." & b & "." & c & "." & d & "." & e & "." & f & "]",2
End If
End If
End If
End If
End If
End If
Next
Scrivi "_____________________________________________________________________________________________________",2

End Sub

 

[keeper]

grazie mike

 

[keeper]

ok funziona ora iniziamo ad ampliarlo
1 modifica la sestina trovata si può scomporre in tre coppie o in due terzine
es. 41 14 vertibile
40 42 -1 / +1
11 71 +30 / +60

41 14 40
11 42 71

metterli in gioco e verificare l'esito
2 modifica il calcolo va fatto su tutti i 20 nueri dell'estrazione qundi ricaveremo 120 numeri diquesto occorre riepilogare quelli più frequenti e poi lascio a te altre ricerche o a chiunque voglia parteciapre

 

[Mike58]

Keeper hai fatto un casino intanto posta lo script in modo corretto perche così poi bisogna riadattarlo in spaziometria.
Io taglio la testa al toro e lo copio prima in blocconote e poi lo incollo sul forum in questo modo non sarà addentato ma sarà perfettamente formattato
per il copia in spazimetria.
Poi se vuoi esaminare un mumero e verificarne gli esiti successivi basta partire da estrazione-fine - lestrazioni che vuoi(vedi inputbox).

Ciao studiaci un pò.
Per OGGI io chiudo.

Sub Main
Dim nEstrtot,IdEstrbase
Call ImpostaArchivio10ELotto(2)
nEstrtot = EstrazioniArchivioDL
IdEstrbase = CInt(InputBox("Immettere il numero di estrazione da 1 a ",,EstrazioniArchivioDL - 10))
numero = CInt(InputBox("Quale numero vuoi analizzare ",,4))
ReDim aNumeri(6)
aNumeri(1) = numero
aNumeri(2) = Vert(numero)
aNumeri(3) = Fuori90(numero + 30)
aNumeri(4) = Fuori90(numero + 60)
aNumeri(5) = Fuori90(numero + 1)
aNumeri(6) = Fuori90(numero - 1)
Call ImpostaGiocataDL(1,aNumeri,1,nEstrtot)
Call GiocaDL(IdEstrbase)
Call ScriviResocontoDL
End Sub

 

[keeper]

grazie

 

[keeper]

ho effettuato dei test ora occorre un buon riduttore ti posto un esempio
questi numeri 03-05-06-10-14-16-24-25-44-63-71-75
i 6 colpi 3 terzine 1 quartine 2 cinquine

 

[keeper]

8 colpiu ancora un 3 e un 6

 

[keeper]

porto su