Novità

Coppia di ambi residui di due cinquine sincrone isocrone

Cinzia27

Premium Member
dal 26.05.2012 estr. n. 8539 al 02.10.2021 estr. n. 9985

8539 Ba Mi 9788 Ba 25.55 Mi 80.12 rdla 197
8695 Ca Ge 9766 Ca 10.82 Ge 70.38 rdla 219
8868 Mi To 9727 Mi 36.87 To 45.76 rdla 258
8926 Fi Na 9853 Fi 03.61 Na 35.59 rdla 132
8939 Fi Ve 9975 Fi 83.37 Ve 54.18 rdla 10
8953 Mi To 9679 Mi 20.12 To 17.86 rdla 306
8978 Na Ve 9727 Na 69.86 Ve 87.20 rdla 258
9128 Ge Ro 9871 Ge 83.51 Ro 15.68 rdla 114
9164 Pa Ro 9982 Pa 79.01 Ro 08.76 rdla 3
9266 Fi Ge 9985 Fi 86.62 Ge 06.72 rdla 0
9309 Fi Nz 9914 Fi 10.34 Nz 81.57 rdla 71
9378 Ge Ve 9948 Ge 21.84 Ve 50.44 rdla 37
Casi attuali 12
Massimo ritardo attuale 306

Stasera si è sfaldata la coppia di ambi
Ge 21.84 - Ve 50.44
 

Cinzia27

Premium Member
L' ultima si è sfaldata all' 11° colpo dalla precedente.
Nel frattempo non si sono formate coppie nuove.

Aggiorniamo la situazione.

8539 Ba Mi 9788 Ba 25.55 Mi 80.12 rdla 208
8695 Ca Ge 9766 Ca 10.82 Ge 70.38 rdla 230
8868 Mi To 9727 Mi 36.87 To 45.76 rdla 269
8926 Fi Na 9853 Fi 03.61 Na 35.59 rdla 143
8939 Fi Ve 9975 Fi 83.37 Ve 54.18 rdla 21
8953 Mi To 9679 Mi 20.12 To 17.86 rdla 317
8978 Na Ve 9727 Na 69.86 Ve 87.20 rdla 269
9128 Ge Ro 9871 Ge 83.51 Ro 15.68 rdla 125
9164 Pa Ro 9982 Pa 79.01 Ro 08.76 rdla 14
9266 Fi Ge 9985 Fi 86.62 Ge 06.72 rdla 11
9309 Fi Nz 9914 Fi 10.34 Nz 81.57 rdla 82
Casi attuali 11
 

joe

Advanced Member >PLATINUM PLUS<
Ennesima dimostrazione,

della superiorità qualitativa della buona Statistica.

Senza calcoli e cabale .... ingenio e risultati.

:) Brava.
 

Marco-elle

Advanced Member >PLATINUM PLUS<
Ennesima dimostrazione,

della superiorità qualitativa della buona Statistica.

Senza calcoli e cabale .... ingenio e risultati.

:) Brava.
Sono d'accordo!
Ma la domanda è......queste formazioni vengono giocate e poi vinte?
rimbeccillirsi davanti a un monitor solo per hobby e passione è poco salutare,
Io lavoro 10 ore al giorno davanti a una fresa cnc con programmi on board e poi
la sera (come da buon drogato) mi rimbeccillisco con il mio portatile e vedo numeri
e codici dalla mattina alla sera e mi chiedo sempre se quello che sto facendo sia la cosa giusta.
Ormai la stagione non lo permette più ma....mi sono ripromesso di ritornare in sella
alla mia bicicletta da corsa perchè cosi non si può andare avanti,la cosa positiva che mi
fa continuare è che qualche volta c'azzecco e non sono felice solo per aver fregato
la Lottomatta ma.....per la positività della ricerca :)
 

Cinzia27

Premium Member
Ennesima dimostrazione,

della superiorità qualitativa della buona Statistica.

Senza calcoli e cabale .... ingenio e risultati.

:) Brava.

Grazie, Joe. Sono pienamente d' accordo.
Per Marco-elle. Se la domanda è rivolta a me, studio il lotto non solo per passione ma anche per giocare qualcosa, si può investire solo una minima parte, che spesso è quella in quel momento non vincente. Il fatto che la giocata minima è quasi raddoppiata non aiuta di certo.
Sono d' accordo col fatto che per questo hobby trascuriamo comportamenti salutari come il camminare o andare in bicicletta.
Ma anche la mente ha bisogno di stimoli, basta conciliare le due cose.
Buona domenica a tutti.
 

Marco-elle

Advanced Member >PLATINUM PLUS<
Grazie, Joe. Sono pienamente d' accordo.
Per Marco-elle. Se la domanda è rivolta a me, studio il lotto non solo per passione ma anche per giocare qualcosa, si può investire solo una minima parte, che spesso è quella in quel momento non vincente. Il fatto che la giocata minima è quasi raddoppiata non aiuta di certo.
Sono d' accordo col fatto che per questo hobby trascuriamo comportamenti salutari come il camminare o andare in bicicletta.
Ma anche la mente ha bisogno di stimoli, basta conciliare le due cose.
Buona domenica a tutti.
No Cinzia,
la mia esamina è rivolta a me stesso e ognuno passa il proprio tempo
nel miglior modo,ma mi rendo conto che questo è deleterio per la
mia vista e la colpa è anche il Coronavirus che mi ha trasformato
radicalmente e mi ha tolto le gioie della vita che sfruttavo un tempo
 

Mat

Advanced Member >PLATINUM<
Un saluto a tutto il forum e buona festa a tutti.
Da alcuni mesi ormai mi occupo poco di lotto a causa di miei impegni famigliari e di un problema agli occhi che m'impedisce di trascorrere troppe ore sul pc.
I miei impegni già mi obbligano purtroppo a trascorrere alcune ore al giorno alle prese con monitor e tastiera per dare una mano a mia moglie e quindi sono costretto a tagliare il resto.
A causa di ciò ho tanti archivi non aggiornati e di conseguenza riesco poco a seguire il lotto; oggi festivo ho qualche ora di tempo.
Torno su questo argomento molto interessante legato praticamente ad ambi su due ruote con lo stesso ritardo cronologico e con lo stesso ritardo di livello riferiti a solo due ambi, uno per ruota.
Innanzi tutto i miei complimenti a Cinzia che tiene aggiornato il post e segnala gli sfaldamenti.
Avrei voluto svolgere alcune statistiche particolari al riguardo, ma per ora mi è impossibile.
Come già detto in passato, questi ambi sono sempre stati per me tra i favoriti, ma non avevo mai avuto gli storici, mentre invece ora è possibile grazie agli script fatti da Cinzia, sempre bravissima.
x Cinzia
Dopo gli sfaldamenti da te segnalati, ho fatto girare il tuo script, comprensivi dei casi storici e alla data di oggi ho ricavato questo:

RSIL ATTUALI ULTIMA COPPIA DI AMBI DI 2 CSI (Cinzia)

dal 09.11.2010 estr. n. 8297 al 28.10.2021 estr. n. 9996

8304 8711 8718 GE 24.12 rdls 7
8304 8711 8811 PA 7.53 rdls 100
RDLS MINIMO 7
8318 8622 9198 MI 85.24 rdls 576
8318 8622 8676 VE 77.82 rdls 54
RDLS MINIMO 54
8356 9100 9919 BA 43.57 rdls 819
8356 9100 9309 MI 63.25 rdls 209
RDLS MINIMO 209
8387 8889 9528 PA 36.5 rdls 639
8387 8889 9478 NZ 21.15 rdls 589
RDLS MINIMO 589
8418 8913 9001 FI 69.38 rdls 88
8418 8913 9292 NA 67.26 rdls 379
RDLS MINIMO 88
8438 9255 9623 FI 63.9 rdls 368
8438 9255 9653 RO 88.28 rdls 398
RDLS MINIMO 368
8444 9572 9761 CA 69.80 rdls 189
8444 9572 9721 NA 86.21 rdls 149
RDLS MINIMO 149
8455 8976 9155 BA 16.56 rdls 179
8455 8976 9217 PA 46.53 rdls 241
RDLS MINIMO 179
8497 9071 9197 CA 81.17 rdls 126
8497 9071 9462 NA 73.65 rdls 391
RDLS MINIMO 126
8515 9165 9366 TO 13.31 rdls 201
8515 9165 9320 NZ 62.35 rdls 155
RDLS MINIMO 155
8523 9091 9607 MI 30.80 rdls 516
8523 9091 9629 NZ 14.6 rdls 538
RDLS MINIMO 516
8527 9137 9251 FI 49.43 rdls 114
8527 9137 9326 PA 35.2 rdls 189
RDLS MINIMO 114
8539 BA MI 9788 BA 25.55 MI 80.12 rdla 208
8559 9537 9757 CA 83.63 rdls 220
8559 9537 9710 VE 7.62 rdls 173
RDLS MINIMO 173
8620 9526 9534 FI 12.16 rdls 8
8620 9526 9849 VE 25.37 rdls 323
RDLS MINIMO 8
8695 CA GE 9766 CA 10.82 GE 70.38 rdla 230
8733 9546 9712 NA 74.83 rdls 166
8733 9546 9875 RO 83.78 rdls 329
RDLS MINIMO 166
8747 9365 9752 MI 48.9 rdls 387
8747 9365 9741 VE 4.60 rdls 376
RDLS MINIMO 376
8749 9308 9391 NA 4.83 rdls 83
8749 9308 9584 RO 57.71 rdls 276
RDLS MINIMO 83
8767 9264 9286 PA 11.51 rdls 22
8767 9264 9304 NZ 66.1 rdls 40
RDLS MINIMO 22
8772 9445 9732 NA 51.13 rdls 287
8772 9445 9499 NZ 19.21 rdls 54
RDLS MINIMO 54
8778 9473 9989 MI 25.45 rdls 516
8778 9473 9502 TO 66.87 rdls 29
RDLS MINIMO 29
8835 9643 9785 FI 90.48 rdls 142
8835 9643 9660 MI 13.50 rdls 17
RDLS MINIMO 17
8868 MI TO 9727 MI 36.87 TO 45.76 rdla 269
8891 9584 9827 FI 13.75 rdls 243
8891 9584 9885 VE 51.23 rdls 301
RDLS MINIMO 243
8924 9421 9474 NA 37.5 rdls 53
8924 9421 9816 VE 54.41 rdls 395
RDLS MINIMO 53
8926 FI NA 9853 FI 3.61 NA 35.59 rdla 143
8926 9592 9945 TO 42.73 rdls 353
8926 9592 9852 NZ 34.80 rdls 260
RDLS MINIMO 260
8939 FI VE 9975 FI 83.37 VE 54.18 rdla 21
8943 9628 9965 CA 54.12 rdls 337
8943 9628 9730 RO 3.57 rdls 102
RDLS MINIMO 102
8953 MI TO 9679 MI 20.12 TO 17.86 rdla 317
8978 NA VE 9727 NA 69.86 VE 87.20 rdla 269
9049 9865 9917 NA 29.75 rdls 52
9049 9865 9912 RO 65.37 rdls 47
RDLS MINIMO 47
9056 9405 9489 CA 8.53 rdls 84
9056 9405 9747 MI 78.14 rdls 342
RDLS MINIMO 84
9109 9641 9797 FI 68.73 rdls 156
9109 9641 9729 GE 47.42 rdls 88
RDLS MINIMO 88
9128 GE RO 9871 GE 83.51 RO 15.68 rdla 125
9146 9634 9809 NA 30.80 rdls 175
9146 9634 9992 TO 61.49 rdls 358
RDLS MINIMO 175
9163 9798 9942 PA 44.77 rdls 144
9163 9798 9831 TO 85.52 rdls 33
RDLS MINIMO 33
9164 PA RO 9982 PA 79.1 RO 8.76 rdla 14
9167 9671 9731 GE 7.11 rdls 60
9167 9671 9805 TO 76.78 rdls 134
RDLS MINIMO 60
9221 9783 9810 FI 86.56 rdls 27
9221 9783 9823 GE 35.8 rdls 40
RDLS MINIMO 27
9254 9768 9869 BA 26.69 rdls 101
9254 9768 9802 PA 87.68 rdls 34
RDLS MINIMO 34
9263 9958 9995 GE 59.80 rdls 37
9263 9958 9975 RO 58.27 rdls 17
RDLS MINIMO 17
9266 FI GE 9985 FI 86.62 GE 6.72 rdla 11
9309 FI NZ 9914 FI 10.34 NZ 81.57 rdla 82
Casi attuali 11
Massimo ritardo attuale 317

Casi storici 68
Massimo ritardo storico 589
st>= 700
st>= 600
st>= 500 2
st>= 400 2

Tra gli storici credevo di trovare anche i casi degli ambi sfaldati segnalati da te ultimamente:
9378 Ge Ve 9948 Ge 21.84 Ve 50.44 rdla 37

9164 Pa Ro 9982 Pa 79.01 Ro 08.76 rdla 14

Invece non figurano e credo che riappariranno rispettivamente quando sortiranno gli altri due ambi presenti: quello di VE 50.44 e quello di RO 08.76.

Non ho altre spiegazioni e penso che tu confermerai ciò in base a come hai impostato lo script.
Una domanda: per caso hai fatto lo script più sbrigativo con i soli casi attuali?

Ti ringrazio se vorrai darmi conferma ed auguro a tutti buona festa, ciao
Matteo
 

Cinzia27

Premium Member
Ciao, Matteo.
E' sempre un piacere sentirti. Anche per me questa è una delle ricerche migliori che abbiamo condotto e con grande partecipazione degli appassionati di statistica.
Si tratta attualmente di 10 coppie (20 ambi), a volte sono qualcuna in più, a volte qualcuna in meno, ma nulla di stratosferico. la ricerca, nel medio periodo offre qualche ambo secco su ruota, soprattutto se si tiene presente che il fine principale è inseguire la coppia capolista quando è vicina allo storico. Di fatto, è difficile che si arrivi a quel traguardo e nel frattempo si sfaldano le altre.

Per quanto riguarda l' aggiornamento, posto subito la situazione attuale.
RSIL ATTUALI ULTIMA COPPIA DI AMBI DI 2 CSI (script Cinzia)

dal 26.05.2012 estr. n. 8539 al 30.10.2021 estr. n. 9997

8539 Ba Mi 9788 Ba 25.55 Mi 80.12 rdla 209
8695 Ca Ge 9766 Ca 10.82 Ge 70.38 rdla 231
8868 Mi To 9727 Mi 36.87 To 45.76 rdla 270
8926 Fi Na 9853 Fi 03.61 Na 35.59 rdla 144
8939 Fi Ve 9975 Fi 83.37 Ve 54.18 rdla 22
8953 Mi To 9679 Mi 20.12 To 17.86 rdla 318
8978 Na Ve 9727 Na 69.86 Ve 87.20 rdla 270
9128 Ge Ro 9871 Ge 83.51 Ro 15.68 rdla 126
9266 Fi Ge 9985 Fi 86.62 Ge 06.72 rdla 12
9309 Fi Nz 9914 Fi 10.34 Nz 81.57 rdla 83
Casi attuali 10
Massimo ritardo attuale 318
Invece non figurano e credo che riappariranno rispettivamente quando sortiranno gli altri due ambi presenti: quello di VE 50.44 e quello di RO 08.76.

Come al solito, hai esattamente compreso la dinamica dello script.
Infatti con questa riga
If sp1(1) > 0 And sp(1) > 0 And sp(10 - qq) = sp1(10 - qq) And sp(10 - qq) < sp(10 - qq + 1) And sp1(10 - qq) < sp1(10 - qq + 1) Then
ho voluto sia avere la situazione chiusa con entrambi i ritardi, sia evitare sovrapposizioni tra l' uscita del nono e l' uscita del decimo ambo.

Ecco lo script adattato ai soli casi attuali.
Non necessita adattamenti a Spaziometria, dove in qualche minuto si conclude.
Altrove ci mette diversi minuti in più.


Codice:
Sub Main()
    Scrivi Space(18) & "RSIL ATTUALI ULTIMA COPPIA DI AMBI DI 2 CSI (Cinzia)":Scrivi
    Dim a1(2),a2(2),a3(2),a4(2),a5(2),a6(2),a7(2),a8(2),a9(2),a10(2),sp(10),ru(1),n(2),nn(2)
    Dim b1(2),b2(2),b3(2),b4(2),b5(2),b6(2),b7(2),b8(2),b9(2),b10(2),sp1(10),ru1(1),n1(2),nn1(2)
  
    fin = EstrazioneFin
    ini = 8539
    Scrivi "dal " & DataEstrazione(ini) & " estr. n. " & ini & " al " & DataEstrazione(fin) & " estr. n. " & fin
    Scrivi
    qq = 1:qq1 = 2
    For es = ini To fin
    ex=es+1
    If ex>fin Then ex=fin
    For r = 1 To 10
    ru(1) = r
    a1(1) = Estratto(es,r,1)
    If a1(1) > 0 Then
    a1(2) = Estratto(es,r,2)
    a2(1) = Estratto(es,r,1)
    a2(2) = Estratto(es,r,3)
    a3(1) = Estratto(es,r,1)
    a3(2) = Estratto(es,r,4)
    a4(1) = Estratto(es,r,1)
    a4(2) = Estratto(es,r,5)
    a5(1) = Estratto(es,r,2)
    a5(2) = Estratto(es,r,3)
    a6(1) = Estratto(es,r,2)
    a6(2) = Estratto(es,r,4)
    a7(1) = Estratto(es,r,2)
    a7(2) = Estratto(es,r,5)
    a8(1) = Estratto(es,r,3)
    a8(2) = Estratto(es,r,4)
    a9(1) = Estratto(es,r,3)
    a9(2) = Estratto(es,r,5)
    a10(1) = Estratto(es,r,4)
    a10(2) = Estratto(es,r,5)
    sp(1) = SeriePrima(ex,fin,a1,ru,2)
    sp(2) = SeriePrima(ex,fin,a2,ru,2)
    sp(3) = SeriePrima(ex,fin,a3,ru,2)
    sp(4) = SeriePrima(ex,fin,a4,ru,2)
    sp(5) = SeriePrima(ex,fin,a5,ru,2)
    sp(6) = SeriePrima(ex,fin,a6,ru,2)
    sp(7) = SeriePrima(ex,fin,a7,ru,2)
    sp(8) = SeriePrima(ex,fin,a8,ru,2)
    sp(9) = SeriePrima(ex,fin,a9,ru,2)
    sp(10) = SeriePrima(ex,fin,a10,ru,2)
    OrdinaMatrice(sp),1

    For r1 = r + 1 To 11
    If r1 = 11 Then r1 = 12
    ru1(1) = r1
    b1(1) = Estratto(es,r1,1)
    If b1(1) > 0 Then
    b1(2) = Estratto(es,r1,2)
    b2(1) = Estratto(es,r1,1)
    b2(2) = Estratto(es,r1,3)
    b3(1) = Estratto(es,r1,1)
    b3(2) = Estratto(es,r1,4)
    b4(1) = Estratto(es,r1,1)
    b4(2) = Estratto(es,r1,5)
    b5(1) = Estratto(es,r1,2)
    b5(2) = Estratto(es,r1,3)
    b6(1) = Estratto(es,r1,2)
    b6(2) = Estratto(es,r1,4)
    b7(1) = Estratto(es,r1,2)
    b7(2) = Estratto(es,r1,5)
    b8(1) = Estratto(es,r1,3)
    b8(2) = Estratto(es,r1,4)
    b9(1) = Estratto(es,r1,3)
    b9(2) = Estratto(es,r1,5)
    b10(1) = Estratto(es,r1,4)
    b10(2) = Estratto(es,r1,5)

    sp1(1) = SeriePrima(ex,fin,b1,ru1,2)
    sp1(2) = SeriePrima(ex,fin,b2,ru1,2)
    sp1(3) = SeriePrima(ex,fin,b3,ru1,2)
    sp1(4) = SeriePrima(ex,fin,b4,ru1,2)
    sp1(5) = SeriePrima(ex,fin,b5,ru1,2)
    sp1(6) = SeriePrima(ex,fin,b6,ru1,2)
    sp1(7) = SeriePrima(ex,fin,b7,ru1,2)
    sp1(8) = SeriePrima(ex,fin,b8,ru1,2)
    sp1(9) = SeriePrima(ex,fin,b9,ru1,2)
    sp1(10) = SeriePrima(ex,fin,b10,ru1,2)
    OrdinaMatrice(sp1),1
    If sp1(qq) = 0 And sp1(qq1) > 0 Then
    If sp(qq) = 0 And sp(qq1) > 0 Then
    If  sp(10) = sp1(10) Then
    Messaggio(DataEstrazione(es) & " " & es & " " & SiglaRuota(r) & " " & SiglaRuota(r1))
    casi = casi + 1
    rt1 = fin - sp(10)

    ColoreTesto 1
    Scrivi es  & " ",0,0
    Scrivi sp(10) & " " & SiglaRuota(r) & " ",0,0
    For p = 1 To 4
    For p1 = p + 1 To 5
    n(1) = Estratto(es,r,p)
    n(2) = Estratto(es,r,p1)
    If SerieFreq(ex,fin,n,ru,2) = 0 Then
    Scrivi StringaNumeri(n) & " ",0,0
    End If
    Next
    Next
    Scrivi SiglaRuota(r1) & " ",0,0
    For pp = 1 To 4
    For pp1 = pp + 1 To 5
    n1(1) = Estratto(es,r1,pp)
    n1(2) = Estratto(es,r1,pp1)
    If SerieFreq(ex,fin,n1,ru1,2) = 0 Then
    Scrivi StringaNumeri(n1) & " ",0,0
    End If
    Next
    Next
    Scrivi "rdla " & rt1
    If rt1 > max Then max = rt1
    ColoreTesto 0
    End If
    End If
End If
End If
    Next

    End If

    Next
    Next
    ColoreTesto 1
    Scrivi "Casi attuali " & casi
    Scrivi " Massimo ritardo attuale " & max,1
      End Sub

Un caro saluto
Cinzia
 

Mat

Advanced Member >PLATINUM<
Grazie Cinzia,
sempre eccellente e velocissima.
Certamente gli script, come sai, non sono il mio forte, perciò ho dovuto pensarci un po' per arrivarci; poi naturalmente come al solito mi ha aiutato la statistica per capire le tue istruzioni.
Ciao e grazie,
Matteo
 

Mat

Advanced Member >PLATINUM<
Ciao Cinzia,
come ben sai l'appetito vien mangiando.
Curiosità o altro:
quanti sono al momento gli ambi singoli in attesa di sortire come gli ambi di sopra?

VE 50.44 e quello di RO 08.76

Quali sono gli storici degli ambi residui di queste coppie molto particolari?
In questo caso resta in gioco solo un ambo.
Ti chiedo sempre di più, scusami, ma ormai mi conosci: certamente non è mia intenzione spremerti troppo.
So per certo che anche tu vorrai esplorare.
Ciao,
Matteo
 

simimi

Member
Buongiorno Cinzia,
complimenti per lo script, ma soprattutto per l'intuizione ingegnosa che hai avuto.
Ti chiedevo se fosse possibile attuare lo script alle ambate con la tua logica, coinvolgendo più ruote.
Ringraziandoti del tuo tempo e della tua disponibilità ti saluto cordialmente.
 

Cinzia27

Premium Member
Ciao, Simimi. In verità il merito è soprattutto di Gam, Matteo e altri ottimi studiosi che mi hanno fatto avvicinare al concetto di ritardo relativo. Poi, certo, ci ho messo del mio traducendolo in script.
Posto volentieri il mio vecchio e personale listato delle coppie di ambate a cui tengo particolarmente. Il meccanismo è lo stesso : al verificarsi dell' uscita contemporanea del penultimo (4°) numero di due CSI ( cinquine sincrone-isocrone) si considerano le ultime ambate residue (5°) che da quel momento iniziano ad accumulare il medesimo ritardo relativo. Il gioco si interrompe alla sortita di una delle 2 ambate.

Allo script ho aggiunto le posizioni d' origine poiché volevo fare un' analisi a parte limitata ad esse, sempre però per l' uscita dell' estratto semplice Poi, come succede quando si rimanda, le cose vanno nel dimenticatoio.
Nei commenti ho annotato i risultati storici. Dato che sono passati alcuni anni potrebbero essere più elevati


Codice:
'Storico RSIL 5° Estratto : 90
'Casi 6665
'RSIL > 60 : 14
'RSIL > 50 : 34
'RSIL > 40 : 106
'RSIL > 30 : 422
'-----------------------------------------
' per l' archivio dinamico
'Storico RSIL 5° estratto : 93
'Casi 4169
'RSIL > 60 : 4
'RSIL > 50 : 22
'RSIL > 40 : 64
'RSIL > 30 : 250
'Storico RSIL 5° Estratto : 90
'Casi 6665
'RSIL > 60 : 14
'RSIL > 50 : 34
'RSIL > 40 : 106
'RSIL > 30 : 422
'---------------------------------------
'Storico AGG. RSIL 5° estratto : 90
'Casi 7426
'RSIL > 60 : 16
'RSIL > 50 : 36
'RSIL > 40 : 114
'RSIL > 30 : 456

'Storico AGG. RSIL 5° estratto posizioni= : 90
'Casi 1459
'RSIL >= 60 : 3
'RSIL >= 50 : 4
'RSIL >= 40 : 9
'RSIL >= 30 : 35
'RSIL >= 20 : 167

Scrivi "RSIL attuali 5° estratti 2 ruote(Cinzia)COPPIE DI AMBATE"&chr(10)
If EstrazioniArchivio>EstrazioneFin Then Scrivi " Uscite estrazione "&EstrazioneFin+1
ColoreTesto 6
Scrivi String(80,"*")
ColoreTesto 0
Sub main()
Dim n1(1),n2(1),n3(1),n4(1),n5(1),nn1(1),nn2(1),nn3(1),nn4(1),nn5(1),ru(1),ru1(1)
Dim s(5),ss(5),nu(1),nu1(1)
fin=EstrazioneFin
ini=fin-100
If EstrazioniArchivio=EstrazioneFin Then Scrivi "Estrazione finale "&Fin
For es=ini To fin
Messaggio(es)
For r=1 To 10
ru(1)=r
For r1=r+1 To 11
If r1=11 Then r1=12
ru1(1)=r1
n1(1)=Estratto(es,r,1)
n2(1)=Estratto(es,r,2)
n3(1)=Estratto(es,r,3)
n4(1)=Estratto(es,r,4)
n5(1)=Estratto(es,r,5)
nn1(1)=Estratto(es,r1,1)
nn2(1)=Estratto(es,r1,2)
nn3(1)=Estratto(es,r1,3)
nn4(1)=Estratto(es,r1,4)
nn5(1)=Estratto(es,r1,5)
ex=es+1
If ex<=fin Then
s(1)=SeriePrima(ex,fin,n1,ru,1)
s(2)=SeriePrima(ex,fin,n2,ru,1)
s(3)=SeriePrima(ex,fin,n3,ru,1)
s(4)=SeriePrima(ex,fin,n4,ru,1)
s(5)=SeriePrima(ex,fin,n5,ru,1)
ss(1)=SeriePrima(ex,fin,nn1,ru1,1)
ss(2)=SeriePrima(ex,fin,nn2,ru1,1)
ss(3)=SeriePrima(ex,fin,nn3,ru1,1)
ss(4)=SeriePrima(ex,fin,nn4,ru1,1)
ss(5)=SeriePrima(ex,fin,nn5,ru1,1)
OrdinaMatrice s
OrdinaMatrice ss
If s(2)>0  And ss(2)>0  Then
If s(1)=0 And ss(1)=0 Then
If s(5)=ss(5) Then
rit=fin-s(5)
'If rit>5 Then 'qui metti il ritardo
For x=1 To 5
nu(1)=Estratto(es,r,x)
For x1=1 To 5
nu1(1)=Estratto(es,r1,x1)
If SerieFreq(ex,fin,nu,ru,1)=0 And SerieFreq(ex,fin,nu1,ru1,1)=0 Then
If SerieFreq(fin+1,fin+1,nu,ru,1)>0 Or  SerieFreq(fin+1,fin+1,nu1,ru1,1)>0 Then
ColoreTesto 2
Scrivi es&"    "&s(5)&"    "&siglaruota(r)&"  "&format2(nu(1))&"  "&siglaruota(r1)& _
"  "&format2(nu1(1))&" ",0,0
Scrivi"   rdl "&formatspace(rit,4),1,0
Scrivi" rc "&formatspace(fin-es,4)&"  "&formatnumber(rit/(fin-es),2)&" COPPIA SFALDATA ALL' ESTR. N. "&fin+1&"  ",0,0
If x=x1 Then Scrivi "entrambi con posizione "&x Else Scrivi
Else
ColoreTesto 0
Scrivi es&"    "&s(5)&"    "&siglaruota(r)&"  "&format2(nu(1))&"  "&siglaruota(r1)& _
"  "&format2(nu1(1))&" ",0,0
Scrivi"   rdl "&formatspace(rit,4),1,0
Scrivi" rc "&formatspace(fin-es,4)&"  "&formatnumber(rit/(fin-es),2)&"  ",0,0
If x=x1 Then Scrivi "entrambi con posizione "&x Else Scrivi

End If
End If
Next
Next
End If
End If
End If
'End If
End If
 
Next
Next
Next
End Sub
 

simimi

Member
Ciao Cinzia,
ti ringrazio per la tua disponibilità, e vorrei ringraziare anche Gam, Matteo e gli altri che ti hanno permesso di ottimizzare questa idea.
Non sono riuscito a farlo girare in quanto mi da errore su
OrdinaMatrice s,
hai per caso la possibilità di controllarlo?
Nuovamente ti ringrazio e ti auguro una buona serata
Simimi
 

simimi

Member
Cinzia ho notato che lo script non segnala tutte le ambate. Ad esempio il rigo del tabellone analitico porta al ritardo 42 i seguenti numeri:
FI 7 GE 13 MI 89 NA 80 RM 56 e NZ 12 - mentre i risultati dello script sono quelli che posto

Estrazione finale 9997
9943 9972 TO 14 NZ 73 rdl 25 rc 54 0,46
9955 9977 GE 13 RO 56 rdl 20 rc 42 0,48 entrambi con posizione 3
9955 9977 GE 13 NZ 12 rdl 20 rc 42 0,48 entrambi con posizione 3
9955 9977 RO 56 NZ 12 rdl 20 rc 42 0,48 entrambi con posizione 3

9961 9982 PA 50 VE 84 rdl 15 rc 36 0,42
9964 9988 TO 59 VE 26 rdl 9 rc 33 0,27
9965 9997 TO 22 VE 35 rdl 0 rc 32 0,00
9970 9988 NA 42 TO 75 rdl 9 rc 27 0,33
9971 9994 BA 22 CA 51 rdl 3 rc 26 0,12
9975 9992 GE 76 PA 64 rdl 5 rc 22 0,23
9979 9993 BA 76 PA 44 rdl 4 rc 18 0,22
9983 9995 MI 55 RO 81 rdl 2 rc 14 0,14
dove sbaglio?
Grazie
 

silop2005

Advanced Member >PLATINUM<
LOGOSILOP.gif
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62
======================
simimi ,
======================
perché non hanno lo stesso RDL = 20
Firenze ha un RDL= 13
Milano ha un RDL= 21
======================
Buon martedì a tutto il forum.
======================
stickman.gif
A presto
Silop ;) ;) ;)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 27 aprile 2024
    Bari
    02
    74
    34
    72
    78
    Cagliari
    60
    62
    43
    58
    38
    Firenze
    88
    70
    85
    38
    50
    Genova
    18
    61
    70
    08
    80
    Milano
    85
    81
    16
    03
    26
    Napoli
    34
    31
    01
    41
    51
    Palermo
    52
    59
    54
    35
    05
    Roma
    34
    83
    23
    67
    61
    Torino
    86
    59
    61
    62
    48
    Venezia
    69
    50
    40
    05
    79
    Nazionale
    31
    30
    85
    45
    67
    Estrazione Simbolotto
    Genova
    37
    02
    21
    34
    13

Ultimi Messaggi

Alto