Novità

aiuto per script complicato

G

ghio

Super Member >PLATINUM<
tabella 5 favolosa, io non posseggo un software che mi da questi risultati ed inoltre con te stiamo facendo un ragionamento molto più complesso che stiamo quasi portando a termine,
 
G

ghio

Super Member >PLATINUM<
Tabella 5 - Ritardi Dinamici numeri in posizione determinata
Esempio : la cinquina appena estratta BARI 26.90.22.14.77
Calcola ritardi per esiti a colpo a TUTTE
R.c./R.max/Successi/Negativi dei 5 estratti in posizione determinata
----------
BA...9660..pos.1 Nr.26 Succ.21 / Neg.35 Rit.0 / Max.9
BA...9660..pos.2 Nr.90 Succ.26 / Neg.44 Rit.0 / Max.11
BA...9660..pos.3 Nr.22 Succ.31 / Neg.52 Rit.0 / Max.13
BA...9660..pos.4 Nr.14 Succ.28 / Neg.40 Rit.0 / Max.9
BA...9660..pos.5 Nr.77 Succ.34 / Neg.34 Rit.3 / Max.5​
ritardo dinamico ok
BA...9660..pos.1 Nr.26 Succ.21 / Neg.35 Rit.0 / Max.9
ritardo 0 perché​
 
R

Rubino

Guest
in 6 secondi si ottiene tutto questo, ci starà anche lo spazio per fare qualche tabella sintetica di previsioni automatiche (teoriche)

ci sarà ancora qualcosa da controllare e da sistemare, ma la sintesi e l'evoluzione dall'originale è ormai cosa diversa.
non me ne voglia nessuno.

il concetto è la dinamicità dei numeri appena estratti nell'ultima estrazione sulle 10 ruote, calcolare le ripetizioni sia dell'Estratto
che dell'Ambo a Tutte a Colpo, con tabelle che cercano di facilitare la comprensione delle ruote che teoricamente vedranno
la prossima caduta a colpo.

per il momento, ciao

Codice: 
Sub Main()
   Dim dati(10,5)
   Dim dati2(10,5,10)
   Dim dati3(10,5)
   Dim an(1),ar(10)
   es = InputBox("Quante estrazioni vuoi controllare ?",,100)
   es = CInt(es)
   'im = InputBox ("Su quale estrazione mensile devo elaborare ?",,1)
   'im = CInt (im)
   inizio = EstrazioneFin - es
   For r = 1 To 10
      'ImpostaRuota r,False
      ar(r) = r
   Next
   For ru = 1 To 10
      For p = 1 To 5
         For ru2 = 1 To 10
            dati2(ru,p,ru2) = 0
         Next
      Next
   Next
   ColoreTesto 2
   Scrivi " P-Ghio-Orig2 ",1,,2,5
   Scrivi String(90,Chr(11)): ColoreTesto 1
   Scrivi "Situazione  Statistica  E s t r a t t i  e d  A m b i  R i p e t u t i  a C o l p o  all Estrazione n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin)
   Scrivi
   Scrivi "Tabella 1"
   Scrivi "La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva."
   Scrivi "Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle "
   Scrivi "estrazioni successive."
   Scrivi "Esempio: R1 = 4 indica che il primo estratto di Bari è in ritardo da 4 estrazioni su Tutte"
   ColoreTesto 2
   Scrivi String(90,Chr(11)): ColoreTesto 1
   For i = inizio To EstrazioneFin
      'If IndiceMensile (i) = im Then
      AvanzamentoElab inizio,EstrazioneFin,i
      Messaggio "Stò elaborando l'estrazione del " & DataEstrazione(i)
      If i = EstrazioneFin Then Exit For
      For ru = 1 To 10
         For p = 1 To 5
            es1 = Estratto(i,ru,p)
            '''calcola ritardo di ripetizione della posizione
            an(1) = es1
            ritardo = EstrattoRitardoTurbo(11,es1,Inizio,EstrazioneFin - 2)
            dati3(ru,p) = ritardo
            '''trova quanti colpi è in ritardo su tutte le ruote
            For ru2 = 1 To 10
               For p2 = 1 To 5
                  es2 = Estratto(i + 1,ru2,p2)
                  If es1 = es2 Then
                     '''calcola frequenza
                     dati(ru,p) = dati(ru,p) + 1
                     dati2(ru,p,ru2) = dati2(ru,p,ru2) + 1
                  End If
               Next
            Next
         Next
      Next
      'End If
   Next
   ColoreTesto 1
   Scrivi
   Scrivi Space(20) & "Tabella 1 Resoconto Complessivo"
   Scrivi
   Scrivi "       E1   E2   E3   E4   E5 "
   ColoreTesto 2
   ScriviMatrice dati,,4
   Scrivi
   ColoreTesto(1)
   Scrivi "       R1   R2   R3   R4   R5 "
   ColoreTesto(2)
   ScriviMatrice dati3,,4
   Scrivi String(90,Chr(11)): ColoreTesto 1
   Scrivi "Tabella 2"
   Scrivi "Questa tabella indica, in maniera dettagliata, quante volte l'estratto"
   Scrivi "in una determinata posizione, si ripete in ogni ruota. Esempio:"
   Scrivi "(Ba Pos1 3 0 1) indica che il 1° estratto su Bari si è ripetuto 3 volte a"
   Scrivi "Bari, 0 volte a Cagliari e 1 volta a Firenze."
   ColoreTesto 2
   Scrivi String(90,Chr(11)): ColoreTesto 1
   Scrivi
   Scrivi Space(20) & "Tabella 2 Resoconto Dettagliato"
   Scrivi
   For ru = 1 To 10
      Scrivi Space(15) & "Ba" & Space(3) & "Ca" & Space(3) & "Fi" & Space(3) & "Ge" & _
      Space(3) & "Mi" & Space(3) & "Na" & Space(3) & "Pa" & Space(3) & "Ro" & _
      Space(3) & "To" & Space(3) & "Ve"
      For p = 1 To 5
         Scrivi FormatSpace(Left(NomeRuota(ru),2),5) + FormatSpace("Pos",4) + FormatSpace(p,6) + _
         FormatSpace(dati2(ru,p,1),5) + _
         FormatSpace(dati2(ru,p,2),5) + FormatSpace(dati2(ru,p,3),5) + _
         FormatSpace(dati2(ru,p,4),5) + FormatSpace(dati2(ru,p,5),5) + _
         FormatSpace(dati2(ru,p,6),5) + FormatSpace(dati2(ru,p,7),5) + _
         FormatSpace(dati2(ru,p,8),5) + FormatSpace(dati2(ru,p,9),5) + _
         FormatSpace(dati2(ru,p,10),5)
      Next
      Scrivi String(61,"-")
   Next
   '''''''''''''situazione ambi
   Call situazioneambi(inizio,ar)
      ''''''''''routine per i ritardi di numeri dinamici di posizione determinata a colpo
   Call ritardidinamicidiposizionedeterminata
   Scrivi: Scrivi "Tempo di Elaborazione : " & TempoTrascorso,1
   Scrivi "Tutti i dati sono stati rilevati dalla 3950 all'ultima estrazione in archivio",1
End Sub
Function situazioneambi(inizio,ar)
   Dim dati4(10,10,3)
   Dim a,b,ii,rt,pi,aretritardi,aretidestr,fr,ult,max,retestratti,retidestr,yn
   Dim rigafreq,rigarita,rigarmax,x
   Scrivi:Scrivi String(150,"-")
   Scrivi "Storia Ambi Dinamici da Cinquine Estratte e Ripetizioni A COLPO su TUTTE : Situazione all'Estr.n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1,,2,5
   Scrivi
   Scrivi " Tabella 3  -   Situazione i 10 Ambi di Ogni ruota "
   Scrivi:Scrivi "Per ogni Ruota vengono evidenziati i 10 ambi che compongono la cinquina estratta"
   Scrivi "la frequenza d'uscita - il ritardo corrente - il ritardo max "
   Scrivi "Nb: i valori sono calcolati sull'Esito a colpo dell'ambo a TUTTE "
   ColoreTesto(1)
   Scrivi:Scrivi String(17," ") & FormatSpace("    1       2       3       4       5       6       7       8       9      10",1)
   Scrivi String(17," ") & FormatSpace("   1:2     1:3     1:4     1:5     2:3     2:4     2:5     3:4     3:5     4:5",1)
   ColoreTesto(0)
   Scrivi
   For ii = inizio To EstrazioneFin
      AvanzamentoElab inizio,EstrazioneFin,ii
      If ii = EstrazioneFin Then Exit For
      For rt = 1 To 10
         ReDim num(5)
         For pi = 1 To 5
            num(pi) = Estratto(ii,rt,pi)
         Next
         ReDim nr(2)
         yn = 0
         For a = 1 To 4
            For b = a + 1 To 5
               nr(1) = num(a) : nr(2) = num(b)
               yn = yn + 1
               '''verifica esito a 1 colpo
               Call VerificaEsitoTurbo(nr,ar,ii + 1,2,1,,,,retestratti,retidestr)
               If retestratti <> "" Then
                  dati4(rt,yn,1) = dati4(rt,yn,1) + 1 ''' frequenza
                  If dati4(rt,yn,2) > dati4(rt,yn,3) Then
                     dati4(rt,yn,3) = dati4(rt,yn,2) ''''' massimo
                  End If
                  dati4(rt,yn,2) = 0 '''azzera ritardo colpo
               Else
                  dati4(rt,yn,2) = dati4(rt,yn,2) + 1 '''' accumula ritardo di colpo
               End If
               '''''
            Next
         Next
      Next
   Next
   ''
   For rt = 1 To 10
      rigafreq = "":rigarita = "":rigarmax = ""
      For x = 1 To 10
         rigafreq = rigafreq & FormatSpace(dati4(rt,x,1),8)
         rigarita = rigarita & FormatSpace(dati4(rt,x,2),8)
         rigarmax = rigarmax & FormatSpace(dati4(rt,x,3),8)
      Next
      Scrivi " Ruota " & SiglaRuota(rt) & "   Freq.   " & rigafreq
      Scrivi " Ruota " & SiglaRuota(rt) & "   R.c.    " & rigarita
      Scrivi " Ruota " & SiglaRuota(rt) & "   Rmax    " & rigarmax
      Scrivi String(100,"-")
   Next
  End Function
  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function ritardidinamicidiposizionedeterminata
   '''' routine per i ritardi dinamici di posizione determinata
   Dim der,dr,dp,dh,dhh,dne,danr,daretritardi,daretidestr,dretestratti,dretidestr,dsucc,drit,dmax,dneg,ixr,cadu
   '''carica numeri ultima estrazione in archivio e ricerca storia dei numeri
   der = EstrazioneFin
   Scrivi String(100,"-")
   Scrivi
   Scrivi "Storia Estratto in posizione Determinata e Ripetizioni A COLPO : Situazione all'Estr.n." & der & " / " & DataEstrazione(der),1,,2,5
   ColoreTesto 1
   Scrivi
   Scrivi "Tabella 4 -  Numeri Dinamici in posizione determinata "
   Scrivi "Esempio : la cinquina appena estratta BARI 26.90.22.14.77"
   Scrivi "Calcola Storia ritardi per esiti a colpo A TUTTE "
   Scrivi "R.c./R.max/Successi/Negativi dei 5 estratti In Posizione determinata"
   Scrivi
   Scrivi String(63," ") & "  R u o t e  d i  C a d u t a  ",1
   ReDim druote(10)
   For dr = 1 To 10
      druote(dr) = dr
   Next
   '''''''''  situazione attuale dei 50 numeri estratti nell'ultima estrazione in archivio
   For dr = 1 To 10
      ReDim dart(1),dan(1)
      dart(1) = dr
      ColoreTesto(0)
      Scrivi String(7,"-") & "  Ru  Pos   Nr   Succ  /  Neg    R.c.  /  R.Max   " & FormatSpace("  ba  ca  fi  ge  mi  na  pa  ro  To  ve  ",8),1
      ColoreTesto(1)
      For dp = 1 To 5
         danr = Estratto(der,dr,dp)
         Messaggio(der & " / " & danr & ".." & dp)
         ''''
         dan(1) = danr
         Call ElencoRitardiTurbo(dan,dart,1,3950,der,daretritardi,daretidestr)
         dne = UBound(daretritardi) - 1
         ''''''''
         ReDim rucad(10)
         dsucc = 0 : drit = 0 : dmax = 0 : dneg = 0
         ReDim MatriceEstrRitorno(10,5)
         For dhh = 1 To dne
            Call GetEstrazioneCompleta(daretidestr(dhh),MatriceEstrRitorno)
            If Int(danr) = Int(MatriceEstrRitorno(dr,dp)) Then
               '''verificaesito se a colpo su tutte
               If daretidestr(dhh) < der - 1 Then
                  Call VerificaEsitoTurbo(dan,druote,daretidestr(dhh) + 1,1,1,,,,dretestratti,dretidestr)
                  If dretestratti <> "" Then
                     dsucc = dsucc + 1
                     If drit > dmax Then
                        dmax = drit
                     End If
                     drit = 0
                     ''''ruota di caduta
                     cadu = Left(dretestratti,2)
                     If cadu = "BA" Then rucad(1) = rucad(1) + 1
                     If cadu = "CA" Then rucad(2) = rucad(2) + 1
                     If cadu = "FI" Then rucad(3) = rucad(3) + 1
                     If cadu = "GE" Then rucad(4) = rucad(4) + 1
                     If cadu = "MI" Then rucad(5) = rucad(5) + 1
                     If cadu = "NA" Then rucad(6) = rucad(6) + 1
                     If cadu = "PA" Then rucad(7) = rucad(7) + 1
                     If cadu = "RO" Then rucad(8) = rucad(8) + 1
                     If cadu = "TO" Then rucad(9) = rucad(9) + 1
                     If cadu = "VE" Then rucad(10) = rucad(10) + 1
                  Else
                     drit = drit + 1
                     dneg = dneg + 1
                  End If
               End If
            End If
         Next
         Scrivi String(3," ") & der & "  " & FormatSpace(SiglaRuota(dr),5) & FormatSpace(dp,5) & GetTestoHtml(FormatSpace(danr,7),,vbRed) & FormatSpace(dsucc,7) & FormatSpace(dneg,8) & GetTestoHtml(FormatSpace(drit,8),,vbRed) & FormatSpace(dmax,10) & FormatSpace(rucad(1),4) & FormatSpace(rucad(2),4) & FormatSpace(rucad(3),4) & FormatSpace(rucad(4),4) & FormatSpace(rucad(5),4) & FormatSpace(rucad(6),4) & FormatSpace(rucad(7),4) & FormatSpace(rucad(8),4) & FormatSpace(rucad(9),4) & FormatSpace(rucad(10),4)
      Next
   Next
End Function
 
R

Rubino

Guest
a mio avviso tutti gli altri script fatti finora sono decaduti.

quest'ultimo, una volta accertata la correttezza dei dati esposti, ed eventualmente inserita la function dei determinati in gioco
sarà ritenuto finito.

a tal proposito simulando una previsione a colpo:

1 Ipotesi

Ro-To-Ve estratto 29 perchè ha Rc prossimo a Rmax per la ripetizione,
dove può ripetersi?, su quale Ruota? RO-TO-VE non hanno presenze di caduta a colpo


Cattura.GIF


2 Ipotesi

la terzina di CAGLIARI composta dal 1-2-4 estratto possono dare origine alla ripetizione dell'ambo a TUTTE a colpo TERZINA 25 01 06

Cattura2.GIF

3 Ipotesi

ripetizione a colpo di una combinazione in posizione determinata su Ruota

converge con quel 29 citato sopra dall'altra tabella
R.c. Max Posizione tra i 50 estratti
026 262 2 ° di BCFGMNPRTV 90.06.68.37.18.23.29.83.33.44. Gioca su To Pos.2


buona serata

del resto domani devo giocare qualcosa, oltre al superenalotto, schedina Bacheca
perchè non ho con me gli strumenti validi, sceglierò una di queste previsioni
tentare con poco non costo quasi niente.
 
Ultima modifica di un moderatore:
G

ghio

Super Member >PLATINUM<
Ruota BA R.c. 5 0 0 134 29 75 18 6 37 19 ottenendo questi dati dall estrazione del 23-07
1-3 numero per ambo =ritardo 0 ci dice la tabella ma dov è che ritarda 0 boo non lo vedo?


'
 
G

ghio

Super Member >PLATINUM<
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve 9659 BA 1 60 32 38 0 5 3 8 2 4 4 2 2 3 2 2

vediamo se interpreto bene il 60 quando esce in prima pos a ba è riuscito 32 volte si e 38 no
​
 
solare

solare

Advanced Member >PLATINUM<
Grazie GHIO e soprattutto grazie Rubino per l'altissima bravura per la compilazione degli script……….Bravo Complimenti è il minimo che si può dire.
 
B

boris

Advanced Member
mi associo a fare i COMPLIMENTI a Rubino per i script, e idea di Ghio, se possibile fare nelee prossime estrazioni dei esempi, GRAZIE
 
R

Rubino

Guest
vediamo se uno specchietto come questo, vale qualcosa o se è da buttare?

saranno poche quelle che vanno a segno, perchè sono determinate, così come i ripetuti sono pochi
rispetto ai nuovi estratti tra i 50 di ogni estrazione.

ma stiamo parlando di estratti DINAMICI, quindi che cambiano ad ogni estrazione e validi solo per 1 colpo.




Codice: 
[FONT=courier new][B][COLOR=#0000CD]Evidenze:  Elenco Dinamico Combinazioni Migliori con Ritardi > RMax
nelle 250 posizioni Valide solo per 1 colpo di gioco[/COLOR][/B]

Ambata 07  Pos.da giocare  BA/3  Prov. MI  pos.1   freq.48     R.c.555    RMax.461
Ambata 33  Pos.da giocare  CA/1  Prov. VE  pos.3   freq.66     R.c.388    RMax.325
Ambata 33  Pos.da giocare  CA/5  Prov. VE  pos.3   freq.66     R.c.663    RMax.262
Ambata 26  Pos.da giocare  FI/2  Prov. RO  pos.1   freq.68     R.c.406    RMax.347
Ambata 26  Pos.da giocare  FI/3  Prov. RO  pos.1   freq.58     R.c.387    RMax.373
Ambata 26  Pos.da giocare  FI/4  Prov. BA  pos.1   freq.67     R.c.530    RMax.371
Ambata 09  Pos.da giocare  FI/4  Prov. FI  pos.1   freq.49     R.c.477    RMax.360
Ambata 85  Pos.da giocare  GE/4  Prov. VE  pos.1   freq.67     R.c.370    RMax.312
Ambata 56  Pos.da giocare  GE/5  Prov. TO  pos.1   freq.59     R.c.500    RMax.408
Ambata 22  Pos.da giocare  GE/5  Prov. TO  pos.4   freq.57     R.c.521    RMax.306
Ambata 06  Pos.da giocare  MI/2  Prov. CA  pos.2   freq.62     R.c.455    RMax.405
Ambata 01  Pos.da giocare  MI/3  Prov. NA  pos.3   freq.52     R.c.340    RMax.285
Ambata 36  Pos.da giocare  NA/4  Prov. VE  pos.5   freq.54     R.c.457    RMax.407
Ambata 13  Pos.da giocare  PA/1  Prov. MI  pos.3   freq.50     R.c.752    RMax.354
Ambata 74  Pos.da giocare  RO/1  Prov. PA  pos.4   freq.66     R.c.293    RMax.270
Ambata 56  Pos.da giocare  RO/1  Prov. TO  pos.1   freq.57     R.c.343    RMax.320
Ambata 33  Pos.da giocare  RO/2  Prov. VE  pos.3   freq.55     R.c.638    RMax.400
Ambata 50  Pos.da giocare  RO/3  Prov. MI  pos.5   freq.68     R.c.449    RMax.428
Ambata 61  Pos.da giocare  RO/4  Prov. PA  pos.5   freq.82     R.c.319    RMax.265
Ambata 06  Pos.da giocare  TO/1  Prov. CA  pos.2   freq.87     R.c.391    RMax.280
Ambata 84  Pos.da giocare  TO/2  Prov. NA  pos.1   freq.63     R.c.370    RMax.280
Ambata 14  Pos.da giocare  TO/2  Prov. VE  pos.4   freq.48     R.c.640    RMax.409
Ambata 49  Pos.da giocare  TO/3  Prov. NA  pos.4   freq.65     R.c.442    RMax.351
Ambata 60  Pos.da giocare  TO/4  Prov. RO  pos.4   freq.57     R.c.420    RMax.413
Ambata 09  Pos.da giocare  TO/5  Prov. FI  pos.1   freq.58     R.c.391    RMax.328
Ambata 07  Pos.da giocare  TO/5  Prov. MI  pos.1   freq.60     R.c.448    RMax.416
Ambata 85  Pos.da giocare  TO/5  Prov. VE  pos.1   freq.69     R.c.433    RMax.383
Ambata 01  Pos.da giocare  VE/3  Prov. NA  pos.3   freq.62     R.c.352    RMax.332[/FONT]
 
G

ghio

Super Member >PLATINUM<
CHE SIA UTILE NON SE NE DISCUTE E POI ANCHE SE COME DICI TU ANCHE SE NE USCISSE SOLO 1 AVREMMO UN QUADAGNO DEL 100 P 100NON CREDI O SBAGLIO
 
R

Rubino

Guest
sta finalmente piovendo e rinfrescando !

chissà se uscirà qualcosa di questi a colpo?

fra poco lo vedremo.

Codice: 
[FONT=courier new][B][COLOR=#FF0000]Previsioni :  Ambi in Ripetizione a Colpo su Tutte le Ruote[/COLOR][/B]
Riepilogo degli Ambi aventi R.c.>= Rmax a 1 colpo di gioco

da BA pos.2.4 Gioca su Tutte ambo..90.14
da CA pos.1.2 Gioca su Tutte ambo..25.6
da CA pos.1.4 Gioca su Tutte ambo..25.1
da CA pos.2.4 Gioca su Tutte ambo..6.1
da FI pos.2.3 Gioca su Tutte ambo..68.65
da FI pos.4.5 Gioca su Tutte ambo..52.38
da GE pos.1.2 Gioca su Tutte ambo..50.37
da GE pos.2.3 Gioca su Tutte ambo..37.55
da GE pos.2.4 Gioca su Tutte ambo..37.22
da GE pos.3.4 Gioca su Tutte ambo..55.22
da MI pos.1.2 Gioca su Tutte ambo..7.18
da MI pos.3.5 Gioca su Tutte ambo..13.50
da MI pos.4.5 Gioca su Tutte ambo..61.50
da NA pos.1.2 Gioca su Tutte ambo..84.23
da NA pos.1.3 Gioca su Tutte ambo..84.1
da NA pos.1.4 Gioca su Tutte ambo..84.49
da PA pos.1.4 Gioca su Tutte ambo..59.74
da PA pos.2.3 Gioca su Tutte ambo..29.2
da PA pos.2.5 Gioca su Tutte ambo..29.61
da PA pos.3.4 Gioca su Tutte ambo..2.74
da PA pos.4.5 Gioca su Tutte ambo..74.61
da RO pos.1.3 Gioca su Tutte ambo..26.37
da RO pos.1.4 Gioca su Tutte ambo..26.60
da RO pos.2.4 Gioca su Tutte ambo..83.60
da RO pos.3.4 Gioca su Tutte ambo..37.60
da TO pos.1.3 Gioca su Tutte ambo..56.17
da TO pos.2.4 Gioca su Tutte ambo..33.22
da TO pos.4.5 Gioca su Tutte ambo..22.1
da VE pos.1.4 Gioca su Tutte ambo..85.14
da VE pos.1.5 Gioca su Tutte ambo..85.36
da VE pos.2.4 Gioca su Tutte ambo..44.14
da VE pos.4.5 Gioca su Tutte ambo..14.3[/FONT]6
 
R

Rubino

Guest
la prova della giocata a torino dell'ipotesi 3 è andata a segno
Cattura.GIF

ipotesi 1 e ipotesi 2 , fallite

anche il riepilogo degli ambi più in ritardo a colpo ha dato esito negativo.
infatti, forse è opportuno sceglierli sulla frequenza, cioè le posizioni che generano più frequentemente gli ambi a tutte
anzichè far ricadere la scelta tra i più in ritardo.

il riepilogo lo devo adattare a questa scelta, se riesco.

anche questa ipotetica tabella riepilogativa
Evidenze: Elenco Dinamico Combinazioni Migliori con Ritardi > RMax
nelle 250 posizioni Valide solo per 1 colpo di ​

ha dato esito negativo per le ambate in posizione .


Primo colpo, primo esperimento, scarso!

bisogna entrare ulteriormente dentro i vari prospetti e capire cosa scegliere.

buona serata.
 
G

ghio

Super Member >PLATINUM<
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 BA 1 26 21 35 0 9 6 3 4 2 1 2 1 2
9660 BA 2 90 26 44 0 11 4 4 2 2 1 4 1 1 5 2
9660 BA 3 22 31 52 0 13 4 5 3 2 3 5 1 3 3 2
9660 BA 4 14 28 40 0 9 5 3 1 4 5 1 3 1 4 1
9660 BA 5 77 34 34 3 5 3 3 6 2 5 6 2 2 3 2
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 CA 1 25 24 36 0 5 3 3 3 4 2 5 4
9660 CA 2 6 35 50 1 8 8 4 2 3 3 2 5 3 2 3
9660 CA 3 5 30 27 1 5 5 9 2 1 1 2 3 5 2
9660 CA 4 1 31 35 2 7 4 4 5 1 3 1 2 4 3 4
9660 CA 5 16 34 43 2 6 3 7 4 3 5 7 3 1 1
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 FI 1 9 28 29 0 6 3 4 2 2 2 1 4 6 3 1
9660 FI 2 68 25 29 0 5 7 1 2 3 3 3 3 1 2
9660 FI 3 65 30 36 1 5 3 2 2 5 4 2 3 2 4 3
9660 FI 4 52 27 25 1 3 5 3 1 4 6 3 1 1 1 2
9660 FI 5 38 26 30 0 13 3 4 2 2 4 4 2 2 3
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 GE 1 50 39 46 1 5 3 2 8 5 5 4 3 4 3 2
9660 GE 2 37 28 32 2 6 9 1 2 3 1 4 1 2 3 2
9660 GE 3 55 25 26 0 3 4 4 3 4 1 4 3 2
9660 GE 4 22 30 31 0 5 4 3 2 8 2 4 4 2 1
9660 GE 5 76 28 22 1 6 1 4 4 5 3 3 3 2 3
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 MI 1 7 23 31 5 6 3 2 2 2 2 3 2 3 1 3
9660 MI 2 18 29 43 5 5 2 6 4 2 3 3 4 2 1 2
9660 MI 3 13 34 31 0 5 5 3 3 7 1 2 3 4 4 2
9660 MI 4 61 29 35 0 9 1 5 2 3 4 2 5 2 3 2
9660 MI 5 50 25 29 2 6 1 2 1 6 5 1 3 2 4
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 NA 1 84 17 36 2 11 1 1 1 5 3 3 1 2
9660 NA 2 23 34 33 1 4 6 5 2 2 5 5 2 2 3 2
9660 NA 3 1 29 25 0 5 2 2 2 3 3 3 4 5 4 1
9660 NA 4 49 27 41 4 9 6 2 1 3 5 1 3 2 2 2
9660 NA 5 87 35 37 0 4 6 3 6 4 6 1 3 3 3
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 PA 1 59 16 32 1 7 1 2 4 2 1 3 2 1
9660 PA 2 29 26 32 4 5 2 2 6 2 7 3 4
9660 PA 3 2 31 42 0 8 4 5 4 1 6 3 1 2 1 4
9660 PA 4 74 21 44 0 8 3 1 1 2 4 5 2 3
9660 PA 5 61 31 39 2 5 3 3 3 1 6 5 1 1 5 3
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 RO 1 26 23 38 1 7 3 3 4 1 2 4 2 2 2
9660 RO 2 83 29 24 0 3 2 6 3 4 3 4 2 2 1 2
9660 RO 3 37 22 41 1 4 2 1 5 3 1 4 3 2 1
9660 RO 4 60 21 24 0 7 3 4 2 2 2 1 1 3 1 2
9660 RO 5 13 27 31 1 9 1 8 1 2 1 3 6 2 3
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 TO 1 56 30 33 0 7 2 6 4 3 4 2 5 3 1
9660 TO 2 33 36 32 2 4 7 3 4 6 5 2 2 1 3 3
9660 TO 3 17 24 34 1 10 9 3 1 1 1 3 4 1 1
9660 TO 4 22 32 29 5 5 5 5 5 3 3 2 6 1 1 1
9660 TO 5 1 24 29 1 4 3 5 2 1 2 4 3 2 1 1
------- Ru Pos Nr Succ / Neg R.c. / R.Max ba ca fi ge mi na pa ro To ve
9660 VE 1 85 37 28 1 3 7 3 1 4 2 3 8 4 3 2
9660 VE 2 44 26 37 0 6 4 2 5 1 5 1 1 3 2 2
9660 VE 3 33 25 36 0 6 5 2 3 1 6 2 1 3 2
9660 VE 4 14 27 35 0 5 2 5 1 5 1 2 2 4 3 2
9660 VE 5 36 20 34 1 5 3 3 4 1 3 1 1 1 3
GUARDANDO E STUDIANDO IN QUESTA TABELLA AVENDO GIOCATO I RITARDI MAGGIORI
AVREBBE DATO UN TERNO A NAPOLI ED ALTRO
 
R

Rubino

Guest
un ritocchino prima della pennichella pomeridiana

ho inserito la tabella sopra, che chiedevi di vedere in ordine di ritardo decrescente, per comodità.
qualche piccola sistematina alle descrizioni varie, come guida
allego script

per i prossimi colpi, segnalo

che in queste 3 posizioni determinate, almeno 1 dovrebbe uscire

al ritardo 37 ci sono attualmente 3 combinazioni.

bisogna solo cercare i numeri migliori, togliendo i ripetuti
sono 9 su cagliari
sono 8 su bari
sono 10 su cagliari

l'eventuale vincita risulterà di 5,5 volte o superiore alla posta giocata.

037 200 4 ° di BCFGMNPRTV 30.63.63.27.39.53.36.39.08.70. Gioca su Ca Pos.3
037 170 5 ° di BCFGMNPRTV 34.85.54.07.65.29.40.54.59.54. Gioca su Ba Pos.4
037 389 3 ° di BCFGMNPRTV 78.66.88.09.77.41.63.05.54.30. Gioca su Ca Pos.1


PREVISIONE RISTRETTA x 1 colpo di gioco

CAGLIARI 1° e 3° ESTRATTO DETERMINATO
ESTRATTO 36

proveniente da Palermo 4° estratto per ripetizione in rit. da 11 colpi


ciao a tutti

Codice: 
Sub Main()
   Dim dati(10,5)
   Dim dati2(10,5,10)
   Dim dati3(10,5)
   Dim an(1),ar(10)
   Dim listapd,es,Inizio,I,RU,P,ES1,ES2,RU2,P2,ritardo,selx,sel,R
   es = CInt(InputBox("Quante estrazioni vuoi controllare ?",,100))
   selx = InputBox("Vuoi Graduatorie Ritardi? S/N  ",,"S")
   listapd = InputBox("Vuoi Elenco Ritardi Posiz.Determinate S/N",,"S")
   Inizio = EstrazioneFin - es
   If selx = "S" Then sel = "GR" Else sel = " " End If
   For R = 1 To 10
      'ImpostaRuota r,False
      ar(R) = R
   Next
   For RU = 1 To 10
      For P = 1 To 5
         For RU2 = 1 To 10
            dati2(RU,P,RU2) = 0
         Next
      Next
   Next
   ColoreTesto 2
   Scrivi " P-Ghio-Orig2 ",1,,2,5
   Scrivi String(90,Chr(11)): ColoreTesto 1
   Scrivi "Situazione  Statistica  E s t r a t t i  e d  A m b i  R i p e t u t i  a C o l p o  all Estrazione n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin)
   Scrivi
   Scrivi "Tabella 1"
   Scrivi "La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva."
   Scrivi "Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle "
   Scrivi "estrazioni successive."
   Scrivi "Esempio: R1 = 4 indica che il primo estratto di Bari è in ritardo da 4 estrazioni su Tutte"
   ColoreTesto 2
   Scrivi String(90,Chr(11)): ColoreTesto 1
   For I = Inizio To EstrazioneFin
     AvanzamentoElab Inizio,EstrazioneFin,I
      Messaggio "Stò elaborando l'estrazione del " & DataEstrazione(I)
      If I = EstrazioneFin Then Exit For
      For RU = 1 To 10
         For P = 1 To 5
            ES1 = Estratto(I,RU,P)
            '''calcola ritardo di ripetizione della posizione
            an(1) = ES1
            ritardo = EstrattoRitardoTurbo(11,ES1,Inizio,EstrazioneFin - 2)
            dati3(RU,P) = ritardo
            '''trova quanti colpi è in ritardo su tutte le ruote
            For RU2 = 1 To 10
               For P2 = 1 To 5
                  ES2 = Estratto(I + 1,RU2,P2)
                  If ES1 = ES2 Then
                     '''calcola frequenza
                     dati(RU,P) = dati(RU,P) + 1
                     dati2(RU,P,RU2) = dati2(RU,P,RU2) + 1
                  End If
               Next
            Next
         Next
      Next
   Next
   ColoreTesto 1
   Scrivi:Scrivi Space(20) & "Tabella 1 Resoconto Complessivo"
   Scrivi:Scrivi "       E1   E2   E3   E4   E5 "
   ColoreTesto 2
   ScriviMatrice dati,,4
   Scrivi: ColoreTesto(1)
   Scrivi "       R1   R2   R3   R4   R5 "
   ColoreTesto(2)
   ScriviMatrice dati3,,4
   Scrivi String(90,Chr(11)): ColoreTesto 1
   Scrivi "Tabella 2"
   Scrivi "Questa tabella indica, in maniera dettagliata, quante volte l'estratto"
   Scrivi "in una determinata posizione, si ripete in ogni ruota. Esempio:"
   Scrivi "(Ba Pos1 3 0 1) indica che il 1° estratto su Bari si è ripetuto 3 volte a"
   Scrivi "Bari, 0 volte a Cagliari e 1 volta a Firenze."
   ColoreTesto 2
   Scrivi String(90,Chr(11)): ColoreTesto 1
   Scrivi: Scrivi Space(20) & "Tabella 2 Resoconto Dettagliato"
   Scrivi
   For RU = 1 To 10
      Scrivi Space(15) & "Ba" & Space(3) & "Ca" & Space(3) & "Fi" & Space(3) & "Ge" & _
      Space(3) & "Mi" & Space(3) & "Na" & Space(3) & "Pa" & Space(3) & "Ro" & _
      Space(3) & "To" & Space(3) & "Ve"
      For P = 1 To 5
         Scrivi FormatSpace(Left(NomeRuota(RU),2),5) + FormatSpace("Pos",4) + FormatSpace(P,6) + _
         FormatSpace(dati2(RU,P,1),5) + _
         FormatSpace(dati2(RU,P,2),5) + FormatSpace(dati2(RU,P,3),5) + _
         FormatSpace(dati2(RU,P,4),5) + FormatSpace(dati2(RU,P,5),5) + _
         FormatSpace(dati2(RU,P,6),5) + FormatSpace(dati2(RU,P,7),5) + _
         FormatSpace(dati2(RU,P,8),5) + FormatSpace(dati2(RU,P,9),5) + _
         FormatSpace(dati2(RU,P,10),5)
      Next
      Scrivi String(61,"-")
   Next
   ''''''''''''''''''''''''''''''''''''''''richiamo  routine '''''''''''''''''''''''''''''''''''''
   '''''''''''''situazione ambi
   Call situazioneambi(Inizio,ar,sel)
   ''''''''''routine per i ritardi di numeri dinamici di posizione determinata a colpo
   Call ritardidinamicidiposizionedeterminata(sel)
   '''''''''''''storia ritardi posizioni determinate
   Call CalcoloPosizioniDeterminate(listapd)
   '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   '''''''''''''
   Scrivi: Scrivi "Tempo di Elaborazione : " & TempoTrascorso,1
   Scrivi "Tutti i dati sono stati rilevati dalla 3950 all'ultima estrazione in archivio",1
End Sub
Function situazioneambi(inizio,ar,sel)
   Dim dati4(10,10,3)
   Dim a,b,ii,rt,pi,aretritardi,aretidestr,fr,ult,max,retestratti,retidestr,yn
   Dim rigafreq,rigarita,rigarmax,x,evid,ambotutte,ww,qqq,ccc
   Scrivi:Scrivi String(150,"-")
   Scrivi "Storia Ambi Dinamici da Cinquine Estratte e Ripetizioni A COLPO su TUTTE : Situazione all'Estr.n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1,,2,5
   Scrivi
   Scrivi " Tabella 3  -   Situazione i 10 Ambi di Ogni ruota "
   Scrivi:Scrivi "Per ogni Ruota vengono evidenziati i 10 ambi che compongono la cinquina estratta"
   Scrivi "la frequenza d'uscita - il ritardo corrente - il ritardo max "
   Scrivi "Nb: i valori sono calcolati sull'Esito a colpo dell'ambo a TUTTE "
   Scrivi "Vengono segnalate le posizioni dell'ambo con il valore R.c. ha superato Rmax nei 100 concorsi ",1
   Scrivi "Annotazioni: i 100 ambi estratti ad ogni estrazione, generalmente nei tre colpi successivi se ne ",1
   Scrivi "sfaldano diversi In ripetizione.  Ma il ritardo alla ripetizione può essere 3 concorsi.  ",1
   Scrivi "Cioè per 3 concorsi possono anche non ripetersi ambi dei 100 di una estrazione",1
   ColoreTesto(1)
   ReDim Tabsvi(10,2),rie(100),grad1(100,2)
   Tabsvi(1,1) = 1:Tabsvi(1,2) = 2
   Tabsvi(2,1) = 1:Tabsvi(2,2) = 3
   Tabsvi(3,1) = 1:Tabsvi(3,2) = 4
   Tabsvi(4,1) = 1:Tabsvi(4,2) = 5
   Tabsvi(5,1) = 2:Tabsvi(5,2) = 3
   Tabsvi(6,1) = 2:Tabsvi(6,2) = 4
   Tabsvi(7,1) = 2:Tabsvi(7,2) = 5
   Tabsvi(8,1) = 3:Tabsvi(8,2) = 4
   Tabsvi(9,1) = 3:Tabsvi(9,2) = 5
   Tabsvi(10,1) = 4:Tabsvi(10,2) = 5
   Scrivi:Scrivi String(10," ") & FormatSpace("Posiz      1       2       3       4       5       6       7       8       9      10",1)
   Scrivi String(17," ") & FormatSpace("   1:2     1:3     1:4     1:5     2:3     2:4     2:5     3:4     3:5     4:5",1)
   ColoreTesto(0)
   Scrivi
   For ii = inizio To EstrazioneFin
      AvanzamentoElab inizio,EstrazioneFin,ii
      If ii = EstrazioneFin Then Exit For
      For rt = 1 To 10
         ReDim num(5)
         For pi = 1 To 5
            num(pi) = Estratto(ii,rt,pi)
         Next
         ReDim nr(2)
         yn = 0
         For a = 1 To 4
            For b = a + 1 To 5
               nr(1) = num(a) : nr(2) = num(b)
               yn = yn + 1
               '''verifica esito a 1 colpo
               Call VerificaEsitoTurbo(nr,ar,ii + 1,2,1,,,,retestratti,retidestr)
               If retestratti <> "" Then
                  dati4(rt,yn,1) = dati4(rt,yn,1) + 1 ''' frequenza
                  If dati4(rt,yn,2) > dati4(rt,yn,3) Then
                     dati4(rt,yn,3) = dati4(rt,yn,2) ''''' massimo
                  End If
                  dati4(rt,yn,2) = 0 '''azzera ritardo colpo
               Else
                  dati4(rt,yn,2) = dati4(rt,yn,2) + 1 '''' accumula ritardo di colpo
               End If
               '''''
            Next
         Next
      Next
   Next
   '''' prospetto classico a video
      For rt = 1 To 10
         rigafreq = "":rigarita = "":rigarmax = "":evid = ""
         For x = 1 To 10
            ''''METTE in rie solo ambi con ritardo > rmax
            If dati4(rt,x,2) <> 100 And dati4(rt,x,2) >= dati4(rt,x,3) Then
               evid = evid & x & "."
               ambotutte = Estratto(EstrazioneFin,rt,Tabsvi(x,1)) & "." & Estratto(EstrazioneFin,rt,Tabsvi(x,2))
               ww = ww + 1
               rie(ww) = "da " & GetTestoHtml(SiglaRuota(rt),,vbRed) & " pos." & Tabsvi(x,1) & "." & Tabsvi(x,2) & " Gioca su Tutte ambo.." & GetTestoHtml(ambotutte,,vbRed)
            End If
            rigafreq = rigafreq & FormatSpace(dati4(rt,x,1),8)
            rigarita = rigarita & FormatSpace(dati4(rt,x,2),8)
            rigarmax = rigarmax & FormatSpace(dati4(rt,x,3),8)
         Next
         Scrivi " Ruota " & SiglaRuota(rt) & "   Freq.   " & rigafreq
         Scrivi " Ruota " & SiglaRuota(rt) & "   R.c.    " & rigarita
         Scrivi " Ruota " & SiglaRuota(rt) & "   Rmax    " & rigarmax
         Scrivi String(100,"-") & " NB: Ambo n." & GetTestoHtml(evid,,vbRed)
      Next
      Scrivi:Scrivi "Previsioni :  Ambi in Ripetizione a Colpo su Tutte le Ruote ",1,,2,5
      ColoreTesto(0): Scrivi:Scrivi "Riepilogo degli Ambi aventi R.c.>= Rmax a 1 colpo di gioco ",1
        Scrivi "Selezionare con i criteri di Sincronismo Orizzontale e/o verticale ",1
        Scrivi : ColoreTesto(1)
      For qqq = 1 To ww
         Scrivi rie(qqq),1
      Next
     ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      '''''prospetto in graduatoria di ritardo
   If sel = "GR" Then
   Scrivi: ColoreTesto(0)
   Scrivi "Riepilogo Ambi in Graduatoria discendente del Ritardo di Ripetizione a TUTTE ",1
   Scrivi "Selezionare con i criteri di Sincronismo Orizzontale e/o verticale ",1
   ColoreTesto(1)
   ww = 0
      For rt = 1 To 10
         For x = 1 To 10
            ambotutte = Estratto(EstrazioneFin,rt,Tabsvi(x,1)) & "." & Estratto(EstrazioneFin,rt,Tabsvi(x,2))
            ww = ww + 1
            grad1(ww,1) = FormattaStringa(dati4(rt,x,2),"000")
            grad1(ww,2) = "da " & GetTestoHtml(SiglaRuota(rt),,vbRed) & " pos." & Tabsvi(x,1) & "." & Tabsvi(x,2) & " Gioca su Tutte ambo.." & GetTestoHtml(ambotutte,,vbRed)
         Next
      Next
      Call OrdinaMatriceTurbo(grad1,- 1,1)
      For ccc = 1 To ww
         Scrivi "R.c. " & grad1(ccc,1) & "   " & grad1(ccc,2),1
      Next
   End If
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function ritardidinamicidiposizionedeterminata(SEL)
   '''' routine per i ritardi dinamici di posizione determinata
   Dim der,dr,dp,dh,dhh,dne,danr,daretritardi,daretidestr,dretestratti,dretidestr,dsucc,drit,dmax,dneg,ixr,cadu,ww,az,BARI
   '''carica numeri ultima estrazione in archivio e ricerca storia dei numeri
   der = EstrazioneFin
   ww = 0
   Scrivi String(100,"-")
   Scrivi
   Scrivi "Storia Estratto in posizione Determinata e Ripetizioni A COLPO : Situazione all'Estr.n." & der & " / " & DataEstrazione(der),1,,2,5
   ColoreTesto 1 : Scrivi
   Scrivi "Tabella 4 -  Numeri Dinamici in posizione determinata "
   BARI = ""
   For j = 1 To 5
   BARI = BARI & Estratto(der,1,J) & "."
   Next
   Scrivi "Esempio : la cinquina appena estratta BARI " & BARI
   Scrivi "Calcola Storia ritardi per esiti a colpo A TUTTE "
   Scrivi "R.c./R.max/Successi/Negativi dei 5 estratti In Posizione determinata"
   Scrivi "E relativa Distribuzione delle Ripetizioni sulle 10 Ruote"
   Scrivi String(63," ") & "  R u o t e  d i  C a d u t a  ",1
   ReDim druote(10),grad2(50,2)
   For dr = 1 To 10
      druote(dr) = dr
   Next
   '''''''''  situazione attuale dei 50 numeri estratti nell'ultima estrazione in archivio
   For dr = 1 To 10
      ReDim dart(1),dan(1)
      dart(1) = dr
      ColoreTesto(0)
      Scrivi String(7,"-") & "  Ru  Pos   Nr   Succ  /  Neg    R.c.  /  R.Max   " & FormatSpace("  ba  ca  fi  ge  mi  na  pa  ro  To  ve  ",8),1
      ColoreTesto(1)
      For dp = 1 To 5
         danr = Estratto(der,dr,dp)
         Messaggio(der & " / " & danr & ".." & dp)
         ''''
         dan(1) = danr
         Call ElencoRitardiTurbo(dan,dart,1,3950,der,daretritardi,daretidestr)
         dne = UBound(daretritardi) - 1
         ''''''''
         ReDim rucad(10)
         dsucc = 0 : drit = 0 : dmax = 0 : dneg = 0
         ReDim MatriceEstrRitorno(10,5)
         For dhh = 1 To dne
            Call GetEstrazioneCompleta(daretidestr(dhh),MatriceEstrRitorno)
            If Int(danr) = Int(MatriceEstrRitorno(dr,dp)) Then
               '''verificaesito se a colpo su tutte
               If daretidestr(dhh) < der - 1 Then
                  Call VerificaEsitoTurbo(dan,druote,daretidestr(dhh) + 1,1,1,,,,dretestratti,dretidestr)
                  If dretestratti <> "" Then
                     dsucc = dsucc + 1
                     If drit > dmax Then
                        dmax = drit
                     End If
                     drit = 0
                     ''''ruota di caduta
                     cadu = Left(dretestratti,2)
                     If cadu = "BA" Then rucad(1) = rucad(1) + 1
                     If cadu = "CA" Then rucad(2) = rucad(2) + 1
                     If cadu = "FI" Then rucad(3) = rucad(3) + 1
                     If cadu = "GE" Then rucad(4) = rucad(4) + 1
                     If cadu = "MI" Then rucad(5) = rucad(5) + 1
                     If cadu = "NA" Then rucad(6) = rucad(6) + 1
                     If cadu = "PA" Then rucad(7) = rucad(7) + 1
                     If cadu = "RO" Then rucad(8) = rucad(8) + 1
                     If cadu = "TO" Then rucad(9) = rucad(9) + 1
                     If cadu = "VE" Then rucad(10) = rucad(10) + 1
                  Else
                     drit = drit + 1
                     dneg = dneg + 1
                  End If
               End If
            End If
         Next
         Scrivi String(3," ") & der & "  " & FormatSpace(SiglaRuota(dr),5) & FormatSpace(dp,5) & GetTestoHtml(FormatSpace(danr,7),,vbRed) & FormatSpace(dsucc,7) & FormatSpace(dneg,8) & GetTestoHtml(FormatSpace(drit,8),,vbRed) & FormatSpace(dmax,10) & FormatSpace(rucad(1),4) & FormatSpace(rucad(2),4) & FormatSpace(rucad(3),4) & FormatSpace(rucad(4),4) & FormatSpace(rucad(5),4) & FormatSpace(rucad(6),4) & FormatSpace(rucad(7),4) & FormatSpace(rucad(8),4) & FormatSpace(rucad(9),4) & FormatSpace(rucad(10),4)
         ww = ww + 1
         grad2(ww,1) = Format2(drit)
         grad2(ww,2) = String(3," ") & der & "  " & FormatSpace(SiglaRuota(dr),5) & FormatSpace(dp,5) & GetTestoHtml(FormatSpace(danr,7),,vbRed) & FormatSpace(dsucc,7) & FormatSpace(dneg,8) & GetTestoHtml(FormatSpace(drit,8),,vbRed) & FormatSpace(dmax,10) & FormatSpace(rucad(1),4) & FormatSpace(rucad(2),4) & FormatSpace(rucad(3),4) & FormatSpace(rucad(4),4) & FormatSpace(rucad(5),4) & FormatSpace(rucad(6),4) & FormatSpace(rucad(7),4) & FormatSpace(rucad(8),4) & FormatSpace(rucad(9),4) & FormatSpace(rucad(10),4)
      Next
   Next
   ColoreTesto(0)
   Scrivi:Scrivi:Scrivi " Riepilogo Prospetto in Graduatoria di R.c. ",1
   Scrivi "I nr.molto probabili per la ripetizione a colpo sono quelli da R.c.più alto fino a R.c. = 1",1
   Scrivi "Numerosi sono questi che escono a colpo, generando ambi e terni su alcune ruote",1
   Call OrdinaMatrice(grad2,- 1,1)
   Scrivi String(7,"-") & "  Ru  Pos   Nr   Succ  /  Neg    R.c.  /  R.Max   " & FormatSpace("  ba  ca  fi  ge  mi  na  pa  ro  To  ve  ",8),1
   ColoreTesto(1)
   For az = 1 To 50
   Scrivi grad2(az,2)
   Next
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function CalcoloPosizioniDeterminate(listapd)
   ''''calcola ritardi 10ruotex50posizioni
   Dim pdIni,pdfin,pdr,pdnr,pdc,pdru,pdp,pdpos,pdretrit,pdretfre,pdritardo,pdrr,pdpp,kk
   pdfin = EstrazioneFin
   ReDim MatriceEstrRitorno(10,5),ar(1),pdesito(10,5,10,5,3),Previsione(250,4),gruppi(99)
   For pdr = 1 To 10
      For pdpos = 1 To 5
         pdc = pdc + 1
         For pdIni = 3950 To EstrazioneFin
            Messaggio("Calcola Posizioni Determinate  fatte " & pdc & "  su 50")
            ReDim cinquanta(50)
            pdnr = Estratto(pdIni,pdr,pdpos)
            Call GetEstrazioneCompleta(pdIni - 1,MatriceEstrRitorno)
            For pdru = 1 To 10
               For pdp = 1 To 5
                  If pdnr = MatriceEstrRitorno(pdru,pdp) Then
                     pdesito(pdr,pdpos,pdru,pdp,1) = pdesito(pdr,pdpos,pdru,pdp,1) + 1 '''''frequenza
                     ''
                     If pdesito(pdr,pdpos,pdru,pdp,2) > pdesito(pdr,pdpos,pdru,pdp,3) Then '''massimo ritardo
                        pdesito(pdr,pdpos,pdru,pdp,3) = pdesito(pdr,pdpos,pdru,pdp,2)
                     End If
                     pdesito(pdr,pdpos,pdru,pdp,2) = 0 '''azzera ritardo
                  Else
                     pdesito(pdr,pdpos,pdru,pdp,2) = pdesito(pdr,pdpos,pdru,pdp,2) + 1 '''' calcola ritardo
                  End If
               Next
            Next
            If pdIni + 1 > EstrazioneFin Then Exit For
         Next
      Next
   Next
   '''''''''''' riepilogo ritardi di tutte le ruote e delle posizioni
   If listapd = "S" Then
      ColoreTesto(0)
      Scrivi String(161,"-")
      Scrivi "PREVISIONI: Estratti secchi Dinamici  x gioco di Estratto determinato Valide solo per 1 Colpo di gioco : Estr.n." & EstrazioneFin,1,,2,5
      Scrivi:Scrivi"Evidenze:  Elenco Dinamico Combinazioni Migliori con Ritardi > RMax nelle 250 posizioni Valide solo per 1 colpo di gioco ",1
      Scrivi
      For pdr = 1 To 10
         For pdpos = 1 To 5
            For pdrr = 1 To 10
               For pdpp = 1 To 5
                  If pdesito(pdr,pdpos,pdrr,pdpp,2) > pdesito(pdr,pdpos,pdrr,pdpp,3) Then
                     ColoreTesto(0)
                     Scrivi "Ambata " & GetTestoHtml(Format2(Estratto(EstrazioneFin,pdrr,pdpp)),,vbRed) & "  Pos.da giocare  " & GetTestoHtml(SiglaRuota(pdr) & "/" & pdpos,,vbBlue) & "  Prov. " & SiglaRuota(pdrr) & "  pos." & pdpp & "   freq." & FormatSpace(pdesito(pdr,pdpos,pdrr,pdpp,1),4) & "   R.c." & FormatSpace(GetTestoHtml(pdesito(pdr,pdpos,pdrr,pdpp,2),,vbRed),4) & "    RMax." & pdesito(pdr,pdpos,pdrr,pdpp,3)
                  Else
                     ColoreTesto(0)
                  End If
               Next
            Next
         Next
      Next
   End If
   ''''''''''ragruppa i 50 estratti ultimi e verifica la posizione Ruota/posizione di gioco
   For pdru = 1 To 10
      For pdp = 1 To 5
         '''''
         '''''provenienza ruota e posizione
         For PDpi = 1 To 5
            PDRmin = 999 : PDRmax = 0
            For PDue = 1 To 10
               If pdesito(pdru,pdp,PDue,PDpi,2) < PDRmin Then
                  PDRmin = pdesito(pdru,pdp,PDue,PDpi,2)
               End If
               If pdesito(pdru,pdp,PDue,PDpi,2) > PDRmax Then
                  PDRmax = pdesito(pdru,pdp,PDue,PDpi,2)
               End If
            Next
            '''''
            PDss = PDss + 1
            ''raggruppa numeri da mettere in gioco
            PDelnum = ""
            For PDm = 1 To 10
               PDelnum = PDelnum & Format2(Estratto(EstrazioneFin,PDm,PDpi)) & "."
            Next
            Previsione(PDss,1) = PDRmin
            Previsione(PDss,2) = PDRmax
            Previsione(PDss,3) = FormatSpace(PDpi,3) & "° di BCFGMNPRTV   " & PDelnum & "   Gioca su  "
            Previsione(PDss,4) = FormatSpace(Left(NomeRuota(pdru),2),4) + FormatSpace("Pos.",2) + FormatSpace(pdp,2)
         Next
      Next
   Next
   ColoreTesto(0)
   Scrivi String(161,"-")
   Scrivi
   Scrivi "PREVISIONI: Lunghetta Dinamica x Estratto determinato Valide solo per 1 Colpo di gioco : Estr.n." & EstrazioneFin,1,,2,5
   Scrivi "Selezionare tra il ritardo sincrono Orizzontale / verticale ",1
   Scrivi
   Scrivi "Rmin  Rmax  Pos.Ruote            N   u   m   e   r   i  ",1
   Call OrdinaMatrice(Previsione,- 1,1)
   For aaa = 1 To 250
   gruppi(Previsione(aaa,1)) = gruppi(Previsione(aaa,1)) + 1
      Scrivi FormattaStringa(Previsione(aaa,1),"000") & "    " & FormattaStringa(Previsione(aaa,2),"000") & "  " & Previsione(aaa,3) & "   " & GetTestoHtml(Previsione(aaa,4),,vbBlue)
   Next
   ''
   Scrivi:Scrivi "Presenze combinazione nei gruppi",1
   For kk = 1 To 50
   If gruppi(kk) > 0 Then
   Scrivi Format2(kk) & "..comb.n." & gruppi(kk),1
   End If
   Next
   ColoreTesto(0)
   Scrivi String(161,"-")
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Ultima modifica di un moderatore:
B

boris

Advanced Member
salve Ghio, gentilmente ci fai vedere qualche tua previsione per poter individuare i numeri buoni dalle tabelle grazie
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 26 aprile 2024
    Bari
    65
    67
    84
    22
    77
    Cagliari
    38
    09
    83
    18
    20
    Firenze
    76
    24
    78
    30
    40
    Genova
    50
    56
    61
    90
    57
    Milano
    87
    21
    15
    12
    79
    Napoli
    13
    66
    86
    25
    49
    Palermo
    72
    60
    68
    74
    09
    Roma
    23
    15
    43
    07
    75
    Torino
    82
    79
    31
    41
    64
    Venezia
    66
    89
    18
    80
    41
    Nazionale
    04
    24
    10
    69
    73
    Estrazione Simbolotto
    Genova
    33
    03
    16
    35
    32
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto