Joe91 come faccio

[joe]

Ciao Eugenio.

Si ho riutilizzato la varabile "N".

Come vedi nella prima parte dello script essa termina di essere utile.

Pertanto l'ho resa disponibile per altri scopi.

Ripropongo lo script con le aggiunte già descritte

assieme ad alcune piccole modifiche nel suo output.

Ho lasciato "remmata" l'istruzione che determina l'azzeramento del contatore cicli.

Sbloccandola si può notare come essa

trasforma il "contatore dei cicli" in

"contatore dei cicli di ritardo".

Option Explicit
Sub Main
Dim P,I,F 'Primario / Inizio / Fine
Dim N ' Ciclo -Enne- Estrazioni
Dim S 'Secondario
Dim E 'Estrazione
Dim Numeri(10)
Dim Ruota
Dim L
Dim Pos
Dim Q
Dim Bold
Dim CP,CC
Ruota = BA_
ColoreTesto 2
Scrivi NomeRuota(Ruota) & " ",True,False
For N = 1 To 10 : Numeri(N) = N : Next
Scrivi StringaNumeri(Numeri,,True),True
ColoreTesto 0
Scrivi
'DATI :
I = 3862 'Inizio Principale
F = EstrazioneFin 'Fine Principale
N = 9 'Numero di estrazioni per ciclo
For P = I To F Step 9 'Ciclo principaleI=z
CC = CC + 1 'Contatore Cicli Aumenta di 1 ad ogni passaggio
CP = 0 'CP = Contatore Presenze = 0
For S = 0 To N - 1 'Ciclo Secondario
E = P + S 'Estrazione nel ciclo
Scrivi E & "  " & DataEstrazione(E) & "  ",0,0
For Pos = 1 To 5 'leggo gli estratti uno ad uno
L = Estratto(E,Ruota,Pos) ''
For Q = 1 To 10
If Numeri(Q) = L Then
CP = CP + 1
ColoreTesto 2
Bold = True
End If
Next
Scrivi Format2(L),Bold,0 ''' Li Scrivo singolarmente
ColoreTesto 0 : Bold = False
If Pos < 5 Then Scrivi ".",False,False
Next
Scrivi
Next
ColoreTesto 1 : Scrivi "Ciclo N° " & FormatSpace(CC,4,True),True,False
Scrivi Space(7),False,False
ColoreTesto 2 : Scrivi "Presenze " & CP,True : ColoreTesto 0
REM  If CP >= 7 Then CC = 0 'AZZERA IL CONTATORE NEI "CICLI POSITIVI"
If E = 4311 Then Exit For
Scrivi String(32,"-")
Next
End Sub

 

[genios]

Si va bene . Ho omesso la Rem e fatto girare fino all' estrazione attuale . Visualmente salvo errori ho riscontrato il massimo di 17 cicli .
Ora se possibile dovremmo trovare il Max in Automatico .
e il ritardo attuale . Poi un' altra cosa che non oso chiederti .

Ciao Eugenioi

 

[joe]

Ciao Eugenio,

buona serata a tutte/i.

Avevo già predisposto una variabile per raccogliere

il valore del massimo numero di cicli senza risultati soddisfacenti.

Definito un pò impropriamente "Storico" ... un'idea, la da.

Ho aggiunto un'uscita in prossimità del limite finale dell'archivio

ed alcune cosette marginali.

Mancano "protezioni" contro i buchi presenti in archivio

prima dell'estrazione 3950 ed in alcune ruote.

Ma ... penso che il grosso del lavoro lo svolga piuttosto efficientemente.

Quindi, per ora e per prova, allego questa versione aggiornata dello script.

Option Explicit
Sub Main
Dim P,I,F 'Primario / Inizio / Fine
Dim N ' Ciclo -Enne- Estrazioni
Dim S 'Secondario
Dim E 'Estrazione
Dim Numeri(10)
Dim Ruota
Dim L
Dim Pos
Dim Q
Dim Bold
Dim CP,CC,ST
Ruota = BA_
ColoreTesto 2
Scrivi NomeRuota(Ruota) & " ",True,False
For N = 1 To 10 : Numeri(N) = N : Next
Scrivi StringaNumeri(Numeri,,True),True
ColoreTesto 0
Scrivi
'DATI :
I = 3862 'Inizio Principale
F = EstrazioneFin 'Fine Principale
N = 9 'Numero di estrazioni per ciclo
For P = I To F Step 9 'Ciclo principale
AvanzamentoElab I,F,P
CC = CC + 1 'Contatore Cicli Aumenta di 1 ad ogni passaggio
CP = 0 'CP = Contatore Presenze = 0
For S = 0 To N - 1 'Ciclo Secondario
E = P + S 'Estrazione nel ciclo
If E > F Then Exit For
Scrivi E & "  " & DataEstrazione(E) & "  ",0,0

For Pos = 1 To 5 'leggo gli estratti uno ad uno
L = Estratto(E,Ruota,Pos) ''
For Q = 1 To 10
If Numeri(Q) = L Then
CP = CP + 1
ColoreTesto 2
Bold = True
End If
Next
Scrivi Format2(L),Bold,0 ''' Li Scrivo singolarmente
ColoreTesto 0 : Bold = False
If Pos < 5 Then Scrivi ".",False,False
Next
Scrivi
Next
ColoreTesto 1 : Scrivi "Ciclo N° " & FormatSpace(CC,4,True),True,False
Scrivi Space(7),False,False
ColoreTesto 2 : Scrivi "Presenze " & CP,True : ColoreTesto 0
If CC > ST Then ST = CC
If CP >= 7 Then CC = 0 'Azzera il contatore nei cicli maggiormente "positivi"

Scrivi String(32,"-")
Next
ColoreTesto 1
Scrivi "Storico" & FormatSpace(ST,6,True),True
ColoreTesto 0
End Sub

 

[genios]

Ciao Joe lo script va bene . Sarebbe possibile sapere quante volte la condizione delle minimo 7 presenze si è verificata al ciclo 1 al ciclo 2 al ciclo 3 e cosi via fino al max storico espresso in cicli ?

 

[joe]

Ciao Eugenio.


Dovrebbe essere:


Target Raggiunti
Ciclo Volte
01 .... 33
02 .... 34
03 .... 17
04 .... 16
05 .... 5
06 .... 15
07 .... 7
08 .... 2
09 .... 1
10 .... 4
11 .... 2
12 .... 2
14 .... 1
15 .... 3
16 .... 2
17 .... 1

 

[genios]

Joe si puo' avere lo script che restituisce le volte che la condizione si è verificata nei vari cicli .

Ciao Eugenio

 

[joe]

Ciao Joe lo script va bene . Sarebbe possibile sapere quante volte la condizione delle minimo 7 presenze si è verificata al ciclo 1 al ciclo 2 al ciclo 3 e cosi via fino al max storico espresso in cicli ?

Joe si puo' avere lo script che restituisce le volte che la condizione si è verificata nei vari cicli .

Ciao Eugenio ...

Non c'è un altro script.

E ... lo script che c'è lo conosci bene.

Coraggio, prova a scrivere tu le aggiunte. E' facile.

Hai scritto tra virgolette ... o sappiamo che, che c'è un massimo di 17 cilcli (CC),

prima che avvenga "un" azzeramento.

Quindi crei un Array per gli azzeramenti (abbondante)

Dim A(20)

Poi dove ... "si azzera" il contatore dei cicli (CC)

--- PRIMA CHE SI AZZERI (CC) ---

aggiungi un "+1" per ogni evenienza dell' Azzeramento (CC).

Terminata l'analisi di tutte le estrazioni in archivio ...

cioè subito prima della fine dello script e dopo l'ultimo Next

Visualizzi i conteggi effettuati

For N = 1 to 20
Scrivi N & " " A(N)
Next

 

[genios]

Ok Joe provo se riesco a modificare lo script .

 

[genios]

Joe stavo rileggendo il post .Quando nel post #30 scrivevi :

E' evidente che tra le molte soluzioni possibili,

stai impostando lo script su quella che prevede il livello

più basso di evoluzione Basic.

Quindi sara quella, più compatibile.

Ma è anche quello che richiede più codice.

Pur essendo più semplice.

Quindi prima di vedere altre soluzioni con istruzioni più "potenti" ...

stiamo a quello che hai tracciato.

Quando ti riferisci a istruzioni piu' potenti
ti riferisci all' uso della funzione seriefrequenza?

Ciao Eugenio

 

[joe]

Ciao Eugenio.

Si. Spesso le soluzioni sono più d'una.

Altretttanto spesso, dipendono dall'impostazione che si da allo script.

Per questo è importante "sapere prima" cosa si deve fare.

 

[genios]

Joe se volessi cercare all' interno del ciclo gli ambi che la formazione numerica ha dato devo usare la funzione serie frequenza ?

Ciao Eugenio

 

[joe]

Ciao Eugenio.

La risposta è sempre identica. Ci sono molte soluzioni tutte più o meno valide.

"Il minimo" è trovarne una sufficiente a risolvere il problema.

"Il massimo" è riuscire ad avere lo script perfetto. (Ed è equiparabile all'impossibile)

Significa dovrebbe essere: Giusto, efficiente, veloce, facile, modificabile, capibile ...

capace di sfruttare 'al massimo" l'ambiente ed al meglio tutte le risorse disponibili.

Dunque ... può essere che l'istruzione SerieFrequenza ne faccia parte.

Ma se lo script è organizzato malamente o per altra soluzione ...

potrebbe essere difficile integrarla.

Quindi non è per essere scortese, ma è meglio, se "la cosa" te la studi da solo.

Perchè risolvendo i problemi ... impari,

diversamente sprechi energie a capire le soluzioni adottate dagli altri

senza poi, saper risolvere "il problema" da solo.

Dunque "SerieFreq" richiede:

* inizio

* fine (di un periodo),

* un array per i numeri,

* un array per le ruote

* un numero che è la sorte

di cui si vuole sapere "le presenze / nel periodo".

Se vuoi usare questa istruzione ti devi preoccupare di avere TUTTI

i paramentri necessari per poterla usare "organizzati come sono richiesti".

Poi dovrai pensare a come contenere, disporre, organizzare e conteggiare

i risultati restituiti da questa istruzione o funzione.

 

[genios]

Partendo dal tuo script

[B]Option[/B] [B]Explicit[/B]
[B]Sub[/B] [B]Main[/B]
[B]Dim[/B] [B]P[/B],[B]I[/B],[B]F[/B] 'Primario / Inizio / Fine
[B]Dim[/B] [B]N[/B] ' Ciclo -Enne- Estrazioni
[B]Dim[/B] [B]S[/B] 'Secondario
[B]Dim[/B] [B]E[/B] 'Estrazione
[B]Dim[/B] [B]Numeri[/B](10)
[B]Dim[/B] [B]Ruota[/B]
[B]Dim[/B] [B]L[/B]
[B]Dim[/B] [B]Pos[/B]
[B]Dim[/B] [B]Q[/B]
[B]Dim[/B] [B]Bold[/B]
[B]Dim[/B] [B]CP[/B],[B]CC[/B]
[B]Ruota[/B] [B]=[/B] [B]BA_[/B]
[B]Scrivi[/B] [B]NomeRuota[/B]([B]Ruota[/B]) [B]&[/B] " ",0,0
[B]For[/B] [B]N[/B] [B]=[/B] 1 [B]To[/B] 10
[B]Numeri[/B]([B]N[/B]) [B]=[/B] [B]N[/B]
[B]Next[/B]
[B]Scrivi[/B] [B]StringaNumeri[/B]([B]Numeri[/B],,[B]True[/B])
[B]Scrivi[/B]
      'DATI :
[B]I[/B] [B]=[/B] 3862 'Inizio Principale
[B]F[/B] [B]=[/B] [B]EstrazioneFin[/B] 'Fine Principale
[B]N[/B] [B]=[/B] 9 'Numero di estrazioni per ciclo
[B]For[/B] [B]P[/B] [B]=[/B] [B]I[/B] [B]To[/B] [B]F[/B] [B]Step[/B] 9 'Ciclo principaleI=z
[B]CC[/B] [B]=[/B] [B]CC[/B] [B]+[/B] 1 'Contatore Cicli Aumenta di 1 ad ogni passaggio
[B]CP[/B] [B]=[/B] 0 'CP = Contatore Presenze = 0
[B]For[/B] [B]S[/B] [B]=[/B] 0 [B]To[/B] [B]N[/B] [B]-[/B] 1 'Ciclo Secondario
[B]E[/B] [B]=[/B] [B]P[/B] [B]+[/B] [B]S[/B] 'Estrazione nel ciclo
[B]Scrivi[/B] [B]E[/B] [B]&[/B] "  " [B]&[/B] [B]DataEstrazione[/B]([B]E[/B]) [B]&[/B] "  ",0,0
[B]For[/B] [B]Pos[/B] [B]=[/B] 1 [B]To[/B] 5 'leggo gli estratti uno ad uno
[B]L[/B] [B]=[/B] [B]Estratto[/B]([B]E[/B],[B]Ruota[/B],[B]Pos[/B]) ''
[B]For[/B] [B]Q[/B] [B]=[/B] 1 [B]To[/B] 10
[B]If[/B] [B]Numeri[/B]([B]Q[/B]) [B]=[/B] [B]L[/B] [B]Then[/B]
[B]CP[/B] [B]=[/B] [B]CP[/B] [B]+[/B] 1
[B]ColoreTesto[/B] 2
[B]Bold[/B] [B]=[/B] [B]True[/B]
[B]End[/B] [B]If[/B]
[B]Next[/B]
[B]Scrivi[/B] [B]Format2[/B]([B]L[/B]),[B]Bold[/B],0 ''' Li Scrivo singolarmente
[B]ColoreTesto[/B] 0 : [B]Bold[/B] [B]=[/B] [B]False[/B]
[B]If[/B] [B]Pos[/B] [B]<[/B] 5 [B]Then[/B] [B]Scrivi[/B] ".",[B]False[/B],[B]False[/B]
[B]Next[/B]
[B]Scrivi[/B]
[B]Next[/B]
[B]ColoreTesto[/B] 1 : [B]Scrivi[/B] "Ciclo N°  " [B]&[/B] [B]CC[/B],[B]True[/B] : [B]ColoreTesto[/B] 0
[B]ColoreTesto[/B] 2 : [B]Scrivi[/B] "Presenze  " [B]&[/B] [B]CP[/B],[B]True[/B] : [B]ColoreTesto[/B] 0
[B]If[/B] [B]CC[/B] [B]=[/B] 50 [B]Then[/B] [B]Exit[/B] [B]For[/B]
[B]Scrivi[/B] [B]String[/B](32,"-")
[B]Next[/B]
[B]End[/B] [B]Sub[/B]

Omettendo questa parte del tuo script e aggiungendo la funzione stringa estratti

[B]For[/B] [B]Pos[/B] [B]=[/B] 1 [B]To[/B] 5 'leggo gli estratti uno ad uno
[B]L[/B] [B]=[/B] [B]Estratto[/B]([B]E[/B],[B]Ruota[/B],[B]Pos[/B]) ''
[B]For[/B] [B]Q[/B] [B]=[/B] 1 [B]To[/B] 10
[B]If[/B] [B]Numeri[/B]([B]Q[/B]) [B]=[/B] [B]L[/B] [B]Then[/B]
[B]CP[/B] [B]=[/B] [B]CP[/B] [B]+[/B] 1
[B]ColoreTesto[/B] 2
[B]Bold[/B] [B]=[/B] [B]True[/B]
[B]End[/B] [B]If[/B]
[B]Next[/B]
[B]Scrivi[/B] [B]Format2[/B]([B]L[/B]),[B]Bold[/B],0 ''' Li Scrivo singolarmente
[B]ColoreTesto[/B] 0 : [B]Bold[/B] [B]=[/B] [B]False[/B]
[B]If[/B] [B]Pos[/B] [B]<[/B] 5 [B]Then[/B] [B]Scrivi[/B] ".",[B]False[/B],[B]False[/B]
[B]Next[/B]
[B]Scrivi[/B]

In uscita avremmo :

 Bari 01.02.03.04.05.06.07.08.09.10  

 3862  05.01.1945  87.34.01.59.50    
 3863  13.01.1945  06.66.01.16.48    
 3864  20.01.1945  38.14.24.78.36    
 3865  27.01.1945  49.30.87.15.65    
 3866  03.02.1945  30.64.36.05.32    
 3867  10.02.1945  15.36.37.86.31    
 3868  17.02.1945  86.78.69.07.60    
 3869  24.02.1945  83.07.72.88.19    
 3870  03.03.1945  47.20.77.73.30    
[B]Ciclo N°  1[/B]  
[B]Presenze  0[/B]  
 --------------------------------  
 3871  10.03.1945  20.24.48.16.33    
 3872  17.03.1945  77.35.23.10.86    
 3873  24.03.1945  83.33.37.24.54    
 3874  31.03.1945  87.22.04.46.78    
 3875  07.04.1945  88.06.60.28.21    
 3876  14.04.1945  21.50.30.67.82    
 3877  21.04.1945  88.28.05.22.35    
 3878  28.04.1945  27.50.37.30.25    
 3879  05.05.1945  37.19.53.21.15    
[B]Ciclo N°  2[/B]  
[B]Presenze  0[/B]  
 --------------------------------  
 3880  12.05.1945  17.22.63.62.85    
 3881  19.05.1945  46.84.40.17.16    
 3882  26.05.1945  37.84.01.68.10    
 3883  02.06.1945  72.50.87.41.67    
 3884  09.06.1945  66.30.89.57.48    
 3885  16.06.1945  29.27.35.75.36    
 3886  23.06.1945  02.72.09.01.55    
 3887  30.06.1945  33.89.17.40.64    
 3888  07.07.1945  70.90.63.26.54    
[B]Ciclo N°  3[/B]  
[B]Presenze  0[/B]

Quindi dovremmo fare la ricerca all’ interno del ciclo estrazionale di 9 estrazioni con la funzione SerieFrequenza . Nel senso che nella parte di codice che ho tolto devo lavorare sulla funzione SerieFrequenza per avere i risultati voluti dimmi se è giusto o sbagliato .

Ciao Eugenio

 

[joe]

Ciao.

Lo script fornisce (in qualche modo ha) "i dati" necessari,

però era stato costruito privilegiando alcuni aspetti ...

... cioè per fornire un riscontro immediato e visivo, in "una tabella".

Vedi la Ruota che sarà da fornire in array.

I numeri

I punti di inizio e fine ciclo (rossi e blu in distanza di 9 estrazioni).

e la tabella ... dalla quale ricavare la Frequenza.

Bisogna cioè andare ad inercettare tutti questi punti nello script

ed eventualmente adattare i dati alle richieste della funzione.

Essi essendo "a video" erano posti dopo l'istruzione "scrivi".

Dunque sono da cercare in quei punti.
[IMG2=JSON]{"data-align":"none","data-size":"full","src":"http:\/\/i68.tinypic.com\/f53ght.jpg "}[/IMG2]

 

[joe]

se volessi cercare all' interno del ciclo gli ambi

è una frase ambigua, che deve essere esplicitata.

Ovvero sembrerebbe che il periodo ... sia il ciclo ...

... mentre poi sostituendo la parte dello script con StringaEstratti,

pare tu voglia cercare nella "singola-estrazione"

... cioè nella "StringaEstratti".

Con SerieFreq si può

* cercare in ogni singola estrazione;

(eppoi sommare i singoli risultati per ottenere un totale nel periodo).

* ottenere direttamente il totale del periodo.

In questo secondo modo, si perde, la possibilità

di conteggiare/evidenziare tutti i risultati della singola estrazione.

Diciamo subito che se la ricerca è in una estrazione,

Inizio e Fine (periodo) coincidono.

Ini = Es : Fin = Es

e l'istruzione può essere anche:

Totale Estrazione = SerieFreq (Es,Es,Nu,Ru,2)

Se fosse nell' intero-periodo

abbiamo già scritto che sono "9 estrazioni"

Con Enne = 9 ... "il limite" del periodo è "n-1"

Quindi con riferimento ad una generica Estrazione "Es"

Avremo come altro limite Es +/- 8 Estrazioni.

Positivamente:

Ini = Es : Fin = Es+8

ed il Totale Periodo = SerieFreq (Ini,Fin,Nu,Ru,2)

 

[joe]

Buon Giorno a tutte/i.

Dopo aver già detto quasi tutto di SerieFrequenza e di come andrebbe usata ...

Prima ... di aver eliminato parte dello script, come ha fatto Eugenio,

propongo ... un piccolo spazio in cui riflettere su alcune "cose".

L' Ambo, cabalisticamente (così ci è stato detto essere nelle regole del gioco)

si realizza (o se ne realizzano) se in Ogni Singola Estrazione

ci sono 2 o più Estratti tra i Lottroni tentati (alla sorte).

( I ) se ci sono più Estratti in una singola Estrazione ... c'è almeno un Ambo.

( II ) Si devono contare i risultati-utili presenti in ogni Estrazione,

( III ) dal numero di questi Estratti si "deduce" la Sorte realizzata.

.... Cioè il numero di Ambi.

Algoritmo:

Si predispone azzerandolo, un "Contatore Presenze in ogni Estrazione" ... e poi ...

lo si incrementa di 1 per ogni Estratto.

Nello script abbiamo già CP che funziona quasi così!

Perciò ne inseriamo un altro "CPE" che PERO' si azzera ad ogni Estrazione.

In ultimo ... scriviamo "selettivamente" le Sorti >= dell' Ambo .

Option Explicit
Sub Main
Dim P,I,F 'Primario / Inizio / Fine
Dim N '-Enne- Numeri / Ciclo -Enne- Estrazioni
Dim S 'Secondario
Dim E 'Estrazione
Dim Numeri(10)
Dim Ruota
Dim L
Dim Pos
Dim Q
Dim Bold
Dim CP,CC,ST
Dim C(20)
Ruota = BA_
Dim CPE
ColoreTesto 2
Scrivi NomeRuota(Ruota) & " ",True,False
For N = 1 To 10 : Numeri(N) = N : Next
Scrivi StringaNumeri(Numeri,,True),True
ColoreTesto 0
Scrivi
'DATI :
I = 3862 'Inizio Contatore Principale
F = EstrazioneFin 'Fine Contatore Principale
N = 9 'Numero di Estrazioni per ciclo
For P = I To F Step 9 'Ciclo principale
AvanzamentoElab I,F,P
CC = CC + 1 'Contatore Cicli Aumenta di 1 ad ogni passaggio
CP = 0 'CP = Contatore Presenze = 0
For S = 0 To N - 1 'Contatore Secondario
E = P + S 'Estrazione in Oggetto
If E > F Then Exit For 'Termina se non ci sono estrazioni.
Scrivi E & "  " & DataEstrazione(E) & "  ",0,0
CPE = 0 'Azzera ad ogni estrazione il Contatore Presenze Estrazione
For Pos = 1 To 5 'Legge gli Estratti -Uno ad uno-
L = Estratto(E,Ruota,Pos) ''
For Q = 1 To 10
If Numeri(Q) = L Then 'Confronto Crociato.
CP = CP + 1 'Conta presenze
CPE = CPE + 1 'Conta presenze
ColoreTesto 2 'Colora di rosso
Bold = True 'Attiva il grassetto
End If
Next
Scrivi Format2(L),Bold,0 '''Scrive Estratti
ColoreTesto 0 : Bold = False 'Disattiva il colore e grassetto
If Pos < 5 Then Scrivi ".",False,False 'inserisce un punto di separazione
Next
If CPE >= 2 Then
Scrivi Space(2) & NomeSorte(CPE)
Else
Scrivi "" 'RiAttiva "a capo"
End If
Next
'Riepilogo Risultati
ColoreTesto 1 : Scrivi "Ciclo N° " & FormatSpace(CC,4,True),True,False
Scrivi Space(7),False,False
ColoreTesto 2 : Scrivi "Presenze " & CP,True: ColoreTesto 0
If CC > ST Then ST = CC
If CP >= 7 Then C(CC) = C(CC) + 1 : CC = 0 'Azzera il contatore nei cicli maggiormente "positivi"
Scrivi String(32,"-")
Next
ColoreTesto 1
Scrivi "Storico" & FormatSpace(ST,6,True),True
ColoreTesto 0
Scrivi
Scrivi "Target Raggiunti",True
Scrivi "Ciclo  Volte"
For N = 1 To 20
If C(N) > 0 Then Scrivi Format2(N) & " " & String(4,".") & " " & C(N)
Next
End Sub