Cinquine sincrone passo X, SCRIPT

« Older Newer »

New Mat

Posted on 16/1/2019, 23:43

Top Member

Group:: Member

Posts:: 3,887

Status:

Complimenti a Silop.

x Gaspare
Vedo che ormai non ti fermi più, ciao

Matteo

micro_

Posted on 20/1/2019, 07:54

Top Member

Group:: Member

Posts:: 1,292

Status:

Torno a questo post, perché mi sembra interessante mettere in evidenza le uscite del 59 a Palermo e del 40 (n=2) a Venezia in tre estrazioni.
Come si diceva nei precedenti post, frequenza o ritardo sulla frequenza di alcuni passi, vale la pena tenere in considerazione questo tipo di indagine

saluti

micro

CITAZIONE (micro_ @ 12/1/2019, 13:20)

Grazie ancora g.silent, chiedo a tutti se un ragionamento sui dati che scaturiscono dai tuoi bellissimi script sia giusto, interpretandoli come aspettabilità a colpo di ciascun numero, sui passi da 1 a 36, con i numeri raggruppati tutti insieme.

Troviamo cioè una "n" quantità dello stesso numero, ruota per ruota, questo considerando tutti i numeri dati da ogni passo.

Li ho sviluppati con questo tuo ultimo script sui passi da 1 a 36 (lo script sopra sviluppa i passi fino a 27, spero di non sbagliare e quindi ho cambiato il 27 mettendo il 36).

La maggiore presenza può darci delle buone indicazioni per l'estrazione di questa sera?

otto presenze:

Cagliari---21---

sette presenze:

Bari ---70---

Genova---50---

Palermo --59---

Torino ---81---

Venezia --40--

spero di non aver dimenticato qualcosa...

buon sabato a tutti!!

micro

g.silent

Posted on 28/1/2019, 08:03

Top Member

Group:: Member

Posts:: 768

Status:

CODICE

' Cinquine sincrone a passo x - Estratto: Ripetizione determinata ISOTOPA
Sub Main()
Dim num(5)
Dim nu(5)
Dim ruota(1)
Dim rita(5,11)
Dim max(5,11)
Dim estr(5,11)
For ep = 1 To 2
AvanzamentoElab 1,38,ep
Scrivi "-------------------------------------------------------------------passo " & ep
Scrivi
Scrivi Space(5),0,0
For rr = 1 To 10
ruota(1) = rr
Scrivi FormatSpace(SiglaRuota(rr),6),0,0
If rr = 10 Then Scrivi "posizione"
For p = 1 To 5
eini = 3950' EstrazioneFin - 1200
efin = EstrazioneFin
For i = eini To efin
num(1) = Estratto(i - ep,rr,p)
nu(1) = Estratto(i,rr,p)
estr(p,rr) = Estratto(efin - ep + 1,rr,p)
If num(1) = nu(1) Then
rita(p,rr) = 0
Else
rita(p,rr) = rita(p,rr) + 1
If max(p,rr) < rita(p,rr) Then max(p,rr) = rita(p,rr)
End If
Next
Next
Next
For z = 1 To 5
rita(z,11) = z
max(z,11) = z
estr(z,11) = z
Next
Scrivi
Scrivi "----------------------------------------ritardi attuali"
ScriviMatrice rita 'ritardi attuali
Scrivi "----------------------------------------ritardi storici"
ScriviMatrice max 'ritardi storici
ColoreTesto 1
Scrivi "Numeri in gioco per l'estrazione successiva al " & DataEstrazione(efin)
ScriviMatrice estr
ColoreTesto 0
Erase rita
Erase max
Next
Erase rita
Erase max
End Sub

[CODE]-------------------------------------------------------------------passo 2

Ba Ca Fi Ge Mi Na Pa Ro To Ve posizione

----------------------------------------ritardi attuali

138 22 15 47 22 90 25 7 14 85 1
25 19 21 97 63 145 132 49 935 65 2
27 53 98 40 43 18 137 141 114 3 3
257 10 26 12 149 110 67 324 56 95 4
3 280 102 19 307 33 6 10 159 49 5

----------------------------------------ritardi storici

421 515 454 377 368 363 454 352 470 361 1
477 465 545 549 730 351 449 523 935 946 2
772 452 387 363 442 386 328 504 411 494 3
439 296 332 484 393 340 341 324 514 434 4
297 433 481 407 346 318 322 303 265 764 5

[CODE]

New Mat

Posted on 28/1/2019, 10:46

Top Member

Group:: Member

Posts:: 3,887

Status:

Ancora grazie a Gaspare e godiamoci quest'altra delizia, ciao

Matteo

micro_

Posted on 28/1/2019, 19:07

Top Member

Group:: Member

Posts:: 1,292

Status:

Grazie Silent!!

*Skorpio*

Posted on 28/1/2019, 19:33

Top Member

Group:: Member

Posts:: 3,818

Status:

Un nuovo "capolavoro" di Gaspare, interessantissimo..al di là della segnalazione sulla ripetizione a passo "2"...i miei Complimenti!!!
E...naturalmente un grazie infinito per la disponibilità e generosità.
Saluti, Claudio.

g.silent

Posted on 3/2/2019, 16:19

Top Member

Group:: Member

Posts:: 768

Status:

Penso possa essere utile accennare al meccanismo su si basano gli script postati:
si prendono in considerazione due estrazioni e confrontandole si verifica se in queste due estrazioni
ci sono o non ci sono numeri uguali (ripetizione).
Come indicato nelle funzione Ripetizioni di L8+:
chiamiamo Rip l’estrazione in cui avviene o non avviene la ripetizione
e chiamiamo Ril l’estrazione da confrontare.
Per il PASSO 1 l’ estrazione da confrontare è quella precedente ( 1 estrazione INDIETRO)
Per il PASSO 2 l’ estrazione da confrontare è la seconda precedente( 2 estrazioni INDIETRO)
Per il PASSO 3 l’ estrazione da confrontare è la terza precedente (3 estrazioni INDIETRO)
…..
Per il PASSO 6 l’ estrazione da confrontare è la sesta precedente (6 estrazioni INDIETRO)
Etc.

O passo 1 o passo 38 sono sempre due le estrazioni che si confrontano.

In pratica lo script ci dice se all' estrazione Rip ci sono numeri che erano presenti nell' estrazioni Ril PRECEDENTI

Saluti

g.silent

Posted on 3/7/2020, 16:47

Top Member

Group:: Member

Posts:: 768

Status:

Su richiesta di Claudio

Quartine per estratto

CODICE

'Script per L8+ (su spaziometria modificare formattazione)
' Quartine per Estratto
Sub Main()
Dim num(4)
Dim ruota(1)
Dim rita(5,16)
Dim max(5,16)
Scrivi
For ep = 1 To 8'scegliere passo
Messaggio ep
H=0
Scrivi "====================================================================================passo " & ep
Scrivi Space(4),0,0
For rr = 1 To 11
If rr = 11 Then rr = 12
Scrivi FormatSpace(SiglaRuota(rr),6),0,0
If rr = 12 Then Scrivi "| quartine "
ruota(1) = rr
eini = EstrazioneFin - 100 'scegliere inizio
efin = EstrazioneFin
c = 0
For p = 1 To 2
For pp = p + 1 To 3
For ppp = pp + 1 To 4
For pppp = ppp + 1 To 5
c = c + 1
For i = eini To efin
num(1) = Estratto(i - ep,rr,p)
num(2) = Estratto(i - ep,rr,pp)
num(3) = Estratto(i - ep,rr,ppp)
num(4) = Estratto(i - ep,rr,pppp)
If SerieFreq(i,i,num,ruota,1) > 0 Then
rita(c,rr) = 0
Else
rita(c,rr) = rita(c,rr) + 1
If max(c,rr) < rita(c,rr) Then max(c,rr) = rita(c,rr)
End If
Next
Next
Next
Next
Next
Next
For z = 1 To 2
For k = z + 1 To 3
For w = k + 1 To 4
For q = w + 1 To 5
h = h + 1
rita(h,13) = Z
rita(h,14) = K
rita(h,15) = W
rita(h,16) = q
max(h,13) = Z
max(h,14) = K
max(h,15) = w
max(h,16) = q
Next
Next
Next
Next
ScriviMatrice rita
'ScriviMatrice max
Erase rita
Erase max
Next
Erase rita
Erase max
End Sub

Terzine per estratto

CODICE

'Script per L8+ (su spaziometria modificare formattazione)
' Terzine per Estratto
Sub Main()
Dim num(3)
Dim ruota(1)
Dim rita(10,15)
Dim max(10,15)
Scrivi
For ep = 1 To 8'scegliere passo
Messaggio ep

h=0
Scrivi "====================================================================================passo " & ep
Scrivi Space(4),0,0
For rr = 1 To 11
If rr = 11 Then rr = 12
Scrivi FormatSpace(SiglaRuota(rr),6),0,0
If rr = 12 Then Scrivi " terzine"
ruota(1) = rr
eini = EstrazioneFin - 150 'scegliere inizio
efin = EstrazioneFin
c = 0
For p = 1 To 3
For pp = p + 1 To 4
For ppp = pp + 1 To 5
c = c + 1
For i = eini To efin
num(1) = Estratto(i - ep,rr,p)
num(2) = Estratto(i - ep,rr,pp)
num(3) = Estratto(i - ep,rr,ppp)
If SerieFreq(i,i,num,ruota,1) > 0 Then
rita(c,rr) = 0
Else
rita(c,rr) = rita(c,rr) + 1
If max(c,rr) < rita(c,rr) Then max(c,rr) = rita(c,rr)
End If
Next
Next
Next
Next
Next
For z = 1 To 3
For k = z + 1 To 4
For w = k + 1 To 5
h = h + 1
rita(h,13) = Z
rita(h,14) = K
rita(h,15) = W
max(h,13) = Z
max(h,14) = K
max(h,15) = w
Next
Next
Next
ScriviMatrice rita
'ScriviMatrice max
Erase rita
Erase max
Next
Erase rita
Erase max
End Sub

Coppie per estratto

CODICE

'Script per L8+ (su spaziometria modificare formattazione)
' Coppie per estratto
Sub Main()
Dim num(2)
Dim ruota(1)
Dim rita(10,14)
Dim max(10,14)
Scrivi
For ep = 1 To 8'scegliere passo
Messaggio ep

h=0
Scrivi "=============================================================================passo " & ep
Scrivi Space(4),0,0
For rr = 1 To 11
If rr = 11 Then rr = 12
Scrivi FormatSpace(SiglaRuota(rr),6),0,0
If rr = 12 Then Scrivi " coppie"
ruota(1) = rr
eini = EstrazioneFin - 150 'scegliere inizio
efin = EstrazioneFin
c = 0
For p = 1 To 4
For pp = p + 1 To 5
c = c + 1
For i = eini To efin
num(1) = Estratto(i - ep,rr,p)
num(2) = Estratto(i - ep,rr,pp)
If SerieFreq(i,i,num,ruota,1) > 0 Then
rita(c,rr) = 0
Else
rita(c,rr) = rita(c,rr) + 1
If max(c,rr) < rita(c,rr) Then max(c,rr) = rita(c,rr)
End If
Next
Next
Next
Next
For z = 1 To 4
For k = z + 1 To 5
h = h + 1
rita(h,13) = Z
rita(h,14) = K
max(h,13) = Z
max(h,14) = K
Next
Next
ScriviMatrice rita
'ScriviMatrice max
Erase rita
Erase max
Next
Erase rita
Erase max
End Sub

A breve cinquine per estratto

Saluti

Edited by g.silent - 3/7/2020, 18:47

g.silent

Posted on 3/7/2020, 19:03

Top Member

Group:: Member

Posts:: 768

Status:

CODICE

'Script per L8+
' Cinquine per Estratto
Sub Main()
Dim num(5)
Dim ruota(1)
Dim rita(12)
Dim max(12)
Dim estr(5,12)
Scrivi
For ep = 1 To 8'scegliere passo
Messaggio ep
Scrivi "=============================================================================passo " & ep
Scrivi Space(4),0,0
For rr = 1 To 11
If rr = 11 Then rr = 12
Scrivi FormatSpace(SiglaRuota(rr),6),0,0
If rr = 12 Then Scrivi
ruota(1) = rr
eini = EstrazioneFin - 50 'scegliere inizio
efin = EstrazioneFin
For i = eini To efin
For p = 1 To 5
num(p) = Estratto(i - ep,rr,p)
estr(p,rr) = Estratto(efin - ep + 1,rr,p)
Next
If SerieFreq(i,i,num,ruota,1) > 0 Then
rita(rr) = 0
Else
rita(rr) = rita(rr) + 1
If max(rr) < rita(rr) Then max(rr) = rita(rr)
End If
Next
Next
ScriviMatrice rita
'ScriviMatrice max
Scrivi
ColoreTesto 1
Scrivi " numeri corrispondenti "
ScriviMatrice estr
ColoreTesto 0
Erase rita
Erase max
Next
Erase rita
Erase max
End Sub

Saluti

53 replies since 7/1/2019, 13:55 2393 views