Novità

Richiesta listato frequenza ambo in decina

Codice: 
REM Frequenze e Ritardi nelle Decine Naturali V.5.0 per Solare Script By Joe

Sub Main()
C = False ' C=True=Compatto // C=False=Esteso
Dim Nu(10),Ru(1),TG(9),R(9): ReDim T(9) : Ru(1) = ScegliRuota
Scrivi "Frequenze degli Ambi nella Decina Naturale : " & NomeRuota (Ru(1)),1 
Scrivi : Scrivi " Estraz.",1,0 : Scrivi String(5," "),0,0 
Scrivi " Estratti" & String(6," "),1,0 
For D=0 To 8 : Scrivi "D" & D & "  ",1,0 : Next : Scrivi 
For Es = EstrazioneFin - 179 To EstrazioneFin : KK = 0 : K = K + 1 
If Not C Then Scrivi DataEstrazione(Es) & "  " & StringaEstratti(Es,Ru(1)),1,0 '
If K = 1 Then Ini = Es
For D = 0 To 80 Step 10
For U = 1 To 10
Nu(U) = D + U
Next
SF = SerieFreq(Es,Es,Nu,Ru,2) '
KK = KK + 1 : T(KK) = T(KK) + SF 
If Not C Then Scrivi FormatSpace(SF,4,1),0,0
If SF > 0 Then R(KK) = 0 Else R(KK) = R(KK) + 1 'Calcolo Ritardi
Next 
If Not C Then Scrivi '
If K = 10 Then
Fin = ES : K = 0 : Scrivi : Scrivi(Ini) & "-" &(Fin),0,0
Scrivi " ... Totale ...  ",0,0
For Tot = 1 To 9 
Scrivi FormatSpace(T(Tot),4,1),1,0 : TG(Tot) = TG(Tot) + T(Tot) 
Next : Scrivi : Scrivi
ReDim T(9) 
End If
Next
Scrivi : Scrivi "Riepilogo" & String(5," "),1,0 
Scrivi FormatSpace(NomeRuota(Ru(1)),14),1,0
For D = 0 To 8 : Scrivi "D" & D & "  ",1,0 : Next : Scrivi
Scrivi String(63,"="),1 
Scrivi EstrazioneFin-179  & "-" & EstrazioneFin & "  .  Frequenze . ",1,0
For Tot = 1 To 9 : Scrivi FormatSpace(TG(Tot),4,1),1,0 : Next 
Scrivi : Scrivi String(63,"="),1
Scrivi EstrazioneFin-179  & "-" & EstrazioneFin & "  .   Ritardi  . ",1,0
For Tot = 1 To 9 : Scrivi FormatSpace(R(Tot),4,1),1,0 : Next 
Scrivi : Scrivi String(63,"="),1

End Sub
 
Tante grazie JOE91
oltre che bravo sei gentile e disponibile
Prendendo spunto dalla tua idea nell'inserimento del ritardo
cosa ne pensi eventualmente di inserire anche il ritardo max accumulato nei cicli analizzati
così abbiamo il ritardo attuale e il ritardo max nei cicli analizzati
naturalmente questa è una mia idea sempre che sia fattibile con il listato.

buon pomeriggio
 
Ultima modifica:
Joe91 ha scritto:
Codice: 
REM Frequenze e Ritardi nelle Decine Naturali V.5.0 per Solare Script By Joe

Sub Main()
C = False ' C=True=Compatto // C=False=Esteso
Dim Nu(10),Ru(1),TG(9),R(9): ReDim T(9) : Ru(1) = ScegliRuota
Scrivi "Frequenze degli Ambi nella Decina Naturale : " & NomeRuota (Ru(1)),1 
Scrivi : Scrivi " Estraz.",1,0 : Scrivi String(5," "),0,0 
Scrivi " Estratti" & String(6," "),1,0 
For D=0 To 8 : Scrivi "D" & D & "  ",1,0 : Next : Scrivi 
For Es = EstrazioneFin - 179 To EstrazioneFin : KK = 0 : K = K + 1 
If Not C Then Scrivi DataEstrazione(Es) & "  " & StringaEstratti(Es,Ru(1)),1,0 '
If K = 1 Then Ini = Es
For D = 0 To 80 Step 10
For U = 1 To 10
Nu(U) = D + U
Next
SF = SerieFreq(Es,Es,Nu,Ru,2) '
KK = KK + 1 : T(KK) = T(KK) + SF 
If Not C Then Scrivi FormatSpace(SF,4,1),0,0
If SF > 0 Then R(KK) = 0 Else R(KK) = R(KK) + 1 'Calcolo Ritardi
Next 
If Not C Then Scrivi '
If K = 10 Then
Fin = ES : K = 0 : Scrivi : Scrivi(Ini) & "-" &(Fin),0,0
Scrivi " ... Totale ...  ",0,0
For Tot = 1 To 9 
Scrivi FormatSpace(T(Tot),4,1),1,0 : TG(Tot) = TG(Tot) + T(Tot) 
Next : Scrivi : Scrivi
ReDim T(9) 
End If
Next
Scrivi : Scrivi "Riepilogo" & String(5," "),1,0 
Scrivi FormatSpace(NomeRuota(Ru(1)),14),1,0
For D = 0 To 8 : Scrivi "D" & D & "  ",1,0 : Next : Scrivi
Scrivi String(63,"="),1 
Scrivi EstrazioneFin-179  & "-" & EstrazioneFin & "  .  Frequenze . ",1,0
For Tot = 1 To 9 : Scrivi FormatSpace(TG(Tot),4,1),1,0 : Next 
Scrivi : Scrivi String(63,"="),1
Scrivi EstrazioneFin-179  & "-" & EstrazioneFin & "  .   Ritardi  . ",1,0
For Tot = 1 To 9 : Scrivi FormatSpace(R(Tot),4,1),1,0 : Next 
Scrivi : Scrivi String(63,"="),1

End Sub
Clicca per espandere...
Grazie Joe, bella lezione !!! in cosi poche righe succede tutto questo ;)
;)
 
Ciao Joe91 ti chiedo sempre che sia possibile:
Prendendo spunto dalla tua idea nell'inserimento del ritardo
cosa ne pensi eventualmente di inserire anche il ritardo max accumulato nei cicli analizzati
magari mettendo la stessa rigra del ritardo per ambo per ogni decina
e alla fine stabilire quale è stato il ritardo max di quella decina nei cicli analizzati
così abbiamo il ritardo attuale e il ritardo max nei cicli analizzati
naturalmente questa è una mia idea sempre che sia fattibile con il listato.
 
Grazie a tutti ...

Ciao Solare, riguardo a questa tua richiesta :

"Prendendo spunto dalla tua idea nell'inserimento del ritardo
cosa ne pensi eventualmente di inserire anche il ritardo max accumulato nei cicli analizzati"

Penso sia fattibile anche se non ho capito bene e pertanto potrei sbagliare il mio giudizio,

quindi espongo il mio pensiero poi ... eventualmente, se necessario,

si rielaborerà nel complesso ... alla ricerca di altra sintesi.

Dapprima secondo me bisogna, considerare la "difficoltà" ovvero il ritardo naturale ...

che si incontra ad ottenere il risultato. L'Ambo.

Con 10 Numeri, ovvero "una decina", si pongono in gioco 45 Ambi,

quando il ritardo naturale ... del singolo Ambo ... sappiamo essere di 400.5 Estrazioni.

Diventa intuitivo che questo ritardo andrà "ammortizzato" (diviso/spalmato) sui 45 Ambi

e ... "il risultato" dovrebbe risultare ottenibile e possibile, mediamente ... in 10 estrazioni.

Quando poi ... rilevi che contestualmente ... ci sono dei ritardi correnti anche superiori a 50 ...

diventa altrettanto intuibile ... che il massimo, nel periodo, non potrà che essere questo,

perchè in "180 estrazioni" di ... "50" ... non ne possono "entrare" più di tanti!

Con tutte queste premesse ritengo siano più utili gli storici ...

a tutta la storia del Lotto a 10 ruote (senza buchi nell'archivio)

cosicchè non si ha la necessità di calcolare (di volta in volta ... tutto)

Con il grande dispendio di tempo, che questo comporta,

per concentrarsi esclusivamente ... sulle frequenze e sui ritardi recenti.

La tabella che segue ha dunque una parte molto variabile ...

che è quella attualmente produce il mio script ... (ed in particolare i massimi evidenziati in giallo).

Parte che andrà aggiornata e sostituita di volta in volta ... con lo script ...

mentre la parte relativa agli storici ... sono "un riferimento",

che andrà aggiornato raramente ... solo quando uno di questi sarà superato,

diventando così ... un nuovo riferimento.

Le frequenze nel lungo periodo ... poco significative.


solarez.jpg



:) Buona Serata a tutte/i.
 
Ciao joe91, grazie per il tuo interessamento e disponibilità, cerco di essere più chiaro.
Ti riporto quello che mostra il tuo listato alla fine:
Frequenza totale
ritardo attuale delle decine ultimo ciclo
ora, quello che chiedo io è: fare in modo che quello che accade con le frequenze che riporta il resoconto ciclo per ciclo e alla fine riporta il totale delle frequenze di tutti i cicli
a differenza che anzichè avere il totale mi riporti il ritardo max accumulato nei cicli analizzati.
magari facendo visualizzare alla fine di ogni ciclo il ritardo dell'ambo per ogni decina e alla fine avere il ritardo max di tutti i cicli.
spero di non averti fatto confusione.

Frequenze degli Ambi nella Decina Naturale : Bari

Estraz.Estratti D0 D1 D2 D3 D4 D5 D6 D7 D8
18.08.2011 66.24.36.25.57 0 0 1 0 0 0 0 0 0
20.08.2011 85.41.68.46.47 0 0 0 0 3 0 0 0 0
23.08.2011 58.51.57.27.08 0 0 0 0 0 3 0 0 0
25.08.2011 81.47.78.27.20 0 0 0 0 0 0 0 0 0
27.08.2011 56.40.57.14.54 0 0 0 0 0 3 0 0 0
30.08.2011 24.38.90.31.60 0 0 0 1 0 0 0 0 0
01.09.2011 70.81.82.42.69 0 0 0 0 0 0 1 0 1
03.09.2011 89.46.52.65.17 0 0 0 0 0 0 0 0 0
06.09.2011 01.38.31.65.77 0 0 0 1 0 0 0 0 0
08.09.2011 82.33.03.48.20 0 0 0 0 0 0 0 0 0
10.09.2011 43.24.21.90.16 0 0 1 0 0 0 0 0 0

8419-8429 . Totale Freq. 0 0 2 2 3 6 1 0 1

13.09.2011 79.31.71.73.86 0 0 0 0 0 0 0 3 0
15.09.2011 40.51.39.07.29 0 0 0 1 0 0 0 0 0
17.09.2011 48.68.36.11.37 0 0 0 1 0 0 0 0 0
20.09.2011 85.75.04.20.71 0 0 0 0 0 0 0 1 0
22.09.2011 35.76.89.51.12 0 0 0 0 0 0 0 0 0
24.09.2011 14.23.57.54.52 0 0 0 0 0 3 0 0 0
27.09.2011 69.14.59.66.17 0 1 0 0 0 0 1 0 0
29.09.2011 83.59.30.04.74 0 0 0 0 0 0 0 0 0
01.10.2011 33.54.67.65.45 0 0 0 0 0 0 1 0 0
04.10.2011 08.45.88.46.18 0 0 0 0 1 0 0 0 0
06.10.2011 44.47.77.72.86 0 0 0 0 1 0 0 1 0

8430-8440 . Totale Freq. 0 1 0 2 2 3 2 5 0

08.10.2011 52.30.76.67.51 0 0 0 0 0 1 0 0 0
11.10.2011 75.29.11.86.88 0 0 0 0 0 0 0 0 1
13.10.2011 39.24.49.47.54 0 0 0 0 1 0 0 0 0
15.10.2011 70.23.41.55.53 0 0 0 0 0 1 0 0 0
18.10.2011 74.25.48.10.18 0 0 0 0 0 0 0 0 0
20.10.2011 88.90.53.83.19 0 0 0 0 0 0 0 0 3
22.10.2011 22.28.81.87.34 0 0 1 0 0 0 0 0 1
25.10.2011 77.87.89.08.25 0 0 0 0 0 0 0 0 1
27.10.2011 02.35.82.48.21 0 0 0 0 0 0 0 0 0
29.10.2011 05.66.03.14.23 1 0 0 0 0 0 0 0 0
02.11.2011 06.34.37.71.33 0 0 0 3 0 0 0 0 0

8441-8451 . Totale Freq. 1 0 1 3 1 2 0 0 6

03.11.2011 31.40.15.16.04 0 1 0 1 0 0 0 0 0
05.11.2011 05.68.32.87.11 0 0 0 0 0 0 0 0 0
08.11.2011 67.11.79.76.71 0 0 0 0 0 0 0 3 0
10.11.2011 75.52.50.27.78 0 0 0 0 0 0 0 1 0
12.11.2011 16.43.89.72.56 0 0 0 0 0 0 0 0 0
15.11.2011 57.39.22.06.65 0 0 0 0 0 0 0 0 0
17.11.2011 77.03.26.46.22 0 0 1 0 0 0 0 0 0
19.11.2011 53.31.83.43.88 0 0 0 0 0 0 0 0 1
22.11.2011 11.42.63.23.38 0 0 0 0 0 0 0 0 0
24.11.2011 23.27.69.13.31 0 0 1 0 0 0 0 0 0
26.11.2011 64.61.37.26.75 0 0 0 0 0 0 1 0 0

8452-8462 . Totale Freq. 0 1 2 1 0 0 1 4 1

29.11.2011 53.56.63.26.14 0 0 0 0 0 1 0 0 0
01.12.2011 84.60.86.61.45 0 0 0 0 0 0 0 0 1
03.12.2011 56.20.41.29.27 0 0 1 0 0 0 0 0 0
06.12.2011 35.54.41.03.15 0 0 0 0 0 0 0 0 0
09.12.2011 46.12.14.50.75 0 1 0 0 1 0 0 0 0
10.12.2011 89.31.51.11.69 0 0 0 0 0 0 0 0 0
13.12.2011 50.15.42.32.62 0 0 0 0 1 0 0 0 0
15.12.2011 78.01.65.70.68 0 0 0 0 0 0 3 0 0
17.12.2011 51.86.07.73.48 0 0 0 0 0 0 0 0 0
20.12.2011 29.76.34.84.83 0 0 0 0 0 0 0 0 1
22.12.2011 72.26.13.70.14 0 1 0 0 0 0 0 0 0

8463-8473 . Totale Freq. 0 2 1 0 2 1 3 0 2

24.12.2011 37.65.41.78.34 0 0 0 1 0 0 0 0 0
27.12.2011 31.46.81.82.28 0 0 0 0 0 0 0 0 1
29.12.2011 79.20.39.44.82 0 0 0 0 0 0 0 0 0
31.12.2011 44.69.27.07.82 0 0 0 0 0 0 0 0 0
03.01.2012 23.73.17.71.85 0 0 0 0 0 0 0 1 0
05.01.2012 62.81.10.12.36 0 0 0 0 0 0 0 0 0
07.01.2012 04.09.65.44.34 1 0 0 0 0 0 0 0 0
10.01.2012 11.36.15.42.81 0 1 0 0 0 0 0 0 0
12.01.2012 30.51.34.84.20 0 0 0 0 0 0 0 0 0
14.01.2012 14.70.56.36.50 0 0 0 0 0 0 0 0 0
17.01.2012 16.81.13.76.46 0 1 0 0 0 0 0 0 0

8474-8484 . Totale Freq. 1 2 0 1 0 0 0 1 1

19.01.2012 79.49.72.68.04 0 0 0 0 0 0 0 1 0
21.01.2012 33.61.60.20.28 0 0 0 0 0 0 0 0 0
24.01.2012 23.28.65.44.69 0 0 1 0 0 0 1 0 0
26.01.2012 75.19.53.26.86 0 0 0 0 0 0 0 0 0
28.01.2012 80.13.04.07.76 1 0 0 0 0 0 0 1 0
31.01.2012 44.43.18.17.20 0 3 0 0 1 0 0 0 0
02.02.2012 57.26.14.39.53 0 0 0 0 0 1 0 0 0
04.02.2012 12.23.78.88.39 0 0 0 0 0 0 0 0 0
07.02.2012 31.46.25.78.32 0 0 0 1 0 0 0 0 0
09.02.2012 90.56.65.27.83 0 0 0 0 0 0 0 0 1
11.02.2012 33.49.71.75.06 0 0 0 0 0 0 0 1 0

8485-8495 . Totale Freq. 1 3 1 1 1 1 1 3 1

14.02.2012 76.05.53.09.60 1 0 0 0 0 1 0 0 0
16.02.2012 35.22.77.67.30 0 0 1 0 0 0 0 0 0
18.02.2012 28.35.55.52.53 0 0 0 0 0 3 0 0 0
21.02.2012 60.07.41.75.55 0 0 0 0 0 1 0 0 0
23.02.2012 39.33.15.26.01 0 0 0 1 0 0 0 0 0
25.02.2012 13.02.76.73.53 0 0 0 0 0 0 0 1 0
28.02.2012 21.81.39.03.54 0 0 0 0 0 0 0 0 0
01.03.2012 81.20.28.13.09 0 1 0 0 0 0 0 0 0
03.03.2012 17.29.52.27.32 0 0 1 0 0 0 0 0 0
06.03.2012 29.07.12.59.19 0 1 0 0 0 0 0 0 0
08.03.2012 46.74.51.20.52 0 0 0 0 0 1 0 0 0

8496-8506 . Totale Freq. 1 2 2 1 0 6 0 1 0

10.03.2012 38.70.14.78.42 0 0 0 0 0 0 0 0 0
13.03.2012 45.43.34.80.25 0 0 0 0 1 0 0 0 0
15.03.2012 61.01.13.08.05 3 0 0 0 0 0 0 0 0
17.03.2012 48.77.47.73.38 0 0 0 0 1 0 0 1 0
20.03.2012 49.39.57.71.22 0 0 0 0 0 0 0 0 0
22.03.2012 07.34.72.29.20 0 0 0 0 0 0 0 0 0
24.03.2012 18.51.63.14.87 0 1 0 0 0 0 0 0 0
27.03.2012 54.17.35.33.37 0 0 0 3 0 0 0 0 0
29.03.2012 26.44.55.86.32 0 0 0 0 0 0 0 0 0
31.03.2012 03.31.62.12.85 0 0 0 0 0 0 0 0 0
03.04.2012 89.14.85.45.11 0 1 0 0 0 0 0 0 1

8507-8517 . Totale Freq. 3 2 0 3 2 0 0 1 1

05.04.2012 13.18.34.19.75 0 3 0 0 0 0 0 0 0
07.04.2012 75.54.22.10.11 0 0 0 0 0 0 0 0 0
10.04.2012 10.51.01.70.32 1 0 0 0 0 0 0 0 0
12.04.2012 71.75.56.49.70 0 0 0 0 0 0 0 1 0
14.04.2012 88.44.08.67.41 0 0 0 0 1 0 0 0 0
17.04.2012 72.36.65.60.08 0 0 0 0 0 0 0 0 0
19.04.2012 11.81.04.55.67 0 0 0 0 0 0 0 0 0
21.04.2012 28.64.07.06.49 1 0 0 0 0 0 0 0 0
24.04.2012 90.19.22.42.23 0 0 1 0 0 0 0 0 0
26.04.2012 59.50.27.44.55 0 0 0 0 1 1 0 0 0
28.04.2012 27.55.51.44.46 0 0 0 0 1 1 0 0 0

8518-8528 . Totale Freq. 2 3 1 0 3 2 0 1 0


Riepilogo Bari D0 D1 D2 D3 D4 D5 D6 D7 D8
===============================================================
8419-8528 . Frequenze . 9 16 10 14 14 21 8 16 13
===============================================================
8419-8528 . Ritardi . . 3 10 2 14 0 0 41 7 11
===============================================================
 
Ultima modifica:
Se ho capito ...

equivarrebbe al "lo storico" ... di un archivio di 180 estrazioni.

Posto che naturalmente ... non c'è problema per calcolarlo ...

siamo sicuri che non sia statisticamente dannoso

ed in ogni caso poco utile affidarsi ad esso?

Per esempio il buon "41" (che hai riportato) ... della decina 6 ...

ora sarebbe superato di tutte le estrazioni (15) Maggio,

e, tu sai che a partire dal superare il quarto colpo di gioco

con le decine per Ambo si va .. in perdita (senza progressione).

Mentre ... se è vero, che è l'ultimo ritardo ... è contemporaneamente vero che

"41" estrazioni di ritardo non possono essere contenute in un ciclo di 10,

e per conseguenza "41" sono già un totale. Quello di più cicli-decadici (4*10+1 Estrazione) infruttuosi.

Tuttavia ... il dubbio di non aver compreso ... nasce da queste parole:

"il ritardo max accumulato"

è una forma espressiva che non mi crea ambiguità ed impossibilità nel capire la tua richiesta.

"Accumulato" equivarrebbe a risultato di "una somma" ...

ed è incompatibile con "max" con cui probabilmente e normalmente

intendi e si intende il "massimo" in una serie di valori.

(Quindi "uno solo": il massimo. Che non può essere la somma... di tanti minimi, medi e massimi).

:) Fammi sapere.
 
Si ti confermo la tua precisazione " si intende il "massimo" in una serie di valori."
Grazie



"il ritardo max accumulato"

è una forma espressiva che non mi crea ambiguità ed impossibilità nel capire la tua richiesta.

"Accumulato" equivarrebbe a risultato di "una somma" ...

ed è incompatibile con "max" con cui probabilmente e normalmente

intendi e si intende il "massimo" in una serie di valori.
 
Ok ...

io ... per me ... divido: ritardo corrente ... e ritardo all'estrazione.

Con il ritardo all'estrazione, che è un dato fisso ... al suo massimo,

fisso lo storico.

Se va bene, procederò così ... ma, mi ci vorrà, un pochino di tempo.

:)
 
Buona Sera a Tutti.

La presente versione dello script recepisce le richieste e le indicazioni di calcolo discusse nei messaggi precedenti.


Codice: 
REM Frequenze e Ritardi nelle Decine Naturali V.6.0 per Solare Script By Joe

Sub Main()
C = True ' C=True=Compatto // C=False=Esteso
Dim Nu(10),Ru(1),ST(9),TG(9),R(9): ReDim T(9) : Ru(1) = ScegliRuota
Scrivi "Frequenze degli Ambi nella Decina Naturale : " & NomeRuota(Ru(1)),1
Scrivi : Scrivi " Estraz.",1,0 : Scrivi String(5," "),0,0
Scrivi " Estratti" & String(6," "),1,0
For D = 0 To 8 : Scrivi "D" & D & "  ",1,0 : Next : Scrivi
For Es = EstrazioneFin - 179 To EstrazioneFin : KK = 0 : K = K + 1
If Not C Then Scrivi DataEstrazione(Es) & "  " & StringaEstratti(Es,Ru(1)),0,0 '
If K = 1 Then Ini = Es
For D = 0 To 80 Step 10
For U = 1 To 10
Nu(U) = D + U
Next
SF = SerieFreq(Es,Es,Nu,Ru,2)
KK = KK + 1 : T(KK) = T(KK) + SF
If Not C Then Scrivi FormatSpace(SF,4,1),0,0
If SF > 0 And R(KK) >= ST(KK) Then ST(KK) = R(KK)'Rilevo Storico
If SF > 0 Then R(KK) = 0 Else R(KK) = R(KK) + 1 'Calcolo Ritardi
Next
If Not C Then Scrivi '
If K = 10 Then
Fin = ES : K = 0 : Scrivi : Scrivi(Ini) & "-" &(Fin),0,0
Scrivi "   .... Ambi ....",0,0
For Tot = 1 To 9
Scrivi FormatSpace(T(Tot),4,1),1,0 : TG(Tot) = TG(Tot) + T(Tot)
Next : Scrivi : Scrivi
ReDim T(9)
End If
Next
Scrivi : Scrivi "Riepilogo" & String(5," "),1,0
Scrivi FormatSpace(NomeRuota(Ru(1)),14),1,0
For D = 0 To 8 : Scrivi "D" & D & "  ",1,0 : Next : Scrivi
Scrivi String(63,"="),1
Scrivi EstrazioneFin - 179 & "-" & EstrazioneFin & "  . Frequenze  . ",1,0
For Tot = 1 To 9 : Scrivi FormatSpace(TG(Tot),4,1),1,0 : Next
Scrivi : Scrivi String(63,"="),1
Scrivi EstrazioneFin - 179 & "-" & EstrazioneFin & "  .  Ritardi   . ",1,0
For Tot = 1 To 9 : Scrivi FormatSpace(R(Tot),4,1),1,0 : Next
Scrivi : Scrivi String(63,"="),1
Scrivi EstrazioneFin - 179 & "-" & EstrazioneFin & "  .  Sto/Per   . ",1,0
For Tot = 1 To 9 : Scrivi FormatSpace(ST(Tot),4,1),1,0 : Next
Scrivi : Scrivi String(63,"="),1
Scrivi "Periodo : " & DataEstrazione(Fin - 179) & "  ><  " & DataEstrazione(Fin),1
End Sub

Produce ... il seguente Output ... allineato alla data proposta da Solare :

Codice: 
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000][B]Riepilogo     [/B][/COLOR][COLOR=#000000][B]Bari          [/B][/COLOR][COLOR=#000000][B]D0  [/B][/COLOR][COLOR=#000000][B]D1  [/B][/COLOR][COLOR=#000000][B]D2  [/B][/COLOR][COLOR=#000000][B]D3  [/B][/COLOR][COLOR=#000000][B]D4  [/B][/COLOR][COLOR=#000000][B]D5  [/B][/COLOR][COLOR=#000000][B]D6  [/B][/COLOR][COLOR=#000000][B]D7  [/B][/COLOR][COLOR=#000000][B]D8  [/B][/COLOR][/COLOR][/SIZE][/FONT]
[B][FONT=Courier New][SIZE=2][COLOR=#000000]===============================================================[/COLOR][/SIZE][/FONT][/B]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000][B]8349-8528  . Frequenze  . [/B][/COLOR][COLOR=#000000][B]  23[/B][/COLOR][COLOR=#000000][B]  21[/B][/COLOR][COLOR=#000000][B]  17[/B][/COLOR][COLOR=#000000][B]  24[/B][/COLOR][COLOR=#000000][B]  22[/B][/COLOR][COLOR=#000000][B]  27[/B][/COLOR][COLOR=#000000][B]  13[/B][/COLOR][COLOR=#000000][B]  25[/B][/COLOR][COLOR=#000000][B]  16[/B][/COLOR][/COLOR][/SIZE][/FONT]
[B][FONT=Courier New][SIZE=2][COLOR=#000000]===============================================================[/COLOR][/SIZE][/FONT][/B]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000][B]8349-8528  .  Ritardi   . [/B][/COLOR][COLOR=#000000][B]   3[/B][/COLOR][COLOR=#000000][B]  10[/B][/COLOR][COLOR=#000000][B]   2[/B][/COLOR][COLOR=#000000][B]  14[/B][/COLOR][COLOR=#000000][B]   0[/B][/COLOR][COLOR=#000000][B]   0[/B][/COLOR][COLOR=#000000][B]  41[/B][/COLOR][COLOR=#000000][B]   7[/B][/COLOR][COLOR=#000000][B]  11[/B][/COLOR][/COLOR][/SIZE][/FONT]
[B][FONT=Courier New][SIZE=2][COLOR=#000000]===============================================================[/COLOR][/SIZE][/FONT][/B]
[FONT=Courier New][SIZE=2][COLOR=#000000][COLOR=#000000][B]8349-8528  .  Sto/Per   . [/B][/COLOR][COLOR=#000000][B]  34[/B][/COLOR][COLOR=#000000][B]  43[/B][/COLOR][COLOR=#000000][B]  21[/B][/COLOR][COLOR=#000000][B]  29[/B][/COLOR][COLOR=#000000][B]  26[/B][/COLOR][COLOR=#000000][B]  43[/B][/COLOR][COLOR=#000000][B]  34[/B][/COLOR][COLOR=#000000][B]  28[/B][/COLOR][COLOR=#000000][B]  27[/B][/COLOR][/COLOR][/SIZE][/FONT]
[B][FONT=Courier New][SIZE=2][COLOR=#000000]===============================================================[/COLOR][/SIZE][/FONT][/B]
[B][FONT=Courier New][SIZE=2][COLOR=#000000]Periodo : 08.03.2011  ><  28.04.2012[/COLOR][/SIZE][/FONT][/B]

Pongo in evidenza il Ritardo Corrente per Ambo "41" ... nella DecinaNaturale 6

a Bari, che alla data del 28/04/2012 ... supera lo "Storico"

precedentemente rilevato nel periodo delle 180 estrazioni, previste dallo script.

:)
 
Ciao Joe91 si potrebbe fare oltre le decine anche le ricerche per le figure e le cadenze.
Grazie.
 
Ciao Antonio ...

la tua affermazione, certo, non può essere smentita, ma ... le formazioni sono pressochè infinite,

quindi non le posso comporre tutte.

Pertanto, mi occuperò -solo- delle Figure.

Il resto, chi vuole, lo può fare da sè. Qui trova, indicazioni per farlo.

Questo semplice script ... elenca ed organizza le "Figure" e

ci permette, di effettuare alcune osservazioni.

Codice: 
Sub Main()
For F = 1 To 9 
 Scrivi "Fig." & F & "  ",1,0 
 For N = 1 To 90
  If Figura (N) = F Then Scrivi Format2 (N) & " ",0,0 
 Next  : Scrivi
Next 
End Sub

E produce ...

Codice: 
[SIZE=2][B][FONT=courier new]Fig.1  01 10 19 28 37 46 55 64 73 82 
Fig.2  02 11 20 29 38 47 56 65 74 83 
Fig.3  03 12 21 30 39 48 57 66 75 84 
Fig.4  04 13 22 31 40 49 58 67 76 85 
Fig.5  05 14 23 32 41 50 59 68 77 86 
Fig.6  06 15 24 33 42 51 60 69 78 87 
Fig.7  07 16 25 34 43 52 61 70 79 88 
Fig.8  08 17 26 35 44 53 62 71 80 89 
Fig.9  09 18 27 36 45 54 63 72 81 90[/FONT][/B][/SIZE]

Da questa Tabella ... è facile ricavare "le regole"

per creare e riassumere le Figure in base del loro gruppo di appartenza.

Le "distanze" che la regolano sono:

"+1" in verticale.

"+9" in orizzontale.

Ovvero: La Tabellina del Nove.

Sono "i passi" con cui svilupparla partendo dai 2 classici cicli For-Next.

Quelli con cui si compone una tabella bidiensionale.

Il semplice script ... da schiavo (slave) del non sapere,

costretto a dover chiedere ad ogni numero se appartiene alla Figura ...

filtrare, con l'If, ogni singola ... Figura,

può diventare padrone (Master) cioè capace comandare e di ...

Generare ... le Figure organizzandole per gruppo.

Codice: 
[SIZE=2]Sub Main()
For F = 1 To 9 
 Scrivi "Fig." & F & "  ",1,0 
  For D = 0 To 9
   N  = 9*D + F  :  Scrivi Format2 (N) & " ",0,0 
  Next  : Scrivi
Next 
End Sub
[/SIZE]

Ora, sono evidenti, le analogie con quelle dei cicli, (For-Next)

utuilizzati per formare le Decine Naturali, nello script precedente.

Per cui, è sufficiente andare a sostituire ... quanto si era scritto ... (per le Decine),

con ... il necessario ... per le Figure.

:)
 
Ultima modifica:
Grazie Joe91 sei stato molto chiaro ed esaustivo,cerchero' di fare del mio meglio,anche se devo ripassare,e ripassare cio'che hai scritto.
 
Ciao Antonio ...

Buon Week-End a tutti.

Lo script con l'evidenza in sintesi ... delle correzioni apportate:

Codice: 
REM Frequenze e Ritardi nelle Figure V.7.0 per Antonio1 Script By Joe

Sub Main()
C = True ' C=True=Compatto // C=False=Esteso
Dim Nu(10),Ru(1),ST(9),TG(9),R(9): ReDim T(9) : Ru(1) = ScegliRuota
Scrivi "Frequenze degli Ambi nelle Figure : " & NomeRuota(Ru(1)),1
Scrivi : Scrivi " Estraz.",1,0 : Scrivi String(5," "),0,0
Scrivi " Estratti" & String(6," "),1,0
For D = 0 To 8 : Scrivi "D" & D & "  ",1,0 : Next : Scrivi
For Es = EstrazioneFin - 179 To EstrazioneFin : KK = 0 : K = K + 1
If Not C Then Scrivi DataEstrazione(Es) & "  " & StringaEstratti(Es,Ru(1)),0,0 '
If K = 1 Then Ini = Es
REM                       Parte da sostituire
'For D = 0 To 80 Step 10
'For U = 1 To 10
'Nu(U) = D + U
REM                       Parte sostituita 
For F = 1 To 9
For D = 0 To 9
Nu (D + 1) = 9*D + F
REM                       Il resto è invariato tranne i "Titoli" (decrittivi)
Next
SF = SerieFreq(Es,Es,Nu,Ru,2)
KK = KK + 1 : T(KK) = T(KK) + SF
If Not C Then Scrivi FormatSpace(SF,4,1),0,0
If SF > 0 And R(KK) >= ST(KK) Then ST(KK) = R(KK)'Rilevo Storico
If SF > 0 Then R(KK) = 0 Else R(KK) = R(KK) + 1 'Calcolo Ritardi
Next
If Not C Then Scrivi '
If K = 10 Then
Fin = ES : K = 0 : Scrivi : Scrivi(Ini) & "-" &(Fin),0,0
Scrivi "   .... Ambi ....",0,0
For Tot = 1 To 9
Scrivi FormatSpace(T(Tot),4,1),1,0 : TG(Tot) = TG(Tot) + T(Tot)
Next : Scrivi : Scrivi
ReDim T(9)
End If
Next
Scrivi : Scrivi "Riepilogo" & String(5," "),1,0
Scrivi FormatSpace(NomeRuota(Ru(1)),14),1,0
For D = 1 To 9 : Scrivi "F" & D & "  ",1,0 : Next : Scrivi
Scrivi String(63,"="),1
Scrivi EstrazioneFin - 179 & "-" & EstrazioneFin & "  . Frequenze  . ",1,0
For Tot = 1 To 9 : Scrivi FormatSpace(TG(Tot),4,1),1,0 : Next
Scrivi : Scrivi String(63,"="),1
Scrivi EstrazioneFin - 179 & "-" & EstrazioneFin & "  .  Ritardi   . ",1,0
For Tot = 1 To 9 : Scrivi FormatSpace(R(Tot),4,1),1,0 : Next
Scrivi : Scrivi String(63,"="),1
Scrivi EstrazioneFin - 179 & "-" & EstrazioneFin & "  .  Sto/Per   . ",1,0
For Tot = 1 To 9 : Scrivi FormatSpace(ST(Tot),4,1),1,0 : Next
Scrivi : Scrivi String(63,"="),1
Scrivi "Periodo : " & DataEstrazione(Fin - 179) & "  ><  " & DataEstrazione(Fin),1
End Sub[Code]

:)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto