Novità

aiuto per script complicato

Rubino

Well-known member
3 colpo ambo secco 69 80 su ruota torino e tutte

0 terni usciti tra quelli selezionati

Cattura.GIF
 
Ultima modifica:

Rubino

Well-known member
ti serve lo script aggiornato a questo momento?

è sempre in evoluzione ed aggiornamento, perchè sto controllando cosa ottiene come risultati, per vedere di restringere
gli ambi ed i terni che escono ad ogni concorso e farmi venire eventuali idee.
 

Rubino

Well-known member
Terni Usciti a Tutte negli ultimi 2 concorsi 95, ma nelle somme diverse da quelle due da me scelte.
però sono fiducioso che possa uscire qualcosa nei rimanente 4 colpi.



Codice:
Option Explicit
Sub Main
   Dim aruote(10),uscite2(4950,2),uscite3(484950,2),somglo(50,2),somgloruote(50,10,1),ele(900,3),rls(90,3)
   Dim listapd,es,Inizio,I,RU,P,ES1,ES2,RU2,P2,ritardo,selx,sel,R,fine,Poru,Popo,g,ambi,terni,P1,N1,R1,P3,R3,N3,N2,R2,RU1,RU3,rt1,rt2,rt3
   Dim lunga,q,e,nu,ct,Classe,coltot,acol,num,sorte,Retestratti,retidestr,a,b,key,key2,key3,c,nu1,nu2,nu3,cts,det,ctt,retesito,cst
   Dim a1,a2,a3,a4,a5,a6,somcop,somter,hh,jj,filtroruota,Z,KKK,el1,el2,el3
   fine = InputBox("Situazione all'estrazione ",,9673)
   es = CInt(InputBox("Quante estrazioni vuoi controllare ?",,100))
   Classe = InputBox("Sviluppa Lunga in classe",,2)
   sorte = InputBox("Sorte 2,3",,2)
   filtroruota = CInt(InputBox("Filtro Ruota",,9))
   det = InputBox("Vuoi elenco dettagliato S/N ",,"N")
   Inizio = fine + 1 - es
   ''''richiamo function per calcolo ritardo rsl
   Call ritardoRLS(filtroruota,fine,rls)
   Scrivi " P.ghio.04      PERIODO Estrazioni Esaminate " & Inizio & "  :  " & fine,1
   For R = 1 To 10
      aruote(R) = R
   Next
   '''ciclo
   For es = Inizio To fine
      ct = ct + 1
      num = 0 : I = 0
      Messaggio(es)
      ReDim nuMERI(50),anum(50)
      For RU = 1 To 10
         For P = 1 To 5
            nu = Estratto(es,RU,P)
            num = num + 1
            nuMERI(num) = Format2(nu)
            anum(num) = num
         Next
      Next
      lunga = "": q = 0
      For e = 1 To 50
         If nuMERI(e) > 0 Then
            q = q + 1
            lunga = lunga & Format2(nuMERI(e)) & "."
         End If
      Next
      '''
      ReDim acol2(Classe)
      coltot = InitSviluppoIntegrale(anum,Classe)
      If coltot > 0 Then
         Do While GetCombSviluppo(acol) = True
            For g = 1 To Classe
               acol2(g) = nuMERI(acol(g))
            Next
            I = I + 1
            Messaggio(es & " / " & I)
            Call VerificaEsitoTurbo(acol2,aruote,es + 1,sorte,1,,,,Retestratti,retidestr)
            If Retestratti <> "" Then
               If Classe = 2 Then
                  key = Format2(acol(1)) & Format2(acol(2))
                  uscite2(key,1) = uscite2(key,1) + 1
                  uscite2(key,2) = key
               End If
               '''
               If Classe = 3 Then
                  key = Format2(acol(1)) & Format2(acol(2)) & Format2(acol(3))
                  uscite3(key,1) = uscite3(key,1) + 1
                  uscite3(key,2) = key
               End If
               If det = "s" Then
                  ColoreTesto(1)
                  Scrivi retidestr & " Pos." & Format2(acol(1)) & " " & Format2(acol(2)) & "  Nr. " & StringaNumeri(acol2," ") & "  colpo n. " & retidestr - es & "   " & Retestratti
                  ColoreTesto(0)
               End If
            End If
         Loop
      End If
   Next
   Scrivi "Esaminate n.estr." & ct,1
   ''''''''' per elaborazione coppie o ambi
   If Classe = 2 Then
      Call OrdinaMatrice(uscite2,- 1,1)
      For a = 1 To 4950
         If uscite2(a,1) > 0 Then
            '''''decodifica ed intercetta nuove in gioco
            N1 = "" : N3 = "":RU1 = "" : RU3 = ""
            P1 = Int(Left(uscite2(a,2),2)) : P3 = Int(Right(uscite2(a,2),2))
            Call ambiattuali(fine,P1,P3,nu1,nu2,RU1,RU3,N1,N3,rt1,rt3)
            ''''somma numeretti ambo
            a1 = Left(Format2(nu1),1)
            a2 = Right(Format2(nu1),1)
            a3 = Left(Format2(nu2),1)
            a4 = Right(Format2(nu2),1)
            somcop = Int(a1) + Int(a2) + Int(a3) + Int(a4)
            somglo(somcop,1) = somglo(somcop,1) + 1
            somgloruote(somcop,rt1,1) = somgloruote(somcop,rt1,1) + 1
            '''
            If RU1 = SiglaRuota(filtroruota) Or RU3 = SiglaRuota(filtroruota) Then
               If nu1 <> nu2 Then
                  Z = Z + 1
                  ele(Z,1) = Format2(nu1) & "." & Format2(nu2)
                  ele(Z,2) = "Somma  " & Format2(somcop)
                  ele(Z,3) = ele(Z,3) & ele(Z,1) & "//"
               End If
            End If
            Scrivi uscite2(a,2) & "    " & uscite2(a,1) & "   >>>>  " & RU1 & "..." & Format2(N1) & "   " & RU3 & "..." & Format2(N3) & "  //   " & fine & "  ..   " & Format2(nu1) & "." & Format2(nu2) & "   Somma coppia.." & Format2(somcop)
            ReDim aN(2),aRT(1)
            aN(1) = nu1 : aN(2) = nu2 : aRT(1) = 11
            Call VerificaEsitoTurbo(aN,aRT,fine + 1,2,,,retesito,,Retestratti,retidestr)
            If Retestratti <> "" Then
               somglo(somcop,2) = somglo(somcop,2) + 1
               cts = cts + 1
               ColoreTesto(2)
               Scrivi "--------->>> " & retidestr & "  COLPO N." & retidestr - fine & "..." & Retestratti & "    " & retesito & "   somma " & somcop,1
               ColoreTesto(0)
            End If
            ambi = ambi + 1
         End If
      Next
   End If
   ''''   per elaborazione terzine
   If Classe = 3 Then
      Call OrdinaMatrice(uscite3,- 1,1)
      For a = 1 To 484950
         If uscite3(a,1) > 0 Then
            '''''decodifica ed intercetta nuove in gioco
            N1 = "" : N2 = "" : N3 = "":RU1 = "" : RU2 = "" : RU3 = ""
            P1 = Int(Left(uscite3(a,2),2)) : P2 = Mid(uscite3(a,2),3,2) : P3 = Int(Right(uscite3(a,2),2))
            Call terniattuali(fine,P1,P2,P3,nu1,nu2,nu3,RU1,RU2,RU3,N1,N2,N3,rt1,rt2,rt3)
            '''somma numeretti
            a1 = Left(Format2(nu1),1)
            a2 = Right(Format2(nu1),1)
            a3 = Left(Format2(nu2),1)
            a4 = Right(Format2(nu2),1)
            a5 = Left(Format2(nu3),1)
            a6 = Right(Format2(nu3),1)
            somter = Int(a1) + Int(a2) + Int(a3) + Int(a4) + Int(a5) + Int(a6)
            somglo(somter,1) = somglo(somter,1) + 1
            somgloruote(somter,rt1,1) = somgloruote(somter,rt1,1) + 1
            ''''
            If RU1 = SiglaRuota(filtroruota) Or RU2 = SiglaRuota(filtroruota) Or RU3 = SiglaRuota(filtroruota) Then
               If nu1 <> nu2 And nu2 <> nu3 And nu1 <> nu3 Then
                  Z = Z + 1
                  ReDim elem(3)
                  elem(1) = Format2(nu1)
                  elem(2) = Format2(nu2)
                  elem(3) = Format2(nu3)
                  Call OrdinaMatrice(elem,1)
                  ''''    ele(Z,1) = Format2(nu1) & "." & Format2(nu2) & "." & Format2(nu3)
                  ele(Z,1) = elem(1) & " " & elem(2) & " " & elem(3)
                  ele(Z,2) = "Somma  " & Format2(somter)
                  ele(Z,3) = ele(Z,3) & ele(Z,1) & "//"
               End If
            End If
            '''''''
            Scrivi uscite3(a,2) & "    " & uscite3(a,1) & "   >>>>  " & R1 & ".." & Format2(N1) & "  " & R2 & ".." & Format2(N2) & "  " & R3 & ".." & Format2(N3) & "  //   " & fine & "  ..   " & Format2(nu1) & "." & Format2(nu2) & "." & Format2(nu3) & "   Somma TERZINA.." & Format2(somter)
            ReDim aN(3),aRT(10)
            aN(1) = nu1 : aN(2) = nu2 : aN(3) = nu3 : aRT(1) = 11
            Call VerificaEsitoTurbo(aN,aRT,fine + 1,sorte,,,retesito,,Retestratti,retidestr)
            If Retestratti <> "" Then
               somglo(somter,2) = somglo(somter,2) + 1
               If sorte = 2 Then ctt = ctt + 1
               If sorte = 3 Then cst = cst + 1
               ColoreTesto(2)
               Scrivi "--------->>> " & retidestr & "  COLPO N." & retidestr - fine & "..." & Retestratti & "...." & retesito & "   Somma  " & somter,1
               ColoreTesto(0)
            End If
            terni = terni + 1
         End If
      Next
   End If
   ColoreTesto(2)
   ''''
   Scrivi
   ''''FILTRO RUOTA
   Scrivi "Filtro Ruota " & SiglaRuota(filtroruota),1
   Scrivi "Combinazioni da giocare su ruota e Tutte",1
   Scrivi "Selezionare una somma o piu somme su propria analisi dei dati ",1
   Call OrdinaMatrice(ele,- 1,2)
   For KKK = 3 To Z
      If Classe = 2 Then
         el1 = Left(ele(KKK,1),2)
         el2 = Right(ele(KKK,1),2)
         Scrivi ele(KKK,2) & "   " & ele(KKK,1) & "  Rsl." & rls(el1,3) & "." & rls(el2,3)
      End If
      If Classe = 3 Then
         el1 = Left(ele(KKK,1),2)
         el2 = Mid(ele(KKK,1),4,2)
         el3 = Right(ele(KKK,1),2)
         Scrivi ele(KKK,2) & "   " & ele(KKK,1) & "  Rsl." & rls(el1,3) & "." & rls(el2,3) & "." & rls(el3,3)
      End If
   Next
   ColoreTesto(1)
   Scrivi
   '''''''nPrimi e Nsecondi
   Scrivi "Riepilogo Gruppi di Somma all'estrazione n." & fine,1
   For hh = 3 To 50
      If somglo(hh,1) > 0 Then
         Scrivi "Somma.." & Format2(hh) & "...qt.comb." & FormattaStringa(somglo(hh,1),"000") & "  Esiti.." & Format2(somglo(hh,2)),1
      End If
   Next
   Scrivi
   Scrivi "Riepilogo Gruppi di Somma all'estrazione n." & fine,1
   For hh = 3 To 50
      Scrivi "   "
      For jj = 1 To 10
         If somgloruote(hh,jj,1) > 0 Then
            Scrivi "Somma.." & Format2(hh) & "  " & SiglaRuota(jj) & "...qt.comb." & FormattaStringa(somgloruote(hh,jj,1),"000"),1
         End If
      Next
   Next
   Scrivi
   Scrivi "Totale ambi  " & ambi,1
   Scrivi "Ambi Usciti a Tutte negli ultimi 13 concorsi " & cts,1
   Scrivi
   Scrivi "Totale Terni " & terni,1
   Scrivi "Terzine Uscite a Tutte negli ultimi 13 concorsi " & ctt,1
   Scrivi "Terni   Usciti a Tutte negli ultimi 13 concorsi " & cst,1
   Scrivi
   Scrivi "Richiesta classe sviluppo " & Classe,1
   Scrivi "Richiesta per la sorte    " & sorte,1
   Scrivi TempoTrascorso,1
End Sub
Function ambiattuali(fine,P1,P3,nu1,nu2,ru1,ru3,N1,N3,rt1,rt3)
   Dim MatriceEstrRitorno,r1,pos,x
   Dim cinquanta(50)
   nu1 = "":nu2 = "":pos = 0:x = 0
   '''
   Call GetEstrazioneCompleta(fine,MatriceEstrRitorno)
   For r1 = 1 To 10
      For pos = 1 To 5
         x = x + 1
         cinquanta(x) = MatriceEstrRitorno(r1,pos)
      Next
   Next
   nu1 = cinquanta(P1)
   nu2 = cinquanta(P3)
   If P1 < 6 Then
      ru1 = SiglaRuota(1)
      rt1 = 1
      N1 = P1
   Else
      ru1 = SiglaRuota(Int((P1/5) + 1))
      rt1 = Int(P1/5) + 1
      If ru1 = "TT" Then ru1 = "VE"
      If Int(Right(P1,1)) > 5 Then
         N1 = Int(Right(P1,1)) - 5
      Else
         N1 = Int(Right(P1,1))
      End If
      If N1 = 0 Then N1 = 5
   End If
   If P3 < 6 Then
      ru3 = SiglaRuota(1)
      rt3 = 1
      N3 = P3
   Else
      ru3 = SiglaRuota(Int((P3/5) + 1))
      rt3 = Int(P3/5) + 1
      If ru3 = "TT" Then ru3 = "VE"
      If Int(Right(P3,1)) > 5 Then
         N3 = Int(Right(P3,1)) - 5
      Else
         N3 = Int(Right(P3,1))
      End If
      If N3 = 0 Then N3 = 5
   End If
End Function
Function terniattuali(fine,P1,P2,P3,nu1,nu2,nu3,R1,R2,R3,N1,N2,N3,rt1,rt2,rt3)
   Dim MatriceEstrRitorno,Rx1,pos,x
   Dim cinquanta(50)
   nu1 = "":nu2 = "":nu3 = "" : pos = 0:x = 0
   '''
   Call GetEstrazioneCompleta(fine,MatriceEstrRitorno)
   For Rx1 = 1 To 10
      For pos = 1 To 5
         x = x + 1
         cinquanta(x) = MatriceEstrRitorno(Rx1,pos)
      Next
   Next
   nu1 = cinquanta(P1)
   nu2 = cinquanta(P2)
   nu3 = cinquanta(P3)
   If P1 < 6 Then
      R1 = SiglaRuota(1)
      rt1 = 1
      N1 = P1
   Else
      R1 = SiglaRuota(Int((P1/5) + 1))
      rt1 = Int(P1/5) + 1
      If R1 = "TT" Then R1 = "VE"
      If Int(Right(P1,1)) > 5 Then
         N1 = Int(Right(P1,1)) - 5
      Else
         N1 = Int(Right(P1,1))
      End If
      If N1 = 0 Then N1 = 5
   End If
   ''''
   If P2 < 6 Then
      R2 = SiglaRuota(1)
      rt2 = 1
      N2 = P2
   Else
      R2 = SiglaRuota(Int((P2/5) + 1))
      rt2 = Int(P2/5) + 1
      If R2 = "TT" Then R2 = "VE"
      If Int(Right(P2,1)) > 5 Then
         N2 = Int(Right(P2,1)) - 5
      Else
         N2 = Int(Right(P2,1))
      End If
      If N2 = 0 Then N2 = 5
   End If
   ''''
   If P3 < 6 Then
      R3 = SiglaRuota(1)
      rt3 = 1
      N3 = P3
   Else
      R3 = SiglaRuota(Int((P3/5) + 1))
      rt3 = rt1 = Int(P3/5) + 1
      If R3 = "TT" Then R3 = "VE"
      If Int(Right(P3,1)) > 5 Then
         N3 = Int(Right(P3,1)) - 5
      Else
         N3 = Int(Right(P3,1))
      End If
      If N3 = 0 Then N3 = 5
   End If
End Function
Function ritardoRLS(filtroruota,fine,rls)
   ReDim aruoteoruota(1)
   Dim n,nretlivello,idestrazione,ritardo,ic
   ColoreTesto(1)
   Scrivi "Ruota di " & NomeRuota(filtroruota),1
   Scrivi "Riepilogo dei 90 numeri ed il ritardo Rls e Rc",1
   ColoreTesto(0)
   idestrazione = fine
   aruoteoruota(1) = filtroruota
   For n = 1 To 90
      Messaggio("calcolo RLS dei 90 " & n)
      ritardo = RitSincDiLiv(n,aruoteoruota,idestrazione,nretlivello)
      If ritardo > 0 Then
      ic = Round(ritardo/EstrattoRitardo(filtroruota,n,3950,fine),3)
      Else
      ic = 0
      End If
      Scrivi Format2(n) & "..Liv." & nretlivello & "  // Rls." & Format2(ritardo) & "   Rc." & FormattaStringa(EstrattoRitardo(filtroruota,n,3950,fine),"000") & "  %  " & ic
      rls(n,1) = n
      rls(n,2) = nretlivello
      rls(n,3) = ritardo
   Next
End Function
 

Rubino

Well-known member
'Ritardo livello sincrono
ritardo corrente
rapporto % tra i due

usato solo sui singoli numeri
usato solo sulla ruota di gioco

in altre parole sono 2 ritardi a confronto del tabellone dei ritardi delle ruote

uso nello script
l ho messo per vedere se gli ambi e i terni che escono mi possono indicare
con una certa continuita se sono formati da singoli numeri e da qualche
ritardo in particolare.
se non da indicazioni nei test, verra' tolta questa routine e sostituita con altre idee.
 

Rubino

Well-known member
Ciao
no sto aspettando il sesto colpo dei terni
poi riprendo con qualche altra. Ricerca

Lo so che va lenta la cosa ma servono idee
 
Ultima modifica:

Rubino

Well-known member
nei 6 colpi nessun terno è approdato ne a ruota ne a tutte

è quindi indispensabile cambiare qualche idea di elaborazione e di analisi dei dati.

non si son fatti vedere neppure gli estratti 27 52 a torino
 
Ultima modifica:

ghio

Well-known member
rripartiamo semplice esame degli estratti dell estrazione precedente all ultima sempre ,esaminiamo l intera lunghetta che si andra a formare.
ogni singolo numero della lunghetta provenienza e arrivo, sulle 10 ruote, il tutto solo su un colpo di gioco, degli stessi poi come avevi gia fatto
sotto forma di codice cioe esempio a 1 estratto di ve con b estratto da bari 2 esce a colpo che ne so 5 volte
 

ghio

Well-known member
partendo da questo

Option Explicit
Sub Main
'''rubino-ghio
Dim n,r,es,p,nm,rit,ruota,nsorte,retrit,retritmax,Sintesi,h,S,retfre,retesito,retestratti,retidestr,c
Dim bi,kk,jj,Ini,last
Dim art(10),provenrif(10,5,1)
Scrivi "Rileva i 50 numeri di Estrazione nelle 10 Ruote",1
Scrivi "-- Verifica Numeri Usciti e Ripetuti nelle 10 Ruote",1
Scrivi "-- Verifica Ambi/terni/quaterne/cinquine Uscite e provenienza dalla Ruota e posizione ",1
Scrivi "-- Calcola Ritardo a Tutte ed a Ruota dei singoli Estratti Usciti ",1
''''
nsorte = InputBox("Controlla per sorte 1,2,3,4,5 ",,2)
es = InputBox("dall Estraz.n.",,EstrazioneFin - 10)
Ini = es - 50
For jj = 1 To 10
art(jj) = jj
Next
'''''
For es = es + 1 To EstrazioneFin - 1
S = 0
ReDim nr(90,2),NUMERI(60)
For n = 1 To 90
rit = EstrattoRitardo(11,n,3950,es)
nr(n,1) = rit
nr(n,2) = n
If rit = 0 Then
S = S + 1
NUMERI(S) = n
End If
Next
'''
Scrivi:ColoreTesto(2)
Scrivi "Rubino-Ghio-Verifica Lunghette nelle Ripetizioni Immediate ",1
ColoreTesto(0)
Scrivi "Numeri usciti nell estrazione " & es & " / " & DataEstrazione(es) & " attesa per Ripetizione su varie ruote ",1
Scrivi "Nr." & StringaNumeri(NUMERI,"-") & " Tot.nr " & S,1
ColoreTesto(1)
Scrivi:Scrivi "Riepilogo Ritardo su Ruota per la sorte " & nsorte & "minima dall estraz. " & es + 1 & " / " & DataEstrazione(es + 1),1
ColoreTesto(0)
ReDim ruote(1)
For h = 1 To 10
ruote(1) = h
c = 0
'''verifica esito al colpo successivo
Call VerificaEsitoTurbo(NUMERI,ruote,es + 1,nsorte,1,,retesito,,retestratti,retidestr)
'''''se negativo prova per più colpi
If retestratti = "" Then
retesito = " Neg.InCorso <<"
Call VerificaEsitoTurbo(NUMERI,ruote,es + 2,nsorte,,,retesito,,retestratti,retidestr)
If retestratti = "" Then
retesito = " Neg.InCorso <<"
retidestr = EstrazioneFin
c = 1
End If
End If
Call StatisticaFormazioneTurbo(NUMERI,ruote,2,retrit,retritmax,,retfre,3950,retidestr)
If retrit > 0 Then ColoreTesto(2) Else ColoreTesto(0) End If
If c = 1 Then ColoreTesto(7)End If
'''''''''''''''''''
If es < EstrazioneFin Then
last = retidestr
If retesito <> " Neg.InCorso <<" Then Call Provenienza(es,NUMERI,S,retestratti,last,provenrif)
'''''''''''''''''''
Scrivi SiglaRuota(h) & " ..Rc./ Rx." & Format2(retrit) & " / " & Format2(retritmax) & " " & retidestr & " colpo " & retidestr - es & " " & retestratti & " " & retesito,1
Scrivi String(90,"*"):Scrivi
End If
Next
Scrivi String(90,"*")
Next
ColoreTesto(0)
Scrivi:Scrivi TempoTrascorso,1
End Sub
Function Provenienza(es,numeri,s,retestratti,last,provenrif)
Dim rr,pp,MatriceEstrRitorno,ff,bi,kk,jj,rittt,ritru
Dim num(5)
bi = 4 : kk = 0
For jj = 1 To 5
If Mid(retestratti,bi,2) <> ".." Then
kk = kk + 1
num(kk) = Mid(retestratti,bi,2)
End If
bi = bi + 3
Next
ColoreTesto(2)
Scrivi "Ricerca Provenienza dei Numeri Estratti Vedi VerificaEsito(Riga in Nero) " & es & " " & StringaNumeri(num,"-"),1
ColoreTesto(0)
'''provenienza estratti
Call GetEstrazioneCompleta(es,MatriceEstrRitorno)
For rr = 1 To 10
For pp = 1 To 5
For ff = 1 To kk
If MatriceEstrRitorno(rr,pp) = Int(num(ff)) Then
provenrif(rr,pp,1) = num(ff)
rittt = EstrattoRitardoTurbo(11,num(ff),es - 35,last - 1)
ritru = EstrattoRitardoTurbo(rr,num(ff),es - 300,last - 1)
Scrivi es & "....." & SiglaRuota(rr) & " Pos. " & pp & " = " & Format2(num(ff)) & "==" & Format2(MatriceEstrRitorno(rr,pp)) & " Rit.TT " & rittt & " Rit.Ruota " & ritru,1
End If
Next
Next
Next
End Function
 

Rubino

Well-known member
ripartiamo semplice esame degli estratti dell estrazione precedente all ultima sempre ,esaminiamo l intera lunghetta che si andra a formare.
ogni singolo numero della lunghetta provenienza e arrivo, sulle 10 ruote, il tutto solo su un colpo di gioco, degli stessi poi come avevi gia fatto
sotto forma di codice cioe esempio a 1 estratto di ve con b estratto da bari 2 esce a colpo che ne so 5 volte

...
 

Rubino

Well-known member
domanda :

ghio se valutiamo la cosa solo a colpo,può anche andare bene ????


ti faccio un esempio di cosa si ottiene :

Codice:
estrazione da n. 9652 alla n.9680

pos. --pres

0448   Pres.3
0412   Pres.3
0422   Pres.3
0526   Pres.3
4447   Pres.3
0722   Pres.3
0533   Pres.3
0529   Pres.3
0531   Pres.3
0843   Pres.3
4043   Pres.3
0236   Pres.3
0241   Pres.3
1216   Pres.3
1241   Pres.3
0235   Pres.3
1335   Pres.3
1339   Pres.3
0221   Pres.3
4042   Pres.3
1318   Pres.3
0943   Pres.3
4748   Pres.3
4350   Pres.3
0845   Pres.3
0850   Pres.3
1025   Pres.3
1143   Pres.3
1144   Pres.3
1134   Pres.3
1032   Pres.3
1121   Pres.3
3345   Pres.3
1942   Pres.3
3342   Pres.3
2634   Pres.3
0103   Pres.3
0107   Pres.3
3540   Pres.3
3144   Pres.3
3147   Pres.3
2736   Pres.3
3140   Pres.3
2234   Pres.3
3142   Pres.3
3443   Pres.3
3040   Pres.3
3132   Pres.3
2540   Pres.3
4243   Pres.2
4245   Pres.2
1016   Pres.2
0823   Pres.2
0825   Pres.2
0829   Pres.2
2428   Pres.2
0838   Pres.2
4246   Pres.2
2350   Pres.2
4248   Pres.2
3046   Pres.2
2733   Pres.2
2732   Pres.2
0534   Pres.2
2745   Pres.2
0443   Pres.2
0446   Pres.2
2846   Pres.2
4547   Pres.2
4546   Pres.2
2936   Pres.2
4549   Pres.2
0538   Pres.2
0543   Pres.2
0549   Pres.2
0419   Pres.2
0420   Pres.2
0421   Pres.2
0416   Pres.2
0408   Pres.2
0411   Pres.2
2836   Pres.2
2841   Pres.2
2844   Pres.2
0442   Pres.2
0435   Pres.2
2840   Pres.2
0429   Pres.2
0430   Pres.2
2942   Pres.2
0731   Pres.2
0732   Pres.2
0733   Pres.2
3035   Pres.2
3031   Pres.2
3032   Pres.2
0729   Pres.2
1844   Pres.2
1739   Pres.2
1724   Pres.2
1850   Pres.2
1733   Pres.2
3640   Pres.2
1827   Pres.2
1823   Pres.2
1829   Pres.2
1747   Pres.2
1835   Pres.2
3642   Pres.2
1723   Pres.2
3542   Pres.2
3543   Pres.2
3749   Pres.2
1643   Pres.2
1929   Pres.2
1926   Pres.2
1922   Pres.2
3739   Pres.2
3738   Pres.2
1719   Pres.2
3740   Pres.2
3744   Pres.2
3742   Pres.2
3741   Pres.2
1416   Pres.2
1232   Pres.2
1236   Pres.2
1237   Pres.2
1230   Pres.2
1226   Pres.2
2239   Pres.2
1229   Pres.2
1245   Pres.2
1247   Pres.2
1250   Pres.2
2235   Pres.2
1238   Pres.2
1240   Pres.2
2236   Pres.2
1224   Pres.2
1126   Pres.2
1128   Pres.2
1131   Pres.2
1123   Pres.2
4750   Pres.2
0113   Pres.2
0115   Pres.2
0108   Pres.2
0112   Pres.2
0240   Pres.2
0218   Pres.2
0217   Pres.2
0239   Pres.2
0246   Pres.2
0220   Pres.2
0219   Pres.2
0244   Pres.2
0243   Pres.2
0249   Pres.2
0346   Pres.2
0347   Pres.2
0344   Pres.2
0213   Pres.2
0350   Pres.2
0237   Pres.2
0250   Pres.2
0133   Pres.2
0131   Pres.2
0306   Pres.2
0317   Pres.2
0148   Pres.2
0304   Pres.2
0150   Pres.2
0309   Pres.2
1521   Pres.1
0832   Pres.1
3846   Pres.1
3138   Pres.1
3848   Pres.1
1039   Pres.1
1040   Pres.1
1042   Pres.1
0206   Pres.1
1047   Pres.1
1530   Pres.1
1529   Pres.1
1048   Pres.1
1533   Pres.1
1532   Pres.1
1322   Pres.1
0233   Pres.1
2425   Pres.1
1545   Pres.1
1427   Pres.1
2349   Pres.1
3139   Pres.1
1049   Pres.1
4041   Pres.1
2427   Pres.1
0226   Pres.1
2332   Pres.1
3839   Pres.1
3840   Pres.1
0646   Pres.1
0648   Pres.1
0649   Pres.1
4046   Pres.1
0837   Pres.1
4045   Pres.1
1325   Pres.1
1314   Pres.1
0238   Pres.1
0102   Pres.1
0205   Pres.1
3249   Pres.1
1944   Pres.1
1945   Pres.1
3247   Pres.1
3942   Pres.1
3941   Pres.1
3244   Pres.1
3246   Pres.1
3245   Pres.1
3435   Pres.1
2325   Pres.1
1936   Pres.1
1934   Pres.1
0114   Pres.1
0816   Pres.1
1937   Pres.1
0110   Pres.1
3250   Pres.1
0111   Pres.1
1938   Pres.1
1939   Pres.1
3048   Pres.1
3047   Pres.1
2535   Pres.1
1030   Pres.1
1433   Pres.1
2542   Pres.1
0740   Pres.1
0332   Pres.1
2544   Pres.1
2543   Pres.1
0118   Pres.1
0325   Pres.1
1928   Pres.1
1927   Pres.1
1432   Pres.1
0310   Pres.1
1213   Pres.1
2747   Pres.1
3750   Pres.1
2137   Pres.1
3747   Pres.1
3748   Pres.1
0947   Pres.1
3448   Pres.1
2740   Pres.1
2739   Pres.1
2744   Pres.1
1215   Pres.1
2742   Pres.1
1347   Pres.1
2148   Pres.1
2147   Pres.1
2146   Pres.1
0450   Pres.1
2035   Pres.1
0944   Pres.1
2145   Pres.1
0916   Pres.1
3743   Pres.1
2139   Pres.1
2144   Pres.1
2143   Pres.1
2142   Pres.1
1132   Pres.1
0941   Pres.1
3341   Pres.1
0438   Pres.1
2849   Pres.1
1349   Pres.1
2036   Pres.1
3336   Pres.1
3450   Pres.1
0444   Pres.1
0445   Pres.1
2845   Pres.1
0141   Pres.1
1750   Pres.1
2043   Pres.1
0143   Pres.1
2044   Pres.1
0423   Pres.1
0427   Pres.1
3343   Pres.1
0433   Pres.1
0434   Pres.1
2042   Pres.1
0940   Pres.1
2843   Pres.1
1840   Pres.1
4548   Pres.1
1841   Pres.1
2944   Pres.1
2945   Pres.1
1839   Pres.1
2949   Pres.1
2647   Pres.1
2646   Pres.1
1239   Pres.1
0124   Pres.1
2650   Pres.1
2649   Pres.1
0127   Pres.1
2227   Pres.1
2228   Pres.1
2226   Pres.1
0129   Pres.1
2933   Pres.1
0515   Pres.1
0516   Pres.1
1122   Pres.1
1114   Pres.1
1618   Pres.1
1617   Pres.1
1115   Pres.1
0546   Pres.1
1233   Pres.1
1621   Pres.1
4149   Pres.1
1234   Pres.1
2225   Pres.1
1822   Pres.1
2223   Pres.1
1112   Pres.1
0135   Pres.1
0216   Pres.1
0539   Pres.1
1119   Pres.1
4144   Pres.1
0540   Pres.1
1231   Pres.1
1629   Pres.1
4146   Pres.1
1624   Pres.1
 

Rubino

Well-known member
ti posto lo script con un aggiornamento, prova a ragionarci sopra e vedere cosa si può fare per sintetizzare in un possibile giocato di
pochi ambi.

è chiaro che è solo per studio e allo stato attuale può servire solo in parte.
più di così non vado avanti, a meno di sintetizzare!

anche chi legge ed usa lo script per qualche uso, è invitato , se vuole a dare qualche idea per migliorarlo o chiuderlo con uno scopo utile
altrimenti lo riteniamo a solo scopo didattico.



Codice:
Option Explicit
Sub Main
   '''rubino-ghio Evol "
   Dim n,r,es,p,nm,rit,ruota,nsorte,retrit,retritmax,Sintesi,h,S,retfre,retesito,retestratti,retidestr,c
   Dim bi,kk,jj,Ini,last,xyz,colonne,Scolonna,kw,jw,a,b,esf
   Dim art(10),provenrif(10,5,1),ambipos(4950,2)
   Scrivi "Rileva i 50 numeri di Estrazione nelle 10 Ruote",1
   Scrivi "-- Verifica Numeri Usciti e Ripetuti nelle 10 Ruote",1
   Scrivi "-- Verifica Ambi/terni/quaterne/cinquine Uscite e provenienza dalla Ruota e posizione ",1
   Scrivi "-- Calcola Ritardo a Tutte ed a Ruota dei singoli Estratti Usciti ",1
   ''''
   nsorte = InputBox("Controlla per sorte 1,2,3,4,5 ",,2)
   esf = InputBox("dall Estraz.n.",,EstrazioneFin)
   es = esf - 50
   Ini = es
   For jj = 1 To 10
      art(jj) = jj
   Next
   '''''
   For es = es + 1 To EstrazioneFin
      S = 0
      ReDim nr(90,2),NUMERI(60),anrpo(10)
      For n = 1 To 90
         rit = EstrattoRitardo(11,n,3950,es)
         nr(n,1) = rit
         nr(n,2) = n
         If rit = 0 Then
            S = S + 1
            NUMERI(S) = n
         End If
      Next
      '''
      Scrivi:ColoreTesto(2)
      Scrivi "Rubino-Ghio-Evol Verifica Lunghette nelle Ripetizioni Immediate ",1,,7,5
      ColoreTesto(0)
      Scrivi "Numeri usciti nell estrazione " & es & " / " & DataEstrazione(es) & " attesa per Ripetizione su varie ruote ",1
      Scrivi "Nr." & StringaNumeri(NUMERI,"-") & " Tot.nr " & S,1
      ColoreTesto(1)
      ''''
      If es + 1 <= EstrazioneFin Then
         Scrivi:Scrivi "Riepilogo Ritardo su Ruota per la sorte " & nsorte & " minima dall estraz. " & es + 1 & " / " & DataEstrazione(es + 1),1
         ColoreTesto(0)
         ReDim ruote(1)
         For h = 1 To 10
            ruote(1) = h
            c = 0
            ReDim anrpo(10)
            '''verifica esito al colpo successivo
            Call VerificaEsitoTurbo(NUMERI,ruote,es + 1,nsorte,1,,retesito,,retestratti,retidestr)
            '''''se negativo prova per più colpi
            If retestratti = "" Then
               retesito = " Neg.InCorso <<"
               Call VerificaEsitoTurbo(NUMERI,ruote,es + 2,nsorte,,,retesito,,retestratti,retidestr)
               If retestratti = "" Then
                  retesito = " Neg.InCorso <<"
                  retidestr = EstrazioneFin
                  c = 1
               End If
            End If
            Call StatisticaFormazioneTurbo(NUMERI,ruote,2,retrit,retritmax,,retfre,3950,retidestr)
            If retrit > 0 Then ColoreTesto(2) Else ColoreTesto(0) End If
            If c = 1 Then ColoreTesto(7)End If
            '''''''''''''''''''
            If es <= EstrazioneFin Then
               last = retidestr
               xyz = 0
               If retesito <> " Neg.InCorso <<" Then Call Provenienza(es,NUMERI,S,retestratti,last,provenrif,anrpo,xyz)
               '''''''''''''''''''
               '''sviluppo combinazione delle posizioni
               ReDim nm(xyz)
               If xyz = 2 Then
                  nm(1) = anrpo(1)
                  nm(2) = anrpo(2)
                  ''          Scrivi StringaNumeri(nm,".")
                  ambipos(Format2(nm(1)) & Format2(nm(2)),1) = ambipos(Format2(nm(1)) & Format2(nm(2)),1) + 1
                  ambipos(Format2(nm(1)) & Format2(nm(2)),2) = Format2(nm(1)) & Format2(nm(2))
               End If
               If xyz > 2 Then
                  colonne = 0
                  colonne = SviluppoIntegrale(anrpo,2)
                  For kw = 1 To UBound(colonne)
                     Scolonna = ""
                     If ScriptInterrotto Then Exit For
                     For jw = 1 To 2
                        Scolonna = Scolonna & Format2(colonne(kw,jw)) & " "
                        nm(jw) = colonne(kw,jw)
                     Next
                     ''                Scrivi StringaNumeri(nm,".")
                     ambipos(Format2(nm(1)) & Format2(nm(2)),1) = ambipos(Format2(nm(1)) & Format2(nm(2)),1) + 1
                     ambipos(Format2(nm(1)) & Format2(nm(2)),2) = Format2(nm(1)) & Format2(nm(2))
                  Next
               End If
               '''''''''''''''''''
               Scrivi SiglaRuota(h) & " ..Rc./ Rx." & Format2(retrit) & " / " & Format2(retritmax) & " " & retidestr & " colpo " & retidestr - es & " " & retestratti & " " & retesito & "   Key.Pos." & StringaNumeri(anrpo,"-"),1
               Call calcolapresenzeposizioni(anrpo,ambipos,xyz)
               Scrivi String(90,"*"):Scrivi
            End If
         Next
         Scrivi String(90,"*")
      End If
   Next
   ColoreTesto(0)
   Scrivi:Scrivi "Riepilogo delle Migliori posizioni tra i 50 che hanno generato l'ambo",1
   Scrivi "Periodo :  da " & Ini & " / " & DataEstrazione(Ini) & "  a   " & esf & " / " & DataEstrazione(esf),1
   Call OrdinaMatrice(ambipos,- 1,1)
   For a = 1 To 49
      For b = a + 1 To 50
         If ambipos(Format2(a) & Format2(b),1) > 0 Then
            Scrivi ambipos(Format2(a) & Format2(b),2) & "   Pres." & ambipos(Format2(a) & Format2(b),1)
         End If
      Next
   Next
   Scrivi:Scrivi TempoTrascorso,1
End Sub
Function Provenienza(es,numeri,s,retestratti,last,provenrif,anrpo,xyz)
   Dim rr,pp,MatriceEstrRitorno,ff,bi,kk,jj,rittt,ritru,progp
   Dim num(5)
   bi = 4 : kk = 0
   For jj = 1 To 5
      If Mid(retestratti,bi,2) <> ".." Then
         kk = kk + 1
         num(kk) = Mid(retestratti,bi,2)
      End If
      bi = bi + 3
   Next
   ColoreTesto(2)
   Scrivi "Ricerca Provenienza dei Numeri Estratti Vedi VerificaEsito(Riga in Nero) " & es & " " & StringaNumeri(num,"-"),1
   ColoreTesto(0)
   '''provenienza estratti
   Call GetEstrazioneCompleta(es,MatriceEstrRitorno)
   progp = 0 : xyz = 0
   For rr = 1 To 10
      For pp = 1 To 5
         progp = progp + 1
         For ff = 1 To kk
            If MatriceEstrRitorno(rr,pp) = Int(num(ff)) Then
               xyz = xyz + 1
               anrpo(xyz) = progp
               provenrif(rr,pp,1) = num(ff)
               rittt = EstrattoRitardoTurbo(11,num(ff),es - 35,last - 1)
               ritru = EstrattoRitardoTurbo(rr,num(ff),es - 300,last - 1)
               Scrivi es & "....." & SiglaRuota(rr) & " Pos. " & pp & " = " & Format2(num(ff)) & "== Pos.Prog." & Format2(progp) & "   " & Format2(MatriceEstrRitorno(rr,pp)) & " Rit.TT " & rittt & " Rit.Ruota " & ritru,1,,,10
               ColoreTesto(0)
            End If
         Next
      Next
   Next
End Function
Function calcolapresenzeposizioni(anrpo,ambipos,xyz)
   Scrivi "Sviluppo Posizioni " & StringaNumeri(anrpo,"/") & "  Tot.P." & xyz
End Function
 

ghio

Well-known member
Ricerca Provenienza dei Numeri Estratti Vedi VerificaEsito(Riga in Nero) 9679 19-69-42-39
[COLOR=#a0000]9679.....BA Pos. 3 = 19== Pos.Prog.03 19 Rit.TT 1 Rit.Ruota 1[/COLOR]
[COLOR=#a0000]9679.....CA Pos. 1 = 69== Pos.Prog.06 69 Rit.TT 0 Rit.Ruota 1[/COLOR]
[COLOR=#a0000]9679.....FI Pos. 2 = 42== Pos.Prog.12 42 Rit.TT 0 Rit.Ruota 1[/COLOR]
[COLOR=#a0000]9679.....NA Pos. 5 = 39== Pos.Prog.30 39 Rit.TT 1 Rit.Ruota 1[/COLOR]
[COLOR=#a0000]9679.....RO Pos. 5 = 19== Pos.Prog.40 19 Rit.TT 1 Rit.Ruota 1[/COLOR]
[COLOR=#a0000]9679.....VE Pos. 2 = 39== Pos.Prog.47 39 Rit.TT 1 Rit.Ruota 1[/COLOR]
TO ..Rc./ Rx.00 / 05 9681 colpo 2 TO 19 69 42 39 .. Quaterna Key.Pos.3-6-12-30-40-47
Sviluppo Posizioni 3/6/12/30/40/47 Tot.P.6
******************************************************************************************

Ricerca Provenienza dei Numeri Estratti Vedi VerificaEsito(Riga in Nero) 9679 75-63
[COLOR=#a0000]9679.....PA Pos. 2 = 75== Pos.Prog.32 75 Rit.TT 0 Rit.Ruota 1[/COLOR]
[COLOR=#a0000]9679.....TO Pos. 2 = 63== Pos.Prog.42 63 Rit.TT 0 Rit.Ruota 1[/COLOR]
VE ..Rc./ Rx.00 / 08 9681 colpo 2 VE 75 63 .. .. .. Ambo Key.Pos.32-42

guarda anche tu se è un caso fatto diverse prove

69+42 rit 0 ambo per il 12.09
75 -63 rit 0 ambo per il12.09
ecc ecc
 

Rubino

Well-known member
guarda anche tu se è un caso fatto diverse prove

69+42 rit 0 ambo per il 12.09
75 -63 rit 0 ambo per il12.09
ecc ecc

mi puoi. specificare meglio a cosa ti riferisci?
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 17 settembre 2019
    Bari
    69
    17
    37
    05
    74
    Cagliari
    15
    45
    77
    36
    30
    Firenze
    84
    28
    72
    80
    62
    Genova
    89
    86
    43
    51
    06
    Milano
    87
    57
    33
    72
    66
    Napoli
    63
    03
    21
    62
    27
    Palermo
    15
    75
    58
    33
    84
    Roma
    54
    52
    10
    42
    20
    Torino
    42
    22
    36
    46
    37
    Venezia
    67
    46
    57
    42
    21
    Nazionale
    51
    70
    16
    46
    02

Ultimi Messaggi

Membri Iscritti online

Alto