Novità

Cinquine CSP

miki55

Advanced Member >PLATINUM PLUS<
Salve a voi tutti ragazzi.
Vedo che da un pò di tempo fate veramente miracoli con gli script
e devo ricinoscere che Mike58 mi stupisce sempre più....

Ma veniamo al dunque...
Desideravo chiedervi se fosse possibile uno script per le Cinquine CSP.

Per chi non lo sapesse, sono in pratica "ambi ripetuti" che ancora non
hanno fornito esito per l'estratto di coppia. Fin quà ci siamo...

Chiedo però, anche di inserire anche la terzina rimanente della stessa
cinquina, che spesso viene dimenticata da noi studiosi.

Haimè sono sprovvisto di tale tabella che suddivide, gli AMBI Csp ancora in
corso da una parte e la TERZINA rimanente dall'altra, con i rispettivi ritardi
storici.

Chiedo troppo??
 
Ultima modifica:
Ciao Miki

Mi sembra di averci fatto qualcosa molti anni fa e sempre se non ricordo male

c'erano anche lavori di Cinzia.

Ma ... più indirizzati al classico di cui hai scritto.

Provo a cercare se ho qualcosa di già fatto ... che possa essere utile.

Sempre fermo restando, che se qualcuna/o vuole proporre ... ben venga.

:) Buona Giornata a tutte/i.
 
Ciao Miki

Mi sembra di averci fatto qualcosa molti anni fa e sempre se non ricordo male

c'erano anche lavori di Cinzia.

Ma ... più indirizzati al classico di cui hai scritto.

Provo a cercare se ho qualcosa di già fatto ... che possa essere utile.

Sempre fermo restando, che se qualcuna/o vuole proporre ... ben venga.

:) Buona Giornata a tutte/i.
Ciao Joe. Si, difatti ho ancora qualcosina, ma non sono sufficienti, poiche
sono senza le terzine rimanenti e gli storici di entrambi...
 
Ciao Miki, a me mancano un pò di dettagli per provare a vedere la fattibilità dello script.
Cioè
1 - Ambo Ripetuto su 2 ruote stessa estrazione, oppure Ambo ripetuto 1 ruota e su quante estrazioni a ritoso.
2 - la Terzina rimanente non deve aver fornito ambata o è solo visiva e poi tutte e 2 le terzine dei 2 eventi.

senza dettagli + definiti diventa incompleto.

Se puoi fai un bel esempio reale come tu sai fare e con la chiarezza che ti ha sempre contraddistinto, anche io posso provare a cimentarmi.

Ciao
 
1 - Ambo Ripetuto su 2 ruote stessa estrazione, oppure Ambo ripetuto 1 ruota e su quante estrazioni a ritoso.
Parlo di ambo ripetuto nella stessa ruota che diventano DUE UGUALI che prima o poi dovrà rompersi per sortire come estratto.
Esempio: guarda la coppia di ROMA 27.71 è un'ambo ripetuto ma senza la ripetizione dell'estratto...

2 - la Terzina rimanente non deve aver fornito ambata o è solo visiva e poi tutte e 2 le terzine dei 2 eventi.
La terzina rimanente, sarebbe quella dove sortisce un nr dell'ambo ripetuto, ma la terzine (della cinquina nascente) rimane intatta...
Esempio:


Cade l'ambo 58.44 ripetuto (come ambo) ma la terzina rimane intatta, che si rompe dopo 6/7 estrazioni.
Questa si chiama "terzina rimanente" CSP. L'ho fatto a mano speriamo che tu abbia capito...
 
Ultima modifica:
Miki per ora ho raccolto tutte le situazioni attive con ambo caduto e terzina vergine per estratto.
fai una verifica per gli storici per ora in questo script non ci arrivo,
Intanto raccogliamo il dato tuttora attivo.
Codice:
Sub Main
   Dim Nu(5),aN(5),Ru(1),Nn(5)
   Dim T,V
   Scrivi "*** CsP *** script by Mike58 *** Richesta by Miki55 **** ",1,,,1,3,,1
   Scrivi
   T = Array(T,"Ruota","Es","Estratti","Ambo Caduto","VerificaEsito","colpo","Id ","Terzina Rimasta","Ritardo TZ")
   Call InitTabella(T)
   Ini = EstrazioneFin - 50
   fin = EstrazioneFin
   For r = 1 To 12
      If r = 11 Then r = 12
      Ru(1) = r
      For es = Ini To fin 'Step - 1
         For p = 1 To 5
            Nu(p) = Estratto(es,r,p)
            aN(p) = Estratto(es,r,p)
            Nn(p) = Estratto(es,r,p)
            If EstrattoFrequenza(r,aN(p),es,fin) > 1 Then aN(p) = "--"
            If aN(p) <> "--" Then k = k + 1
            If EstrattoFrequenza(r,Nu(p),es,fin) < 2 Then Nu(p) = "--"
         Next
         Call VerificaEsito(Nn,Ru,es + 1,2,20,,esitoA,clp,esa,id)
         If esitoA <> "" And k = 3 Then
            'Scrivi es & vbTab & fin - es & vbTab & StringaNumeri(Nn,,1) & vbTab & StringaNumeri(aN,,1) & " ( " & k & " )" & vbTab & StringaNumeri(Nu,,1) & vbTab & esa & vbTab & clp & " - " & id
            V = Array(V,SiglaRuota(r),es,StringaNumeri(Nn,,1),StringaNumeri(Nu,,1),esa,clp,id,StringaNumeri(aN,,1),fin - es)
            Call AddRigaTabella(V)
         End If
         k = 0
      Next
   Next
   Call CreaTabella(9)
End Sub
 
Ciao Mike. Io intendo una tabella del genere.
Questa sotto, (che è parziale) ho fatto a mano, dove sono gli ambi CSP ancora
vergini e una parte delle terzine sortite.
Se inseriamo tutte le CINQUINE Csp integrali, troviamo quelle dove sono sortiti,
prima gli ambi e le terzine sono rimaste vergini...
Facendo una Tabella del genere, che suddividiamo le formazioni in due settori,
teniamo il controllo totale, sia per le terzine rimanenti, che gli ambi ripetuti.
Ecco quello che manca, l'elenco di tutte le Cinquine CSP da quando
nascono fino alla loro rottura.
Se sortiscono prima gli ambi, andiamo avanti con la terzina...
Se sortiscono prima le terzine andiamo avanti con gli ambi
(che sarebbe quella che ho esposto qui sotto)




Spero di essere stato chiaro, per il resto sono a disposizione.
Ciao Buonagiornata e grazie di cuore.
 
Ultima modifica:
Miki, sicuramente non è immediato, ma ho preferito questi risultati.
Con Tabella ordinabile puoi filtrare gli ordini che preferisci.
Poi ho anche raccolto la distribuzione degli esiti e degli esiti mancanti.

prova non era semplice.

Codice:
Sub Main
   Dim nu(5),calc(5),ru(1),an(2),posta(1)
   Dim T,V
   Ini = EstrazioneFin - 20
   fin = EstrazioneFin
   Scrivi "Studio su CSP - ambo ripetuto + Numeri in Terzina mancanti - Colpi - Esiti  *** By Mike58-Miki55 ***",1,,,1,3,,1
   Scrivi
   T = Array(T,"Es Info Ultima","Es info Prec","Diff Es","Ruota","Estratti Es Utima","Ambo Ripetuto","Freq","Terzina Mancante","VerificaEsito","Colpo","Id")
   Call InitTabella(T)
   For es = Ini To fin
      posta(1) = 1
      For r = 1 To 12
      If r = 11 Then r = 12
         ru(1) = r
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r,p1)
               b = Estratto(es,r,p2)
               an(1) = a
               an(2) = b
               af = AmboFrequenza(r,a,b,es,fin)
               If af > 1 Then
                  sp = SeriePrima(es,fin,an,ru,2)
                  su = SerieUltima(es,fin,an,ru,2)
                  ex = su - sp
                  For p3 = 1 To 5
                     nu(p3) = Estratto(su,r,p3)
                     If nu(p3) = a Or nu(p3) = b Then nu(p3) = 0
                  Next
                  Call VerificaEsito(nu,ru,su + 1,1,20,,esito,colpi,estratti,id)
                  Call StatisticaFormazione(nu,ru,1,rit,,,fre,su + 1,id)
                  'If fre = 0 Then
                  If esito <> "" Then
                     esa = estratti
                  Else
                     esa = "In corso ....... "
                  End If
                  V = Array(V,(su),sp,ex,SiglaRuota(r),StringaEstratti(su,r),StringaNumeri(an),af,StringaNumeri(nu),esa,colpi,id)
                  Call AddRigaTabella(V)
                  '----------------------------------------
                  Call ImpostaGiocata(1,nu,ru,posta,20,1)
                  Call Gioca(su,,,,,False)
               End If
            Next
         Next
      Next
   Next
   Call CreaTabellaOrdinabile()
   ScriviDistribuzioneEsiti(False)
   ScriviDistribuzioneCasiInCorso(True)
End Sub
 
Miki, sicuramente non è immediato, ma ho preferito questi risultati.
Con Tabella ordinabile puoi filtrare gli ordini che preferisci.
Poi ho anche raccolto la distribuzione degli esiti e degli esiti mancanti.

prova non era semplice.

Codice:
Sub Main
   Dim nu(5),calc(5),ru(1),an(2),posta(1)
   Dim T,V
   Ini = EstrazioneFin - 20
   fin = EstrazioneFin
   Scrivi "Studio su CSP - ambo ripetuto + Numeri in Terzina mancanti - Colpi - Esiti  *** By Mike58-Miki55 ***",1,,,1,3,,1
   Scrivi
   T = Array(T,"Es Info Ultima","Es info Prec","Diff Es","Ruota","Estratti Es Utima","Ambo Ripetuto","Freq","Terzina Mancante","VerificaEsito","Colpo","Id")
   Call InitTabella(T)
   For es = Ini To fin
      posta(1) = 1
      For r = 1 To 12
      If r = 11 Then r = 12
         ru(1) = r
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r,p1)
               b = Estratto(es,r,p2)
               an(1) = a
               an(2) = b
               af = AmboFrequenza(r,a,b,es,fin)
               If af > 1 Then
                  sp = SeriePrima(es,fin,an,ru,2)
                  su = SerieUltima(es,fin,an,ru,2)
                  ex = su - sp
                  For p3 = 1 To 5
                     nu(p3) = Estratto(su,r,p3)
                     If nu(p3) = a Or nu(p3) = b Then nu(p3) = 0
                  Next
                  Call VerificaEsito(nu,ru,su + 1,1,20,,esito,colpi,estratti,id)
                  Call StatisticaFormazione(nu,ru,1,rit,,,fre,su + 1,id)
                  'If fre = 0 Then
                  If esito <> "" Then
                     esa = estratti
                  Else
                     esa = "In corso ....... "
                  End If
                  V = Array(V,(su),sp,ex,SiglaRuota(r),StringaEstratti(su,r),StringaNumeri(an),af,StringaNumeri(nu),esa,colpi,id)
                  Call AddRigaTabella(V)
                  '----------------------------------------
                  Call ImpostaGiocata(1,nu,ru,posta,20,1)
                  Call Gioca(su,,,,,False)
               End If
            Next
         Next
      Next
   Next
   Call CreaTabellaOrdinabile()
   ScriviDistribuzioneEsiti(False)
   ScriviDistribuzioneCasiInCorso(True)
End Sub
BRAVISSIMO!!!!
Complimenti x questo lavoro...

Buon Natale a te e familiari Mike58
e grazie con stima e affetto
 
Ciao Mike non me ne volore ma è stato sufficente fare qualche copia e incolla mirato, sappiamo entrambi che il grosso del lavoro è merito tuo....
ma ScriviDistribuzioneEsiti e ScriviDistribuzioneCasiInCorso dove stanno nascosti, nell'help non li ho trovati.... ahahaha quel Luigi ....... quante ne ha fatte

un saluto

x miki55 che dire ho provato ad ampliare la visione del quadro complessivo inserendo sia per l'ambo rip. che per la 1a terzina i dati di esito.
anche a te un saluto


Codice:
Sub Main
    Dim nu(5),nu1(5),calc(5),ru(1),an(2),posta(1)
    Dim T,V,Ini,fin
    Ini = EstrazioneFin - 21
    fin = EstrazioneFin
    Scrivi "Studio su CSP - ambo ripetuto + Numeri in Terzina mancanti - Colpi - Esiti  *** By Mike58-Miki55 ***",1,,,1,3,,1
    'Scrivi
    T = Array(T,"Es Prima","Es Ultima","Dif","Ruo","Estratti Prima","Estratti Utima","Ambo","Fr","Esito Ambo","Clp","Id  A","Terz Iniziale"," Esito 1a Terz","Clp","Id 1a","Terz Finale","Esito 2a Terz","Clp","Id 2a")
    Call InitTabella(T,,"center",1)
    For es = Ini To fin
        posta(1) = 1
        For r = 1 To 12
            If r = 11 Then r = 12
            ru(1) = r
            For p1 = 1 To 4
                For p2 = p1 + 1 To 5
                    a = Estratto(es,r,p1)
                    b = Estratto(es,r,p2)
                    an(1) = a
                    an(2) = b
                    af = AmboFrequenza(r,a,b,es,fin)
                    If af > 1 Then
                        sp = SeriePrima(es,fin,an,ru,2)
                        su = SerieUltima(es,fin,an,ru,2)
                        ex = su - sp
                        Call VerificaEsito(an,ru,su + 1,1,20,,esitoA,colpiA,estrattiA,id0)
                        If esitoA <> "" Then
                            esaA = estrattiA
                        Else
                            esaA = "In corso x " & 20 -(EstrazioneFin - Su) & " clp"
                            colpiA = "--"
                        End If
                        For x = 1 To 5
                            nu1(x) = Estratto(sp,r,x)
                            If nu1(x) = a Or nu1(x) = b Then nu1(x) = 0
                        Next
                        Call VerificaEsito(nu1,ru,su + 1,1,20,,esito1,colpi1,estratti1,id1)
                        If esito1 <> "" Then
                            esa1 = estratti1
                        Else
                            esa1 = "In corso x " & 20 -(EstrazioneFin - Su) & " clp"
                            colpi1 = "--"
                        End If
                        For p3 = 1 To 5
                            nu(p3) = Estratto(su,r,p3)
                            If nu(p3) = a Or nu(p3) = b Then nu(p3) = 0
                        Next
                        Call VerificaEsito(nu,ru,su + 1,1,20,,esito,colpi,estratti,id2)
                        Call StatisticaFormazione(nu,ru,1,rit,,,fre,su + 1,id)
                        'If fre = 0 Then
                        If esito <> "" Then
                            esa = estratti
                        Else
                            esa = "In corso x " & 20 -(EstrazioneFin - Su) & " clp"
                            colpi = "--"
                        End If
                        V = Array(V,DataEstrazione(sp),DataEstrazione(su),ex,SiglaRuota(r),StringaEstratti(sp,r),StringaEstratti(su,r),StringaNumeri(an),af,esaA,colpiA,id0,StringaNumeri(nu1),esa1,colpi1,id1,StringaNumeri(nu),esa,colpi,id2)
                        Call AddRigaTabella(V,,"center",1)
                        '----------------------------------------
                        Call ImpostaGiocata(1,nu,ru,posta,20,1)
                        Call Gioca(su,,,,,False)
                    End If
                Next
            Next
        Next
    Next
    Dim sTitolo
    sTitolo = "CSP_ambo_ripetuto_Terzina_mancanti_dalla_" & Ini & "_alla_" & fin
    Call SetTableTitle(sTitolo,"Arial",10,False,2)
    Call SetTableHeight("100%")
    Call SetTableWidth("100%")
    Call CreaTabellaOrdinabile2(,,,0,0,False,False) ' esportabile con titolo in formato .gri
    'Call CreaTabellaOrdinabile()
    ScriviDistribuzioneEsiti(False)
    ScriviDistribuzioneCasiInCorso(True)
End Sub
 
Bravo Claudio, ho notato però che tra un ambo e l'altro sono sortiti gli estratti
dello statto ambo, o mi sbaglio??
Ecco un prototipo di Cinquina Csp...


ecco lo script che chiedervo, Mike58 lo ha fatto solo della terzina rimanente, ma va bene lo stesso,
anzi lo ringrazio infinitamente...
 
Miki55, ti ripeto, il motore dello script è opera di Mike, io ho solo ingrandito la visuale al fine di evidenziare altre ipotesi di gioco ivi compreso quanto hai notato.
Ti specifico che la ricerca dell'estratto tra i numeri dell'ambo ripetuto inizia dalla estrazione succesiva alla ripetizione dell'ambo.
Saluti
 
Ciao Claudio, hai dovuto anche te studiare lo script per apportare le modifiche aggiuntive, bravo.

i 2 codici utilizzati nell'help ci sono devi scriverli per intero in ricerca e poi è inteso che devi avere le ultime versioni di spaziometria.
come hai visto sono utilizzabili dopo aver immesso ImpostaGiocata e Gioca anche se false nella scrittura solo in questo caso raccolgono i dati voluti.

Per Miki poi vedo di capire ulteriomente vedo che vuoi anche l'esito dell'ambo ripetuto.

Ciao
 
Per Miki poi vedo di capire ulteriomente vedo che vuoi anche l'esito dell'ambo ripetuto.
Sì Mike, nelle stessa tabella, sia l'uno che l'altro come nell'esempio sopra,
sempre se è possibile. Grazie infinite
 
Miki55, ti ripeto, il motore dello script è opera di Mike, io ho solo ingrandito la visuale al fine di evidenziare altre ipotesi di gioco ivi compreso quanto hai notato.
Ti specifico che la ricerca dell'estratto tra i numeri dell'ambo ripetuto inizia dalla estrazione succesiva alla ripetizione dell'ambo.
Saluti
Grazie Claudio è bellissmo il tuo lavoro e ho notato anche molti ambi sortiti,
ma al momento non posso confondere gli Ambi con gli Estratti.
Per ora approfondisco l'andamento per estratto, anche perchè nessun software,
neanche a pagamento, propone le Cinquine Csp, suddivise come io ho richiesto
a Mike. Sono per me molto importanti nelle ricerche, con esiti a breve termine,
in sostanza quello che tutti mi richiedono da tempo.
Grazie cmq ad entrambi, siete dei veri talenti non c'è che dire...
 
Miki ho aggiunto gli esiti dell'ambo ripetuto sempre con il mio script (mi è + facile capire dove intervenire).
La distribuzione degli esiti resta solo per la terzina nel caso la volessi cumulativa c'è da aggiungere una 2 imposta giocata per i numeri dell'ambo ripetuto.

Codice:
Sub Main
'miki55
   Dim nu(5),calc(5),ru(1),an(2),posta(1)
   Dim T,V
   Ini = EstrazioneFin - 20
   fin = EstrazioneFin
   Scrivi "Studio su CSP - ambo ripetuto + Numeri in Terzina mancanti - Colpi - Esiti  *** By Mike58-Miki55 ***",1,,,1,3,,1
   Scrivi
   T = Array(T,"Ritardo Caso","Es Info Ultima","Es info Prec","Diff Es","Ruota","Estratti Es Utima","Ambo Ripetuto","EsitoAmbo","ClpA","IdA","Terzina Mancante","VerificaEsito","Colpo","Id")
   Call InitTabella(T)
   For es = Ini To fin
   kn = kn + 1
      posta(1) = 1
      For r = 1 To 12
      If r = 11 Then r = 12
         ru(1) = r
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r,p1)
               b = Estratto(es,r,p2)
               an(1) = a
               an(2) = b
               af = AmboFrequenza(r,a,b,es,fin)
               If af > 1 Then
                  sp = SeriePrima(es,fin,an,ru,2)
                  su = SerieUltima(es,fin,an,ru,2)
                  ex = su - sp
                  For p3 = 1 To 5
                     nu(p3) = Estratto(su,r,p3)
                     If nu(p3) = a Or nu(p3) = b Then nu(p3) = 0
                  Next
                  Call VerificaEsito(nu,ru,su + 1,1,20,,esito,colpi,estratti,id)
                  Call VerificaEsito(an,ru,su + 1,1,20,,esitoA,colpiA,estrattiA,idA)
                  Call StatisticaFormazione(nu,ru,1,rit,,,fre,su + 1,id)
                  'If fre = 0 Then
                  If esito <> "" Then
                     esa = estratti
                  Else
                     esa = "In corso ....... "
                  End If
                  V = Array(V,fin-su,(su),sp,ex,SiglaRuota(r),StringaEstratti(su,r),StringaNumeri(an),estrattiA,colpiA,IdA,StringaNumeri(nu),esa,colpi,id)
                  Call AddRigaTabella(V)
                  '----------------------------------------
                  Call ImpostaGiocata(1,nu,ru,posta,20,1)
                  Call Gioca(su,,,,,False)
               End If
            Next
         Next
      Next
   Next
   Call CreaTabellaOrdinabile()
   ScriviDistribuzioneEsiti(False)
   ScriviDistribuzioneCasiInCorso(True)
End Sub
 
Buon pomeriggio.

Richiesta di Miki55 il 23/10/2013

Visto che Lottodesk è sprovvisto di tale teoria, chiedo gentilmente se fosse possibile creare uno script degli ambi CSP (ambi ripetuti) e della terzina rimanente, della stessa cinquina, con loro ritardi attuali e storici allegati delle 11 ruote?
Questo argomento sulle CSP di A. Cretella è stato trattato molto tempo fa, e sinceramente non l'avevo compreso bene.

Grazie allo script di Mike, sono tornato a studiarlo e spero che questo output
su BARI possa soddisfare la richiesta di Miki.
CINQUINE SINCRONE PARTICOLARI CON AMBI RIPETUTI + TERZINA X ESTRATTO MIKI IdA 1a Cinquina IdB 2a cinquina dif Ruota Amb.Rip. Esito RCA R.Sto. Terzina Esito RCT R.Sto. 29.02.2020 32.76.86.18.51 19.11.2020 43.51.08.70.76 95 Ba 51.76 -- 11 -- 43.08.70 -- 11 -- 23.05.2020 74.84.56.90.38 24.11.2020 56.45.69.74.10 79 Ba 56.74 6 -- -- 45.69.10 -- 9 -- 06.06.2020 68.48.37.22.27 03.12.2020 27.31.12.54.68 77 Ba 27.68 2 -- -- 31.12.54 -- 5 -- 17.08.2020 50.48.30.74.14 09.12.2020 30.74.23.68.65 49 Ba 30.74 -- 3 -- 23.68.65 -- 3 -- 22.08.2020 10.74.25.57.65 24.11.2020 56.45.69.74.10 40 Ba 74.10 6 -- -- 56.45.69 -- 9 -- 19.09.2020 18.20.09.74.03 14.11.2020 20.23.34.18.72 24 Ba 20.18 -- 13 -- 23.34.72 5 -- -- 22.09.2020 07.10.21.80.04 05.12.2020 21.65.07.84.13 32 Ba 21.07 -- 4 -- 65.84.13 1 -- -- 29.10.2020 26.78.70.83.51 19.11.2020 43.51.08.70.76 9 Ba 51.70 -- 11 -- 43.08.76 -- 11 -- 03.11.2020 89.02.13.67.57 15.12.2020 16.89.13.35.60 18 Ba 89.13 -- 0 -- 16.35.60 -- 0 -- 12.11.2020 77.20.34.21.52 14.11.2020 20.23.34.18.72 1 Ba 20.34 -- 13 -- 23.18.72 5 -- -- 26.11.2020 15.72.17.27.06 12.12.2020 29.27.11.06.89 7 Ba 27.06 -- 1 -- 29.11.89 1 -- -- 01.12.2020 65.80.01.13.85 05.12.2020 21.65.07.84.13 2 Ba 65.13 1 -- -- 21.07.84 -- 4 --
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
Indietro
Alto