richiesta script a "tutte" per doppi e tripli

[ppaaoolloo]

ritardo numeri multipli a tutte

ciao
guardando le estrazioni a tutte le ruote
ci sono numeri che escono in più ruote.

ad esempio nell'ultima estrazione del 13 agosto
erano usciti su due ruote il 9 il 26 il 29 il 42 il 56 il 59

a volte capita anche che un numero esca anche su tre o quattro ruote

lo script che vorrei chiedere
dovrebbe elencare i numeri sulla ruota "tutte"
con i loro ritardi "doppi" e "tripli"

ringrazio già da subito chi mi vorrà aiutare

ciao

 

[Mike58]

Paolo non capisco questi doppi e tripli ritardi su ruote tutte, ma se invece vuoi vedere la presenza dippia o tripla etc,
allora vedi cosi.

Sub Main

Dim nu(1),ru(1)

Ini = EstrazioneFin - 10

fin = EstrazioneFin

For es = Ini To fin

For x = 1 To 90

nu(1) = x

ru(1) = 11

sf = SerieFreq(es,es,nu,ru,1)

Call VerificaEsito(nu,ru,es,1,,,,,estratti,id)

If sf > 1 Then

Scrivi GetInfoEstrazione(es) & vbTab,0,0

Scrivi StringaNumeri(nu,,1) & vbTab,1,0

Scrivi sf & vbTab,0,0

Scrivi estratti

End If

Next

Scrivi String(120,"-")

Next

End Sub

 

[ppaaoolloo]

ciao Mike
e grazie ancora per la tua disponibilità,
so che a volte faccio confusione nello spiegare
ma riproverò a spiegarmi meglio un poco alla volta
per non far confusione.

questo script che tu hai fatto, fa vedere benissimo i numeri
quante volte si sono ripetuti e su quali ruote sono usciti nelle ultime 11 estrazioni.

prendiamo ad esempio l''ultima estrazione quella del 13.08.2015:
il numero 9 è uscito a BA e CA
il numero 26 è uscito a MI e VE
il numero 29 è uscito a FI e NA
ecc.ecc.
(io intendo questo per doppio, cioè è il numero 9 è uscito su due ruote BA-CA nella stessa data, il numero 26 è uscito su due ruote nella stessa data, ed anche il 29 è uscito su due ruote)

- nello script vorrei sapere quando era uscito Il numero 9 nella stessa data su due ruote, ebbene, erano usciti due numeri 9 in data 04.08.2015, quindi il "ritardo doppio" del numero 9 era di 4 estrazioni prima che uscissero nell'estrazione del 13.08.2015
- il numero 26 era uscito due volte nell'estrazione del 23.07.2015 quindi aveva un ritardo corrente di 9 estrazioni
- il numero 29 era uscito due volte nell'estrazione del 25.06.2015 quindi aveva un ritardo di 21 estrazioni
ecc. ecc.

lo script dovrebbe contenere i 90 numeri ed
al loro fianco i rispettivi "ritardi doppi" (cioè il ritardo che hanno da quando erano usciti su due ruote nella stessa data.


fammi sapere se ora ti è più chiaro quello che vorrei nello script e se è possibile realizzarlo

grazie della tua pazienza e del tempo che ci dedichi

ciao

 

[Joe91]

Ciao Paolo.

Forse nel primo messaggio dovevi aggiungere che

la ricerca si effettua nella stessa estrazione.

Ove è possibilie evidenziare più presenze di uno stesso "Estratto":

Pres = 1
Pres = 2
Pres = 3
Pres = 4
Pres = 5

08.08.2015
BA 21 12 08 68 46
CA 32 08 43 80 45
FI 31 22 30 24 84
GE 08 22 20 07 46
MI 31 07 64 24 56
NA 01 31 34 22 29
PA 42 62 19 15 21
RO 58 78 77 39 17
TO 54 71 33 90 78
VE 38 13 73 06 21

11.08.2015
BA 27 02 89 16 05
CA 12 48 64 07 25
FI 27 76 72 12 74
GE 64 34 58 40 38
MI 06 34 89 37 44
NA 26 85 36 19 03
PA 02 62 83 56 76
RO 16 41 68 83 82
TO 33 80 46 24 64
VE 06 57 43 64 22

13.08.2015
BA 04 09 20 03 51
CA 84 60 35 15 09
FI 29 77 42 22 08
GE 85 56 74 79 28
MI 81 39 89 87 26
NA 72 01 12 29 51
PA 40 37 59 54 47
RO 63 71 06 27 83
TO 80 17 69 50 42
VE 19 48 59 26 56


Quindi, ora ,in attesa di quanto risulterà a Mike ...

ti propongo per verifica il 5 come capolista

con una quarntina di estrazioni dalla sua presenza multipla.

Seguito dal 48 e dal 32 ... in attesa rispettivamente da 35 e da 32 estrazioni.

Poi nell'ordine ancora 36 e 69.

Il 69 ... avendolo visito per altre ragioni, far parte dei radicali ...

E... qui mi fermo. Perchè ho già scritto sin troppi numeri.

 

[Mike58]

paolo mi spiace ma questo dato non mi riesce di estrapolarlo,

Poi in questo periodo ho poco tempo.

mi spiace ancora alla prossima.

 

[ppaaoolloo]

Ciao Mike
grazie lo stesso ,
spero che ci sia qualcun altro dei numerosi e bravi scripter
che frequentano e scrivono in questo forum che abbia la
voglia e la pazienza di farlo

ciao

 

[Joe91]

Scusate ... l'uno e l'altro.

Ma a parer mio ... è molto più semplice di come la disegnate.

Sarà perchè ho già fatto e proposto in passato ... ma si risolve con poche linee di istruzioni.

Inoltre ora, con la possibilità di gestire tabelle ordinabili è proprio davvero semplice.

 Option Explicit
Sub Main
'Ritardo di multi-Presenza By Joe
	Dim Ini,Fin,Es,F,N,Rit(90),k,Nu(2)
	Ini = 1 : Fin = EstrazioneFin
	Dim Tit(2) : Tit(1) = "Num / TT" : Tit(2) = "Rit_Multi-Presenza"
	InitTabella Tit
	For Es = Fin To Ini Step - 1
		For N = 1 To 90
			F = EstrattoFrequenza(11,N,Es,Es)
			If F > 1 Then 
				If Rit(N) = "" Then Rit(N) = Fin - Es : k = k + 1
			End If
		Next
		If k = 90 Then Exit For
	Next
	For N = 1 To 90 : Nu(1) = N : Nu(2) = Rit(N) : 	AddRigaTabella(Nu) : Next
	CreaTabellaOrdinabile 2
End Sub

 

[ppaaoolloo]

ciao Joe
per me andrebbe anche bene così con
la definizione "multipresenza",
ma se ti avanza del tempo ti prego
di aggiungere altre colonne una per
le doppie uscite e l'altra per le triple uscite

poi la possibilità di gestire tabelle ordinabili
è molto bello anche da usare

grazie ancora di cuore

ciao

 

[Mike58]

Ottimo Joe, semplice si, ma anche con un bel ragionamento per arrivare allo scopo.
Alcune volte si affoga in un bicchiere mezzo pieno.

Grazie comunque anche da parte mia.

 

[Joe91]

Ciao Mike ...

Si, "la cosa" spesso più difficile è trovare la soluzione ... buona.

Ho corretto lo script ... dividendo Bi-Presenze e Tri-Presenze.

E' richiesta, ma non mi piace, perchè come dico sempre escono come "vogliono loro",

e non a coppie o in terne come vorremmo predeterminare noi.

Inoltre dire che sono usciti in tre ma non erano in due ... è anche un pò strano!

Quando accade che, alcune volte, sono 4. (Ed anche molto raramente 5)

Lo abbiamo recentemente, visto al messaggio #4, che il 64, era presente 4 volte.

In Ca_ Ge_ To_ Ve_ l' 11/8/2015.

 

[i legend]

ciao a tutti
complimenti a entrambi per gli script
Joe da te c'è sempre da imparare,ma francamente preferisco il primo codice che hai proposto bastava lavorare su
if F>1 e metterci quello che preferisci ">= ","=" e mettere il valore

Grandi script

 

[i legend]

ciao Mike anche il tuo codice funzionava bastava aggiungere una riga di codice
Sei mitico
Ciao a tutti

Sub Main
    Dim nu(1),ru(1)
    Ini = EstrazioneFin - 100
    fin = EstrazioneFin
    ru(1) = 11
    For x = 1 To 90
        rit = 0
        nu(1) = x
        For es = Ini To fin
            sf = SerieFreq(es,es,nu,ru,1)
            'Call VerificaEsito(nu,ru,es,1,,,,,estratti,id)
            If sf >= 2 Then rit = 0 : Else rit = rit + 1   ' qui scelgo se "> ","=", ">=" di quante volte vogliamo
        Next
        'Scrivi GetInfoEstrazione(es) & vbTab,0,0
        Scrivi StringaNumeri(nu,,1) & vbTab,1,0
        Scrivi sf & vbTab,0,0
        Scrivi rit
        Scrivi String(120,"-")
    Next
End Sub

i risultati sembrano allineati allo script di joe

 

[Joe91]

Riassumo quotando ...

ciao Joe
per me andrebbe anche bene così con
la definizione "multipresenza",
ma se ti avanza del tempo ti prego
di aggiungere altre colonne una per
le doppie uscite e l'altra per le triple uscite

poi la possibilità di gestire tabelle ordinabili
è molto bello anche da usare

grazie ancora di cuore

ciao

ed integrando quanto ho scritto al messaggio #10

Ho corretto lo script ... dividendo Bi-Presenze e Tri-Presenze.

E' richiesta, ma non mi piace, perchè come dico sempre escono come "vogliono loro",

e non a coppie o in terne come vorremmo predeterminare noi.

Inoltre dire che sono usciti in tre ma non erano in due ... è anche un pò strano!

Quando accade che, alcune volte, sono 4. (Ed anche molto raramente 5)

Lo abbiamo recentemente, visto al messaggio #4, che il 64, era presente 4 volte.

In Ca_ Ge_ To_ Ve_ l' 11/8/2015.

Dunqe ho cancellato lo script "presente" a quel messaggio ... perchè a parere mio è proprio sbagliato.

Non solo "disgustoso". Quindi invito chi lo detenesse ... a cestinarlo!

E ... sostituirlo, come qui di seguito descritto, con uno migliore.

Mi spiego, dando contestualmente soluzione, motivata, alla richiesta:

I risultati, secondo me, non devono essere intesi come "multipresenze" e ...

... non devono considerarsi come un "Soggetto Indipendente".

Ma come "gruppi di presenze" intese, quasi come un "Ambo di Ruote" per ogni "presenza doppia"

Una Terna di presenze come un "Terno di Ruote" ... ecc...

Da estendersi anche alla "Ruota-Singola" come "singola presenza" ... e dunque come "Ritardo a Tutte".

Alla "Quaterna" ed alla Cinquina. (Fosse possibile nei nostri, scarsi, tempi ... umani. ... l'ho esclusa)

Quindi come l'uscita del Terno "azzera" il ritardo degli Ambi di cui si compone ...

così la Quaterna quello dei dei Terni

E ... l' Ambo quello degli Estratti (che lo compongono) ...

Dunque così, ho inteso debba funzionare.

Essendo abbastanza veloce, ho considerato tutto l'archivio a 10 ruote dal 14/09/1946 ad oggi.

Option Explicit
Sub Main
'Ritardo di Presenza in più Ruote By Joe
Dim Ini,Fin,Es,F,N,Tit(5),Uno(90),Bis(90),Ter(90),Qua(90),Nu(5)
Ini = 3950 : Fin = EstrazioneFin
Tit(1) = "NU / TT" : Tit(2) = " Rit  1 Pres." : Tit(3) = "Rit  2 Pres." : Tit(4) = " Rit 3 Pres.": Tit(5) = " Rit 4 Pres. "
InitTabella Tit
For Es = Fin To Ini Step - 1 : AvanzamentoElab Fin,Ini,Es
For N = 1 To 90
F = EstrattoFrequenza(11,N,Es,Es)
If F >= 4 Then
If Qua(N) = "" Then Qua(N) = Fin - Es
End If
If F >= 3 Then
If Ter(N) = "" Then Ter(N) = Fin - Es
End If
If F >= 2 Then
If Bis(N) = "" Then Bis(N) = Fin - Es
End If
If F >= 1 Then
If Uno(N) = "" Then Uno(N) = Fin - Es
End If
Next
Next
For N = 1 To 90
Nu(1) = N : Nu(2) = Uno(N) : Nu(3) = Bis(N) : Nu(4) = Ter(N): Nu(5) = Qua(N)
AddRigaTabella(Nu)
Next
CreaTabellaOrdinabile
End Sub

Cordiali saluti

 

[i legend]

Bellissimo Lavoro ciao Joe grazie per il code Ciao a tutti

 

[ppaaoolloo]

ciao Joe
adesso è perfetto davvvero,
meglio di come l'avevo pensato

grazie davvero tanto

ciao

 

[Alien.]

Riassumo quotando ...



ed integrando quanto ho scritto al messaggio #10



Dunqe ho cancellato lo script "presente" a quel messaggio ... perchè a parere mio è proprio sbagliato.

Non solo "disgustoso". Quindi invito chi lo detenesse ... a cestinarlo!

E ... sostituirlo, come qui di seguito descritto, con uno migliore.

Mi spiego, dando contestualmente soluzione, motivata, alla richiesta:

I risultati, secondo me, non devono essere intesi come "multipresenze" e ...

... non devono considerarsi come un "Soggetto Indipendente".

Ma come "gruppi di presenze" intese, quasi come un "Ambo di Ruote" per ogni "presenza doppia"

Una Terna di presenze come un "Terno di Ruote" ... ecc...

Da estendersi anche alla "Ruota-Singola" come "singola presenza" ... e dunque come "Ritardo a Tutte".

Alla "Quaterna" ed alla Cinquina. (Fosse possibile nei nostri, scarsi, tempi ... umani. ... l'ho esclusa)

Quindi come l'uscita del Terno "azzera" il ritardo degli Ambi di cui si compone ...

così la Quaterna quello dei dei Terni

E ... l' Ambo quello degli Estratti (che lo compongono) ...

Dunque così, ho inteso debba funzionare.

Essendo abbastanza veloce, ho considerato tutto l'archivio a 10 ruote dal 14/09/1946 ad oggi.

Option Explicit
Sub Main
'Ritardo di Presenza in più Ruote By Joe
Dim Ini,Fin,Es,F,N,Tit(5),Uno(90),Bis(90),Ter(90),Qua(90),Nu(5)
Ini = 3950 : Fin = EstrazioneFin
Tit(1) = "NU / TT" : Tit(2) = " Rit 1 Pres." : Tit(3) = "Rit 2 Pres." : Tit(4) = " Rit 3 Pres.": Tit(5) = " Rit 4 Pres. "
InitTabella Tit
For Es = Fin To Ini Step - 1 : AvanzamentoElab Fin,Ini,Es
For N = 1 To 90
F = EstrattoFrequenza(11,N,Es,Es)
If F >= 4 Then
If Qua(N) = "" Then Qua(N) = Fin - Es
End If
If F >= 3 Then
If Ter(N) = "" Then Ter(N) = Fin - Es
End If
If F >= 2 Then
If Bis(N) = "" Then Bis(N) = Fin - Es
End If
If F >= 1 Then
If Uno(N) = "" Then Uno(N) = Fin - Es
End If
Next
Next
For N = 1 To 90
Nu(1) = N : Nu(2) = Uno(N) : Nu(3) = Bis(N) : Nu(4) = Ter(N): Nu(5) = Qua(N)
AddRigaTabella(Nu)
Next
CreaTabellaOrdinabile
End Sub

Cordiali saluti

CIAO,scusami ma mi da errore
CreaTabellaOrdinabile l'ho cancellato poi il risultato è che mi da la pagina bianca...... come si risolvere,grazie.

 

[Joe91]

CIAO,scusami ma mi da errore
CreaTabellaOrdinabile l'ho cancellato poi il risultato è che mi da la pagina bianca...... come si risolvere,grazie.

No, non puoi togliere la tabella che è "il tutto".

Funziona solo su Spaziomeria.

MA ... da quando hai paciugato gli archivi inserendo e sostituendolo con quello ITZ

che è di un altro programma ... hai fatto cose ... che noi umani non possiamo neanche immaginare.

Non ho idea ... di cosa tu possa aver fatto di quel povero PC.

Quindi no, non funziona, e non so proprio come ti si possa aiutare.

Forse l'unica potrebbe essere ritornare il Sistema Operaivo a qualche mese fa ...

o reinstallare ... dopo una pulizia radicale.

Ma bisogna saperlo fare, o si rischia di peggiorare ulteriormente la situazione.

 

[Alien.]

hahahahah si vero ma ho la mente elastica..............ho risolto il tutto.......adesso funziona ...grazie.