Rilancio

[genios]

Per gli esperti se hanno tempo e voglia potrebbero sviluppare il seguente script : lo scrpt dovrebbe tenere aggiornati per quantità di ritardo espressa in cicli di 9 estrazione per la sorte di almeno 2 ambi all’ interno di un ciclo di 9 estrazioni le decine naturali.

Mi spiego meglio : una decina naturale in una data ruota da quanti cicli di 9 estrazioni non da almeno 2 ambi all’ interno dello stesso ciclo di 9 estrazioni .

L’ uscita del terno ad una stessa estrazione è conteggiato per 3 ambi nel ciclo .
L’ uscita della quaterna ad una stessa estrazione è conteggiata per 6 ambi nel ciclo .
L’ uscita della cinquina ad una stessa estrazione è conteggiata per 10 ambi nel ciclo .

Out dovrebbe essere come l' allegato in foto .

I numeri in verticale sotto la Ruota è il ritardo in cicli di 9 estrazioni.

Ciao Eugenio

 

[Cinzia27]

Ciao,Genios.
Puoi verificare se i dati dello schema sottostante ti corrispondono?

    DECINE NATURALI                Ba   Ca   Fi   Ge   Mi   Na   Pa   Ro   To   Ve   Nz  
01.02.03.04.05.06.07.08.09.10       5    1    2    1    3    1    1    1    2    1    5
11.12.13.14.15.16.17.18.19.20       1    1    1    3   10    3    5    1    1    4    1
21.22.23.24.25.26.27.28.29.30       1    8    1    1    3    1    2    2    1    1    1
31.32.33.34.35.36.37.38.39.40       4    1    6    2    3    2    5    1    1    1    7
41.42.43.44.45.46.47.48.49.50       2    1    2    1    1    1    2    5   11    6    1
51.52.53.54.55.56.57.58.59.60       1    2    8    1    8    1    2    5    1    1    3
61.62.63.64.65.66.67.68.69.70       3    5    3    3    1    8    3    3    7    1    4
71.72.73.74.75.76.77.78.79.80       1    1    2    9    3    3    1    8    1    1    1
81.82.83.84.85.86.87.88.89.90       2    5    2    4    3    3    1    1    2    2    4

 

[genios]

Grazie Cinzia . Per il controllo dovrei sapere l ultima estrazione che hai considerato?

Ciao Eugenio

 

[Cinzia27]

Ciao, Genios.
Ti riporto l' output all' estrazione attuale (22/09)

    DECINE NATURALI                Ba   Ca   Fi   Ge   Mi   Na   Pa   Ro   To   Ve   Nz  
01.02.03.04.05.06.07.08.09.10       5    1    2    1    3    1    1    1    2    1    5
11.12.13.14.15.16.17.18.19.20       1    1    1    3   10    3    5    1    1    4    1
21.22.23.24.25.26.27.28.29.30       1    8    1    1    3    1    2    2    1    1    1
31.32.33.34.35.36.37.38.39.40       4    1    6    2    3    2    5    1    1    1    7
41.42.43.44.45.46.47.48.49.50       2    1    2    1    1    1    2    5   11    6    1
51.52.53.54.55.56.57.58.59.60       1    2    8    1    8    1    2    5    1    1    3
61.62.63.64.65.66.67.68.69.70       3    5    3    3    1    8    3    3    7    1    4
71.72.73.74.75.76.77.78.79.80       1    1    2    9    3    3    1    8    1    1    1
81.82.83.84.85.86.87.88.89.90       2    5    2    4    3    3    1    1    2    2    4

Facciamo l' esempio di Bari
la decina 81.82.83.84.85.86.87.88.89.90
dalla 9528 alla 9519 è uscita una volta sola, quindi abbiamo un ritardo 1
dalla 9518 alla 9509 è uscita una volta sola, quindi il ritardo diventa 2
dalla 9508 alla 9499 è uscita 2 volte, pertanto il il ritardo si attesta a 2

per il ritardo a livello di cicli ho fatto questo calcolo :
rt=(EstrazioneFin-es+9)/9 ossia l' ultima estrazione - l' estrazione dell' ultima sortita+9 che è il ciclo da cui si riparte.
Il tutto diviso per 9
Se non è questo il calcolo desiderato, dovresti dirmi il calcolo che vorresti.
Cinzia

 

[genios]

Il ritardo attuale della 81-90 sulla ruota di BA per la sorte di almeno 2 ambi in un ciclo di 9 estrazioni è : di 3 cicli di 9 estrazioni .

Inserisco foto .

Ciao Eugenio

 

[Cinzia27]

Cortesemente, mi indichi i passaggi per arrivare a questa schermata di Spaziometria ?

 

[genios]

Facciamo l' esempio di Bari
la decina 81.82.83.84.85.86.87.88.89.90

dalla estrazione

9529
9528
9527
9526
9525
9524
9523
9522
9521

Primo ciclo

9520
9519
9518
9517
9516
9515
9514
9513
9512

Secondo ciclo

9511
9510
9509
9508
9507
9506
9505
9504
9503

Terzo ciclo


dalla 9529 alla 9521 è uscito solo un ambo , quindi abbiamo un ritardo 1
dalla 9520 alla 9512 è uscito nessun ambo, quindi il ritardo diventa 2
dalla 9511 alla 9503 è uscito nessun ambo, quindi il ritardo diventa 3



in pseudo codice

nell’ ultimo ciclo di 9 estrazione gli ambi sono maggiori di 1 ?

NO

Allora rit. = 1


Nel penultimo ciclo gli ambi sono maggiori di 1 ?

NO

Allora Rit. = 2

Nel terzultimo ciclo gli ambi sono maggiori di 1 ?

NO

Allora Rit. = 3

Nel quartultimo ciclo gli ambi sono maggiori di 1 ?

Si

Allora Rit. = 3

Scrivi Rit.

Spero di essere stato chiaro .

Ciao Eugenio

 

[genios]

sulla barra in alto di spaziometria clicchi su Spaziometria e poi elenco estrazioni .

ciao Eugenio

 

[genios]

 

[Cinzia27]

Ciao, Eugenio.
Così va bene ?

 DECINE NATURALI                Ba   Ca   Fi   Ge   Mi   Na   Pa   Ro   To   Ve   Nz  
01.02.03.04.05.06.07.08.09.10       5    0    2    1    3    0    0    1    2    0    4
11.12.13.14.15.16.17.18.19.20       8    0    0    2    9   12    4    0    0    3    0
21.22.23.24.25.26.27.28.29.30       4   13    0    6    4    1    1    3    1    0    0
31.32.33.34.35.36.37.38.39.40       3    3   20    3    3    1    5    2    1    0    7
41.42.43.44.45.46.47.48.49.50       2   11    2    0    0    1    1    4   11    6    0
51.52.53.54.55.56.57.58.59.60       4    9    7    0   17    0    1    4    0    0    2
61.62.63.64.65.66.67.68.69.70       2    4    2    2    0    7    3    2    9    0    4
71.72.73.74.75.76.77.78.79.80       7    1    1   12    2   13    0    8    0    0   13
81.82.83.84.85.86.87.88.89.90       2    4    1    3   10   11    1    0    1    5    3

 

[genios]

Cinzia riscontro delle incongruenze con la tua tabella . Salvo mio errore o errore nell’ archivio .

Come puoi vedere dalla foto allegata :

Decina 81-90 per ogni ruota all’ estrazione 9529

ogni quadratino è un ciclo . All’ interno del quadratino gli ambi presenti nel ciclo

BA ritardo espresso in cicli 3 nella tua tabella 2

CA ritardo espresso in cicli 5 nella tua tabella 4

FI ritardo espresso in cicli 1 nella tua tabella 1

GE ritardo espresso in cicli 4 nella tua tabella 3

MI ritardo espresso in cicli 11 nella tua tabella 10

NA ritardo espresso in cicli 11 nella tua tabella 11

PA ritardo espresso in cicli 0 nella tua tabella 1

RO ritardo espresso in cicli 0 nella tua tabella 0

TO ritardo espresso in cicli 1 nella tua tabella 1

VE ritardo espresso in cicli 5 nella tua tabella 5

NZ ritardo espresso in cicli 3 nella tua tabella 3

E comunque come da foto nel post #5 puoi vedere che la ruota di BA è da 3 cicli che non da ambi >1 nel ciclo di 9 estrazioni.

 

[genios]

Cinzia puoi controllare se le estrazioni sono sequenziali dopo quelle del primo ciclo . Forse le estrazioni vengono sovrapposte . Ti allego foto di cio' che intendo .

colonna a sinistra esatta colonna a destra errata . Quindi il riscontro degli ambi non è veritiero .

Ciao Eugenio

 

[Cinzia27]

Ciao, Eugenio.
Mi sembra che questa volta corrisponda ai tuoi dati almeno per quanto concerne la decina 1-90
Puoi controllare le altre decine ?
Non credo che vi siano sovrapposizioni, ho calcolato a parte
Sub main()
For es= EstrazioneFin To EstrazioneFin-500 step -9
Scrivi es&" "&es-8
Next
End Sub


9529 9521
9520 9512
9511 9503
9502 9494
9493 9485
9484 9476
9475 9467
9466 9458
9457 9449
9448 9440
9439 9431
9430 9422
9421 9413
9412 9404
9403 9395
9394 9386
9385 9377

Lo script segue questa logica

For es= EstrazioneFin To EstrazioneFin-500 step -9 cio salta 9 estrazioni
cc=cc+1 ogni salto si incrementa il contatore di uno
fr=SerieFreq(es-8,es,n2,ru,s) e poi controlla se dalla es alla es-8( compresa quindi in tutto 9)
If fr >=2 Then ecc.

Questa è la tabella

DECINE NATURALI                Ba   Ca   Fi   Ge   Mi   Na   Pa   Ro   To   Ve   Nz  
01.02.03.04.05.06.07.08.09.10       5    0    2    1    3    0    0    1    2    0    4
11.12.13.14.15.16.17.18.19.20       8    0    0    2   10    3    4    0    0    3    0
21.22.23.24.25.26.27.28.29.30       4   17    0    6    5    1    1    3    1    0    0
31.32.33.34.35.36.37.38.39.40       3    3    6    1    3    1    5    2    1    0    7
41.42.43.44.45.46.47.48.49.50       2    5    2    0    0    1    1    4   11    6    0
51.52.53.54.55.56.57.58.59.60       0   10    7    0   21    0    1    4    5    1    3
61.62.63.64.65.66.67.68.69.70       2    4    2    2    0    7    5    2    9    0    4
71.72.73.74.75.76.77.78.79.80       7   11    1   12    2   13    0    8    0    0    0
81.82.83.84.85.86.87.88.89.90       3    5    1    4   11   11    0    0    1    5    3

Cinzia

 

[genios]

Cinzia ho provato la decina 1-10 per tutte le ruote e stavolta è tutto a posto .

Ciao Eugenio

 

[joe]

Trascurando il titolo delle colonne/ruote dovute ad un difetto di impaginazione,

mi risulta che quanto calcolato da Cinzia corrisponde esattamente alla richiesta reiterata da Eugenio.

Buona serata a tutte/i.

 

[Cinzia27]

Grazie della conferma a Joe e ad Eugenio.
Con un pò di pazienza si arriva...
Posto lo script,

Sub main()
'Eugenio cicli di 9 estrazione per la sorte di almeno 2 ambi - decine naturali(Cinzia)
Dim n1(10),n2(20),n3(30),n4(40),n5(50),n6(60),n7(70),n8(80),n9(90),ru(1)

s=2 'SORTE
q=2
For a=1 To 10
n1(a)=a
Next

Scrivi "    DECINE NATURALI               ",0,0
For rr=1 To 11
If rr=11 Then rr=12

Scrivi FormatSpace(SiglaRuota(rr),3,1)&"  ",0,0
Next
Scrivi
Scrivi  StringaNumeri(n1)&"    ",0,0


For r=1 To 11
If r=11 Then r=12
cc=0
c=0
ru(1)=r
For es= EstrazioneFin To EstrazioneFin-500 step -9
cc=cc+1
fr=SerieFreq(es-8,es,n1,ru,s)

If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0

End If
End If
Next
Next
'-------------------------------------------
For b=11 To 20
n2(b)=b
Next
Scrivi
Scrivi  StringaNumeri(n2)&"    ",0,0

For r=1 To 11
If r=11 Then r=12
cc=0
c=0
ru(1)=r

For es= EstrazioneFin To EstrazioneFin-500 step -9
cc=cc+1
fr=SerieFreq(es-8,es,n2,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0

End If
End If
Next
Next

'-------------------------------------------
For c=21 To 30
n3(c)=c
Next
Scrivi
Scrivi  StringaNumeri(n3)&"    ",0,0

For r=1 To 11
If r=11 Then r=12
cc=0
c=0
ru(1)=r

For es= EstrazioneFin To EstrazioneFin-500 step -9
cc=cc+1  
fr=SerieFreq(es-8,es,n3,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0

End If
End If
Next
Next
'-------------------------------------------
For d=31 To 40
n4(d)=d
Next
Scrivi
Scrivi  StringaNumeri(n4)&"    ",0,0

For r=1 To 11
If r=11 Then r=12
cc=0  
c=0
ru(1)=r

For es= EstrazioneFin To EstrazioneFin-500 step -9
cc=cc+1
fr=SerieFreq(es-8,es,n4,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0

End If
End If
Next
Next

'-------------------------------------------
For e=41 To 50
n5(e)=e
Next
Scrivi
Scrivi  StringaNumeri(n5)&"    ",0,0

For r=1 To 11
If r=11 Then r=12
cc=0  
c=0
ru(1)=r

For es= EstrazioneFin To EstrazioneFin-500 step -9
cc=cc+1
fr=SerieFreq(es-8,es,n5,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0

End If
End If
Next
Next

'-------------------------------------------
For f=51 To 60
n6(f)=f
Next
Scrivi
Scrivi  StringaNumeri(n6)&"    ",0,0

For r=1 To 11
If r=11 Then r=12
cc=0  
c=0
ru(1)=r

For es= EstrazioneFin To EstrazioneFin-500 step -9
cc=cc+1  
fr=SerieFreq(es-8,es,n6,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0

End If
End If
Next
Next

'-------------------------------------------
For g=61 To 70
n7(g)=g
Next
Scrivi
Scrivi  StringaNumeri(n7)&"    ",0,0

For r=1 To 11
If r=11 Then r=12
cc=0  
c=0
ru(1)=r

For es= EstrazioneFin To EstrazioneFin-500 step -9
cc=cc+1  
fr=SerieFreq(es-8,es,n7,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0

End If
End If
Next
Next
'-------------------------------------------
For h=71 To 80
n8(h)=h
Next
Scrivi
Scrivi  StringaNumeri(n8)&"    ",0,0

For r=1 To 11
If r=11 Then r=12
cc=0  
c=0
ru(1)=r

For es= EstrazioneFin To EstrazioneFin-500 step -9
cc=cc+1
fr=SerieFreq(es-8,es,n8,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0

End If
End If
Next
Next

'-------------------------------------------
For i=81 To 90
n9(i)=i
Next
Scrivi
Scrivi  StringaNumeri(n9)&"    ",0,0

For r=1 To 11
If r=11 Then r=12
cc=0
c=0
ru(1)=r

For es= EstrazioneFin To EstrazioneFin-500 step -9
cc=cc+1
fr=SerieFreq(es-8,es,n9,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0

End If
End If
Next
Next

End Sub

 

[genios]

Grazie Cinzia. Funziona benissimo . Script facilmente leggibile . Anche se come dice Joe si perde la formattazione sulla decina 1-10.

Ti chiedo se hai tempo e voglio di farne uno solo su i numeri singoli . Se mi dai l ok ti spiego meglio .

Ciao Grazie di nuovo

Eugenio

 

[genios]

Aggiungo grazie anche per l' uso della programmazione strutturata .

 

[Cinzia27]

Ciao, Eugenio.
Non mi ero accorta della formatazione perchè su Lottodesk non succede.
Ho comunque ovviato.
Sentiamo la ricerca sul singolo numero.

Sub Main()
'Eugenio cicli di 9 estrazione per la sorte di almeno 2 ambi - decine naturali(Cinzia)
Dim n1(10),n2(20),n3(30),n4(40),n5(50),n6(60),n7(70),n8(80),n9(90),ru(1)

s=2 'SORTE
q=2
For a=1 To 10
n1(a)=a
Next

Scrivi "    DECINE NATURALI               ",0,0
For rr=1 To 11
If rr=11 Then rr=12

Scrivi FormatSpace(SiglaRuota(rr),3,1)&"  ",0,0
Next
Scrivi
Scrivi  Format2(n1(1))&"."&Format2(n1(2))&"."&Format2(n1(3))&"."&Format2(n1(4))&"."&Format2(n1(5))&"."& _
Format2(n1(6))&"."&Format2(n1(7))&"."&Format2(n1(8))&"."&Format2(n1(9))&"."&Format2(n1(10))&"    ",0,0


For r=1 To 11
If r=11 Then r=12
cc=0
c=0
ru(1)=r
For es= EstrazioneFin To EstrazioneFin-500 Step -9
cc=cc+1
fr=SerieFreq(es-8,es,n1,ru,s)

If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0

End If
End If
Next
Next
'-------------------------------------------
For b=11 To 20
n2(b)=b
Next
Scrivi
Scrivi  StringaNumeri(n2)&"    ",0,0

For r=1 To 11
If r=11 Then r=12
cc=0
c=0
ru(1)=r

For es= EstrazioneFin To EstrazioneFin-500 Step -9
cc=cc+1
fr=SerieFreq(es-8,es,n2,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0

End If
End If
Next
Next

'-------------------------------------------
For c=21 To 30
n3(c)=c
Next
Scrivi
Scrivi  StringaNumeri(n3)&"    ",0,0

For r=1 To 11
If r=11 Then r=12
cc=0
c=0
ru(1)=r

For es= EstrazioneFin To EstrazioneFin-500 Step -9
cc=cc+1  
fr=SerieFreq(es-8,es,n3,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0

End If
End If
Next
Next
'-------------------------------------------
For d=31 To 40
n4(d)=d
Next
Scrivi
Scrivi  StringaNumeri(n4)&"    ",0,0

For r=1 To 11
If r=11 Then r=12
cc=0  
c=0
ru(1)=r

For es= EstrazioneFin To EstrazioneFin-500 Step -9
cc=cc+1
fr=SerieFreq(es-8,es,n4,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0

End If
End If
Next
Next

'-------------------------------------------
For e=41 To 50
n5(e)=e
Next
Scrivi
Scrivi  StringaNumeri(n5)&"    ",0,0

For r=1 To 11
If r=11 Then r=12
cc=0  
c=0
ru(1)=r

For es= EstrazioneFin To EstrazioneFin-500 Step -9
cc=cc+1
fr=SerieFreq(es-8,es,n5,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0

End If
End If
Next
Next

'-------------------------------------------
For f=51 To 60
n6(f)=f
Next
Scrivi
Scrivi  StringaNumeri(n6)&"    ",0,0

For r=1 To 11
If r=11 Then r=12
cc=0  
c=0
ru(1)=r

For es= EstrazioneFin To EstrazioneFin-500 Step -9
cc=cc+1  
fr=SerieFreq(es-8,es,n6,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0

End If
End If
Next
Next

'-------------------------------------------
For g=61 To 70
n7(g)=g
Next
Scrivi
Scrivi  StringaNumeri(n7)&"    ",0,0

For r=1 To 11
If r=11 Then r=12
cc=0  
c=0
ru(1)=r

For es= EstrazioneFin To EstrazioneFin-500 Step -9
cc=cc+1  
fr=SerieFreq(es-8,es,n7,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0

End If
End If
Next
Next
'-------------------------------------------
For h=71 To 80
n8(h)=h
Next
Scrivi
Scrivi  StringaNumeri(n8)&"    ",0,0

For r=1 To 11
If r=11 Then r=12
cc=0  
c=0
ru(1)=r

For es= EstrazioneFin To EstrazioneFin-500 Step -9
cc=cc+1
fr=SerieFreq(es-8,es,n8,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0

End If
End If
Next
Next

'-------------------------------------------
For i=81 To 90
n9(i)=i
Next
Scrivi
Scrivi  StringaNumeri(n9)&"    ",0,0

For r=1 To 11
If r=11 Then r=12
cc=0
c=0
ru(1)=r

For es= EstrazioneFin To EstrazioneFin-500 Step -9
cc=cc+1
fr=SerieFreq(es-8,es,n9,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0

End If
End If
Next
Next

End Sub

 

[silop2005]

SPMT vers. 1.6.25_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9

======================

Ciao Cinzia ,

a questo bellissimo script fatto su richiesta di Genios

che già calcola il ritardo Attuale nei cicli di 9 estrazioni della sortita di almeno (minimo) 2 ambi,

potresti aggiungere altre due colonne, quelle delle presenze (frequenze)

e del ritardo storico di almeno due ambi nei cicli di 9 estrazioni ?

Ti ringrazio anticipatamente e ti auguro una buona serata.

======================

Buona notte a tutti.

A presto

Silop