X joe91 mike58 o chi è capace

[solare]

ciao MIKE58, Ho visto lo script con le frequenze si in effetti hai ragione, cosi serve poco. Infatti io chiedevo la frequenza del numero maturata nelle ultime 9/18 estrazioni in modo da capire se il numero è in alta frequenza o bassa frequenza.
​Grazie ancora

 

[giorgioantonio]

Salve, cortesemente chi mi può indicare a quale riga vorrei che la ricerca finisse 20-30 estrazioni
prima della fine. Chiunque - Grazie

PS: mi riferiscoallo script dei cicli

 

[Mike58]

Ciao Mike58, lo script che mi hai proposto non è niente male, lunica cosa è che evi dare
una certa quantità di numeri ai fini dell'elaborazione perchè non posso farelaborare tutti i
90 numeri. Semi puoi indicare nel sito uno script fa ricerca di numeri frequenti.
Ti ringrazio.

Ciao giorgioantonio, scusate se insisto, ma dovete imparare ad usare gli script in tabellaOrdinabile e filtrare quello che più fa allo scopo delle ricerche.
Infatti se agisci poi per filtri con icona cannocchiale hai la possibilità di filtrare le risultanze
esempio se filtro per Milano
presenze >= 9 cicli su 10 scelti
ritardo > 12
ottengo solo 3 numeri che corrispondono al criterio filtrato.

fate voi le dovute prove, come dicevo non ho più tempo.

Ciao

 

[giorgioantonio]

Salve, cortesemente chi mi può indicare a quale riga vorrei che la ricerca finisse 20-30 estrazioni
prima della fine. Chiunque - Grazie

PS: mi riferiscoallo script dei cicli

 

[Mike58]

Ultimo aiuto, modificare quello script per altri fine non è la cosa migliore e anche facile.
poi se suoi gli estratti + frequenti per ruota prova anche quest'altro mio script.
elenca i 15 + frequenti su range stabilito.

Sub Main
 Dim nu(10),ru(1)
 fine = InputBox("Quante estrazioni",,30)
 Ini = EstrazioneFin - fine
 
 fin = EstrazioneFin
 Scrivi "Range d'inizio analisi..." & DataEstrazione(Ini),1
 Scrivi
 For r = 1 To 12
  ReDim t(7)
  t(1) = " Ruota "
  t(2) = " Numero "
  t(3) = " Freq "
  t(4) = " Ritardo "
  t(5) = " Freq 10 ES "
  t(6) = " Rit. Prec "
  t(7) = " Numeri da Giocare "
  Call InitTabella(t,2,,3,5)
  For x = 1 To 90
   xx = EstrattoFrequenza(r,x,Ini,fin)
   xy = EstrattoFrequenza(r,x,fin - 11,fin)
   yy = EstrattoRitardo(r,x,Ini,fin)
   yx = EstrattoRitardo(r,x,Ini,fin - 1 - yy)
   ReDim v(7)
   v(1) = SiglaRuota(r)
   v(2) = x
   v(3) = xx
   v(4) = yy
   v(5) = xy
   v(6) = yx
   If xy = 0 Then v(7) = x
   If xy > 0 Then v(7) = " - "
   Call AddRigaTabella(v,,,3)
   If yy = 0 Then Call SetColoreCella(2,3,1)
   If yy > 0 And yy < 6 Then Call SetColoreCella(2,4,2)
   If xy = 0 Then Call SetColoreCella(5,7,5)
   Call SetColoreCella(1,1,5)
   If v(7) = x Then Call SetColoreCella(7,7,5)

  Next
  Call CreaTabella(3,,,15,1)
 Next
 Scrivi "SCRIPT BY MIKE58",1
End Sub

 

[giorgioantonio]

Ciao Mike58, programmino eccezionale, l'ho già messo in prova indietreggiando di qualche estrazione
e pare dia ottimi risultati. GRAZIE

 

[solare]

Mike, grazie della tua grande disponibilità e pazienza.............
Ho provato ma non mi sembra sia possibile avere la frequenza delle ultime 18 estrazioni tramite la tabella ordinabile.....sicuramente sbaglio io........Comunque ti rinnovo il grazie di tutto che sicuramente non è poco.


Sub Main
Dim N(1),T,V,VetN,VetQ
Ini = EstrazioneIni' - 200
fin = EstrazioneFin
Tot = fin - Ini
Scrivi "Script By Mike58",1,,,1,2,,1
ReDim R(0)
Rr = ScegliRuote(R)
Scrivi "Elenco Numeri Su Ruote di : " & StringaRuote(R),1
Scrivi
T = Array(T,"Numero","Rp1","Rp2","Rp3","Rp4","Rp5","Rp6","Rp7","Rp8","Rp9","Rp10","Rp11","Rp12","Rp13","Rp14","Rp15","Rp16","Rp17","Rp18","Rp19","Rp20","Q.tà Rip","Num Rip","Rip al Rit","Tot Freq","Media Freq")
Call InitTabella(T,RGB(146,139,126),,3,5)
'ReDim Nn(0)
'ScegliNumeri(Nn)
For x = 1 To 90'UBound(Nn)
N(1) = x

Call Messaggio("Elaboro Numeri . . . . . . . " & x)
Call AvanzamentoElab(1,90,x)

'------ elenco ritardi..............
ReDim rp(20),fr(20)
Inizio = EstrazioneIni
fine = EstrazioneFin
somrit12 = 0
For z = 1 To 20
rp(z) = SerieRitardoTurbo(Inizio,fine,N,R,1)
fr(z) = SerieFreqTurbo(Inizio,fine,N,R,1)
fine = fine -(rp(z) + 1)
somrit12 = somrit12 + rp(z) + 1
Med = Round(somrit12/20,2)
freq = fr(z) + 1
Mfr = Round(freq/37,2)

Next
bb = 0
For xx = 1 To 20
If rp(xx) = rp(1) Then bb = bb + 1
Next
'.........................................
Call NumeriRipetutiRilevatiV(rp,VetN,VetQ)


V = Array(V,StringaNumeri(N),rp(1),rp(2),rp(3),rp(4),rp(5),rp(6),rp(7),rp(8),rp(9),rp(10),rp(11),rp(12),rp(13),rp(14),rp(15),rp(16),rp(17),rp(18),rp(19),rp(20),_
StringaNumeri(VetQ),StringaNumeri(VetN),bb,freq,Mfr)
Call AddRigaTabella(V,,,3,,"Cambria")
bb = ""
For x1 = 1 To 2
For x2 = x1 + 1 To 21
If V(x1) = V(x2) Then Call SetColoreCella((x1),3,0)
If V(x2) = V(x1) Then Call SetColoreCella((x2),3,0)

Next
Next
Next
CreaTabellaOrdinabile(2)
End Sub

 

[Mike58]

Ciao Solare la frequenza tot non è attendibile e pertanto la cancello cosi come la media, infatti agisce su tutto il range da 1 a fine estrazioni.
scrivo invece la somma dei ritardi e la relativa media, visto che parliamo di soli ritardi ( mi sembra + corretto)

Poi se vuoi cercare la frequenza delle ultime 18 estrazioni la puoi vedere anche filtrandole dai primi ritardi (RP1 Rp2)se sono inferiori a 18 vuol dire che c'è frequenza.

Sub Main
 Dim N(1),T,V,VetN,VetQ
 Ini = EstrazioneIni' - 200
 fin = EstrazioneFin
 Tot = fin - Ini
 Scrivi "Script By Mike58",1,,,1,2,,1
 ReDim R(0)
 Rr = ScegliRuote(R)
 Scrivi "Elenco Numeri Su Ruote di : " & StringaRuote(R),1
 Scrivi
 T = Array(T,"Numero","Rp1","Rp2","Rp3","Rp4","Rp5","Rp 6","Rp7","Rp8","Rp9","Rp10","Rp11","Rp12","Rp13"," Rp14","Rp15","Rp16","Rp17","Rp18","Rp19","Rp20","Q .tà Rip","Num Rip","Rip al Rit","Tot Rit","Media Rit")
 Call InitTabella(T,RGB(146,139,126),,3,5)
 'ReDim Nn(0)
 'ScegliNumeri(Nn)
 For x = 1 To 90'UBound(Nn)
 N(1) = x

 Call Messaggio("Elaboro Numeri . . . . . . . " & x)
 Call AvanzamentoElab(1,90,x)

 '------ elenco ritardi..............
 ReDim rp(20),fr(20)
 Inizio = EstrazioneIni
 fine = EstrazioneFin
 somrit12 = 0
 For z = 1 To 20
 rp(z) = SerieRitardoTurbo(Inizio,fine,N,R,1)
somrit12 = somrit12 + rp(z) + 1
 fr(1) = SerieFreqTurbo(fine-somrit12,fine,N,R,1)
 fine = fine -(rp(z) + 1)
 
 Med = Round(somrit12/20,2)
 freq = fr(1) '+ 1
 Mfr = Round(freq/20,2)

 Next
 bb = 0
 For xx = 1 To 20
 If rp(xx) = rp(1) Then bb = bb + 1
 Next
 '.........................................
 Call NumeriRipetutiRilevatiV(rp,VetN,VetQ)


 V = Array(V,StringaNumeri(N),rp(1),rp(2),rp(3),rp(4),rp(5),rp(6),rp(7),rp(8),rp(9),rp(10),rp(11),rp(12), rp(13),rp(14),rp(15),rp(16),rp(17),rp(18),rp(19),rp(20),_
 StringaNumeri(VetQ),StringaNumeri(VetN),bb,somrit12,Med)
 Call AddRigaTabella(V,,,3,,"Cambria")
 bb = ""
 For x1 = 1 To 2
 For x2 = x1 + 1 To 21
 If V(x1) = V(x2) Then Call SetColoreCella((x1),3,0)
 If V(x2) = V(x1) Then Call SetColoreCella((x2),3,0)

 Next
 Next
 Next
 CreaTabellaOrdinabile(2)
 End Sub

Ciao

 

[solare]

Ciao Mike58, ok ottima intuizione
sicuramente così è completo per quanto riguarda i ritardi.
per le frequenze utilizzo altro listato.
Grazie ancora e complimenti per le tue capacità.

 

[Alien.]

ciao,trovo che non sarebbe male anche per le frequenze al 10elotto !

 

[solare]

Ciao alien, si in effetti non sarebbe male così come impostato da mike58 per i ritardi a differenza che farlo andare per il 10elotto......e chissà....