Numeri più frequenti dopo il numero spia in posizione determinata

[Cinzia27]

Ciao a tutti. Posto lo script gentilmente richiesto da 80Sete. Controllate per cortesia che sia corretto.
'Per 80Sete: N. più frequenti dopo la sortita di un numero spia in Posizione determinaa ( Cinzia27)

Sub main()
Dim num(90,2)
r=eval(InputBox("Ruota?",,1))
sp=eval(InputBox("Numero Spia?",,34))
pos=eval(InputBox("Posizione?",,1))
colpi=eval(InputBox("colpi di gioco?",,9))
ini=EstrazioneFin-1000
fin=EstrazioneFin-colpi
Scrivi " Dal "& DataEstrazione(ini)&" "&ini&" al "& DataEstrazione(EstrazioneFin)&" "&fin
Scrivi " Numeri più frequenti usciti dopo il numero Spia in posizione "&pos
casi=0     
For es=ini To fin   
   Messaggio " Spia: "&sp&"  Estrazione : "&es   
   If Posizione(es,r,sp)=pos Then         
      casi=casi+1
      ess=es+1+colpi
      If ess>fin Then ess=fin End If
      For a=es+1 To ess         
         For k=1 To 90           
            n1=Estratto(a,r,1)
            n2=Estratto(a,r,2)
            n3=Estratto(a,r,3)
            n4=Estratto(a,r,4)
            n5=Estratto(a,r,5)
            If n1=k Or n2=k Or n3=k Or n4=k Or n5=k Then
            num(k,1)=k             
            num(k,2)=num(k,2)+1               
            End If                               
         Next         
      Next
   End If       
Next
OrdinaMatrice num, -1, 2

ColoreTesto 1
Scrivi String(70,"*")
Scrivi
Scrivi "Numero spia: "&sp&" su "& NomeRuota(r)&" casi  "&casi&" - numeri più frequenti entro  "&colpi&" colpi",1
Scrivi : Scrivi : ColoreTesto 2
riga="Num.  "
riga1="Freq. "
For i=1 To 10       
      riga=riga & FormatSpace(num(i,1),3)&"   "
      riga1=riga1 & FormatSpace(num(i,2),3)&"   "       
Next
Scrivi riga,1
ColoreTesto 1
Scrivi riga1
End Sub

 

[80Sete]

Cinzia carissima, non ho parole è fantastico, è come ti avevo richiesto,
ho fatto delle prove, ed ho trovato esempi di combinazioni in 11 casi ed anche
in 17 casi avvenuti, posso giostrarmi come voglio, ho solo corretto la durata dei colpi
da 9 a 13, perchè le mie ricerche vanno x la durata di un mese.
Grazie, sei stata gentilissima e veloce......ora mi aspetta solo approfondire "gli studi".
buona serata

 

[Cinzia27]

Bene, 80Sete, contenta di aver centrato la richiesta.
Grazie dell' apprezzamento

 

[solare]

Complimenti Cinzia, bel lavoro !
Come diceva un noto prof.......della previsionistica che tutti conosciamo.
Certi numeri tendono ad uscire meno in certi mesi !
Ora chiedo, sempre che sia possibile.
Non si può aggiungere anche la possibilità della ricerca mensile ?
es: voglio sapere dopo la sortita del 70 in prima posizione quali sono i numeri più frequenti nel mese di Settembre ?

 

[09/09/2021]

Gran bello script @Cinzia27complimenti , ho fatto alcune verifiche, in questi mesi spesso accade che quando si aspetta
" grazie al numero spia, l'esito di un determina ambata "accade che esce uno dei diametrali a volte entrambe di quel numero previsto dalla spia. esempio invece di uscire il 65 previsto esce il 64/63.
Ora mi chiedo è possibile inserire un altra opzione (quante volte è uscito il diametrale o i diametrali del numero previsto dalla spia sulla ruota di gioco?).

 

[Cinzia27]

'Per Solare: N. più frequenti nel mese dopo la sortita di un numero spia in Posizione determinata ( Cinzia27)

Sub main()
Dim num(90,2)
r=eval(InputBox("Ruota?",,7))
sp=eval(InputBox("Numero Spia?",,70))
pos=eval(InputBox("Posizione?",,1))
colpi=eval(InputBox("colpi di gioco?",,9))
ms=eval(InputBox("mese?",,9))
ini=3950
fin=EstrazioneFin-colpi
Scrivi " Dal "& DataEstrazione(ini)&" "&ini&" al "& DataEstrazione(EstrazioneFin)&" "&fin
Scrivi " Numeri più frequenti usciti dopo il numero Spia in posizione "&pos&" nel mese di "&mesenome(ms)
casi=0
For es=ini To fin
If Mese(es)=ms Then
Messaggio " Spia: "&sp&" Estrazione : "&es
If Posizione(es,r,sp)=pos Then
casi=casi+1
ess=es+1+colpi
If ess>fin Then ess=fin End If
For a=es+1 To ess
For k=1 To 90
n1=Estratto(a,r,1)
n2=Estratto(a,r,2)
n3=Estratto(a,r,3)
n4=Estratto(a,r,4)
n5=Estratto(a,r,5)
If n1=k Or n2=k Or n3=k Or n4=k Or n5=k Then
num(k,1)=k
num(k,2)=num(k,2)+1
End If
Next
Next
End If
End If
Next
OrdinaMatrice num, -1, 2

ColoreTesto 1
Scrivi String(70,"*")
Scrivi
Scrivi "Numero spia: "&sp&" su "& NomeRuota(r)&" casi "&casi&" - numeri più frequenti entro "&colpi&" colpi",1
Scrivi : Scrivi : ColoreTesto 2
riga="Num. "
riga1="Freq. "
For i=1 To 10
riga=riga & FormatSpace(num(i,1),3)&" "
riga1=riga1 & FormatSpace(num(i,2),3)&" "
Next
Scrivi riga,1
ColoreTesto 1
Scrivi riga1
End Sub

 

[Cinzia27]

Gran bello script @Cinzia27complimenti , ho fatto alcune verifiche, in questi mesi spesso accade che quando si aspetta
" grazie al numero spia, l'esito di un determina ambata "accade che esce uno dei diametrali a volte entrambe di quel numero previsto dalla spia. esempio invece di uscire il 65 previsto esce il 64/63.
Ora mi chiedo è possibile inserire un altra opzione (quante volte è uscito il diametrale o i diametrali del numero previsto dalla spia sulla ruota di gioco?).

Mi spiace, Mediterraneo. Va al di là delle mie possibilità

 

[09/09/2021]

Mi spiace, Mediterraneo. Va al di là delle mie possibilità

grazie ugualmente per il tuo impegno.

 

[solare]

Grazie Cinzia, provo !

 

[solare]

Qualcosa non va !
Ho provato a mano se io imposto la ricerca del 32 in prima posizione sulla ruota di Cagliari con periodo estrazionale dall'1/8/2020 al 31/7/2021 quindi analizzo solo il mese di agosto del 2020 il listato mi dice che il 32 è presente 12 volte.
Dalle prove che ho effettuato il 32 nello stesso periodo quindi il solo agosto del 2020 non è mai sortito.
In pratica il listato dovrebbe conteggiare le presenze del numero spia nei soli mesi che io indico.

 

[solare]

Scusami Cinzia, forse ho capito
bisogna agire :
ini=9800 ?
altrimenti avere la possibilità che lo script chieda quanti anni analizzare ?

 

[i legend]

Ciao Cinzia ,per come hai impostato lo script non serve fare il ciclo di tutti e 90 i numeri.
Questa sera appena ritorno a casa ti posto lo script costruito in modo un po diverso che sia un po più veloce.
I risultati non cambiano ovviamente.
Questo tipo di ricerche a me non piacciono perché ci sono previsioni che si sovrappongono , ma a livello di script è sempre interessante.
Ciao

 

[Cinzia27]

Qualcosa non va !
Ho provato a mano se io imposto la ricerca del 32 in prima posizione sulla ruota di Cagliari con periodo estrazionale dall'1/8/2020 al 31/7/2021 quindi analizzo solo il mese di agosto del 2020 il listato mi dice che il 32 è presente 12 volte.
Dalle prove che ho effettuato il 32 nello stesso periodo quindi il solo agosto del 2020 non è mai sortito.
In pratica il listato dovrebbe conteggiare le presenze del numero spia nei soli mesi che io indico.

Scusami Cinzia, forse ho capito
bisogna agire :
ini=9800 ?
altrimenti avere la possibilità che lo script chieda quanti anni analizzare ?

Esatto, è alla 9800 che dovevi impostarli, così facendo non ti dà nulla perché non è uscito nell' agosto scorso in prima posizione.

 

[Cinzia27]

Ciao Cinzia ,per come hai impostato lo script non serve fare il ciclo di tutti e 90 i numeri.
Questa sera appena ritorno a casa ti posto lo script costruito in modo un po diverso che sia un po più veloce.
I risultati non cambiano ovviamente.
Questo tipo di ricerche a me non piacciono perché ci sono previsioni che si sovrappongono , ma a livello di script è sempre interessante.
Ciao

Bravo, ILegend.
Anche a me queste ricerche, oltre che si sovrappongono io preferisco i minor ritardi storici alle frequenze, ma questo hanno chiesto

 

[Marco-elle]

Brava Cinzia,
e se posso...vorrei dire la mia,
i record sono fatti per essere battuti,quindi se un qualsiasi metodo
ha una buona statistica non vedo il motivo per non giocarlo....
che si tratti di statistica di ritardi storici,di matematica sommativa
e chi più ne ha più ne metta.L'unica cosa certa è che ci vuole molta
fortuna nel indovinare la previsione giusta,posso assicurare ma credo
che siamo in molti.....di previsioni vincenti ne estrapolo a ogni estrazione
ma puntualmente....sbaglio a scegliere.In poche parole è una roulette russa
e se non c'è il culo(il famoso carpe diem)non si va da nessuna parte

 

[Cinzia27]

Ciao, Marco. Un plauso per aver rimesso la foto di prima: sole e mare e sorriso smagliante. Solo a vederla rallegra.
Sono d' accordo con te, i record vanno battuti e i metodi qualunque essi siano sono tutti validi se danno risultati più o meno costanti nel tempo. Mi ha fatto piacere rispondere a 80Sete, persona che stimo molto e che saprà trarre indubbiamente da questa ricerca qualcosa di buono, ciò che non riesco a fare io.
Parlando di scelta, il mio problema è l' incostanza : qualcuno l' ho azzeccato ma mi sono vista passare tra i miei ambi quelli che avevo smesso di giocare.
Tu sei tra i migliori previsionisti, mi sono salvata l' ultimo tuo script, mi conferma che ora fa quello che dici tu?

 

[Marco-elle]

Ciao, Marco. Un plauso per aver rimesso la foto di prima: sole e mare e sorriso smagliante. Solo a vederla rallegra.
Sono d' accordo con te, i record vanno battuti e i metodi qualunque essi siano sono tutti validi se danno risultati più o meno costanti nel tempo. Mi ha fatto piacere rispondere a 80Sete, persona che stimo molto e che saprà trarre indubbiamente da questa ricerca qualcosa di buono, ciò che non riesco a fare io.
Parlando di scelta, il mio problema è l' incostanza : qualcuno l' ho azzeccato ma mi sono vista passare tra i miei ambi quelli che avevo smesso di giocare.
Tu sei tra i migliori previsionisti, mi sono salvata l' ultimo tuo script, mi conferma che ora fa quello che dici tu?

Si lo script ora va che è una meraviglia e personalmente ho appena giocato la previsione in gioco
anche se...per azzardo ho tolto il 12 che è già uscito sia su BA che su FI,sperando di aver fatto la cosa
giusta perchè con questa iperfrequenza generale,non si può dare nulla per scontato.Ti ringrazio per le belle parole spese nei miei confronti ma....sono come tanti altri ma,con l'accortezza di mettere la
statistica dei numeri in gioco che possono dare un motivo in più per essere considerati,cosa che molti non fanno e se un previsionista non inserisce il motivo della giocata a me non ispira fiducia.Potrei mettere pure io 4 ambate e 2 ruote in gioco per vincere a ogni estrazione.....ma per come la vedo io,è prendere x i fondelli il prossimo

 

[Marco-elle]

Si lo script ora va che è una meraviglia e personalmente ho appena giocato la previsione in gioco
anche se...per azzardo ho tolto il 12 che è già uscito sia su BA che su FI,sperando di aver fatto la cosa
giusta perchè con questa iperfrequenza generale,non si può dare nulla per scontato.Ti ringrazio per le belle parole spese nei miei confronti ma....sono come tanti altri ma,con l'accortezza di mettere la
statistica dei numeri in gioco che possono dare un motivo in più per essere considerati,cosa che molti non fanno e se un previsionista non inserisce il motivo della giocata a me non ispira fiducia.Potrei mettere pure io 4 ambate e 2 ruote in gioco per vincere a ogni estrazione.....ma per come la vedo io,è prendere x i fondelli il prossimo

Chiedo venia ma ho fatto un po di casino!
La previsione l'ho giocata per intero su MI-PA
la BA-FI è lo stesso metodo ma calcolato alla 7° del mese
per avere 2 previsioni mensili.....
Più avanti inserisco anche quelle ricerche

 

[lotto_tom75]

Visto solo ora Cinzia
Semplicemente fantastico.
Bravissima e Grazie.

 

[Cinzia27]

Grazie, Marco della conferma.
E grazie anche a Tom per i complimenti, si, più o meno si può fare meglio, gaffes incluse, ma almeno lo ammetto.