Novità

aiuto per script complicato

solare

Advanced Member >PLATINUM<
Un grazie è doveroso a Ghio e Rubino
Adesso non resta che capire bene il funzionamento dello stesso
 

ghio

Super Member >PLATINUM<
BEL LAVORO MA VAI AVANTI,IL RITARDO DI CADUTA è STRETTAMENTE CORRELATO ALLE RIPETIZIONI ANCHE SE COME CONCETTO DIVERSO.
 

ghio

Super Member >PLATINUM<
Ba Ca Fi Ge Mi Na Pa Ro To Ve Tot. |-| Ba Ca Fi Ge Mi Na Pa Ro To Ve |-|
Ba Pos 1 6 4 3 8 6 4 4 7 4 7 53 |1| 3 2 |1|
>Ru.Pro.1 2 2 2 2 3 ---
>Ru.Pro.2 3 3 3 3 1 1 1 ---
>Ru.Pro.3 2 1 2 2 2 ---
>Ru.Pro.4 2 1 1 2 1 ---
>Ru.Pro.5 2 3 2 2 2 ---
QUESTA PERO NON MI è CHIARA SOLO 1 ESTRAZIONE
Totale Ambi usciti in 3 colpi di gioco sulle 2 ruote di elaborazione...144

Totale Ambi in Elenco x 3 colpi di gioco sulle 2 ruote di elaborazione...368
 
Ultima modifica:
R

Rubino

Guest
Cattura.GIF


in definitiva è sempre la stessa tabella Originaria, ma con l'aggiunta di un dato in piu,
un incrocio con la provenienza di una Ruota e da una specifica Posizione.

Cosa permette di fare quesa informazione.?

noi abbiamo 50 numeri ad ogni estrazione, alcuni cadono nelle varie posizione e ruote e non riusciavamo
ad identificare oltre a quanti, e ora sappiamo da dove arrivavano, almeno la pos.di Partenza.!!!!

qui abbiamo questo dato, anche se non c'è riportato la ruota da dove arriva, ci interessa per un gioco di Estratto Determinato



oltre NB:
in fondo ci sono alcune righe di commento relative agli ambi.
lo script elenca gli ambi così come avevi richiesto, quando c'è il legame dello stesso numero estr.prec.con estr.attuale
dei 4 ambi che si formano del secondo aggancio NR su 2 Ruote!

l'elenco degli ambi lo ottieni indicando una Ruota nella Inputbox " Facoltativo Ruote Sel.di Gioco "
se all'inizio quando lanciate lo script indicate Una Ruota (1:10 esclusa NZ) che state seguendo nelle vostra ricerca

sotto lo script elencherà gli ambi che si sono formati nelle ultime 3 estrazioni
dovreste ottenere questo elenco.
Poichè gli Ambi Rilevati sono moltissimi e come Normale molti rimangono INESTRATTI o negativi, se non allungando
i colpi di gioco, ho preferito elencare sono quelli nati nelle ultime 3 estrazioni.
Possono venire Utili per convergenza o per un gioco a TUTTE, di qualcuno tra questi.



Cattura3.GIF
 

Allegati

  • Cattura2.GIF
    Cattura2.GIF
    4,4 KB · Visite: 1
Ultima modifica di un moderatore:

ghio

Super Member >PLATINUM<
9657 / 9658 Ruote BA-1 / GE-1 - Ambi ..19 10 | ..19 14 | ..19 84 | ..19 71 | Colpo.n.0
----------
9657 / 9658 Ruote BA-2 / FI-2 - Ambi 5 66 | 5 22 | 5 48 | 5 35 | Colpo.n.0
----------
9657 / 9658 Ruote BA-3 / BA-1 - Ambi ..28 2 | ..28 35 | ..28 16 | ..28 30 | Colpo.n.0
----------
9657 / 9658 Ruote BA-3 / RO-5 - Ambi ..28 73 | ..28 65 | ..28 3 | ..28 82 | Colpo.n.0
----------
9657 / 9658 Ruote BA-4 / GE-3 - Ambi ..14 19 | ..14 10 | ..14 84 | ..14 71 | Colpo.n.0
----------
9657 / 9658 Ruote NA-2 / BA-4 - Ambi ..16 28 | ..16 2 | ..16 35 | ..16 30 | Colpo.n.0
----------
9657 / 9658 Ruote NA-3 / BA-3 - Ambi ..35 28 | ..35 2 | ..35 16 | ..35 30 | Colpo.n.0
 

boris

Advanced Member
Buonasera Ghio, gli ambi che hai postato vanno giocati a tutte,
oppure si può estrapolare delle ruote dalla tabella che hai gentilmente pubblicata, grazie.
Buona serata Boris
 

ghio

Super Member >PLATINUM<
T a b e l l a 0 - Parte 2 Relativa alle sorti Estratto e le 5 Posizione
Riepilogo Ritardo Ripetizione e Massimo Storico per esito a colpo per sorte Estratto

Periodo Considerato da - a : 3950 / 9659

Ritardo Ripetizione Massimo dal 1946
Ru P1 P2 P3 P4 P5 | 1x 2x 3x 4x 5x
BA 0 1 0 0 7 | 18 14 16 13 16
CA 0 0 2 4 1 | 13 12 14 13 14
FI 0 1 0 5 0 | 12 15 15 15 13
GE 0 1 7 0 7 | 14 22 14 16 14
MI 4 2 2 1 4 | 18 17 13 16 12
NA 3 1 1 0 2 | 12 16 17 11 16
PA 2 2 2 1 2 | 17 11 13 14 14
RO 0 0 0 2 0 | 13 17 14 11 13
TO 1 2 3 3 1 | 14 15 14 12 14
VE 0 0 1 1 0 | 14 14 12 13 14
ESEMPIO PRATICO I TITARDI NON CORRISPONDONO NESS

Estrazione del 23.07.2019

I II III IV V
  1. Bari 4 1 1 3 8
  2. Cagliari 0 1 0 0 0
  3. Firenze 0 3 0 0 0
  4. Genova 0 4 2 3 0
  5. Milano 3 0 4 3 8
  6. Napoli 1 1 1 0 5
  7. Palermo 2 0 3 0 3
  8. Roma 1 1 1 4 0
  9. Torino 1 0 2 0 4
  10. Venezia 1 2 5 0 4
  11. Nazionale - - - - -
 
R

Rubino

Guest
image_20169.gif ciao ghio

mi sono collegato ora, per vedere come vanno le cose,

ma perchè dici che non quadrano i ritardi?

prova specificare, almeno quando tornerò fra una decina di giorni, ci guarderò.

ti metto le estrazioni che ti fanno vedere perchè il 28 bari 1 pos. ha ritardo 0

è uscito a colpo a CA-FI-TO

e nel caso la ripetizione sia invece relativa alla sola ruota di BARI il 28 vedi che è
uscito due volte nelle ultime tre estrazioni a BARI è USCITO NEll'estrazione del 18 e del 20/7

:cool:



come fai ad ottenere 4 di ritardo nella 1 posizione a BARI?

spiega.

ciao e buona serata.
 
Ultima modifica di un moderatore:

ghio

Super Member >PLATINUM<
IL 60-78-69-83-51
4- 1- 1- 3- 8
IL 60 ERA 4 VOLTE CHE NON USCIVA SU TUTTE
IL 51 ERA 8 VOTE CHE NON USCIVA SU TUTTE
OK RUBINO
 

ghio

Super Member >PLATINUM<
Periodo Considerato da - a : 3950 / 9660

Ritardo Ripetizione dell'Ambo a Colpo

BA Rit.Ripet. 02 Rit.Max. 005
CA Rit.Ripet. 00 Rit.Max. 005
FI Rit.Ripet. 00 Rit.Max. 007
GE Rit.Ripet. 00 Rit.Max. 007
MI Rit.Ripet. 03 Rit.Max. 006
NA Rit.Ripet. 00 Rit.Max. 006
PA Rit.Ripet. 01 Rit.Max. 006
RO Rit.Ripet. 00 Rit.Max. 005
TO Rit.Ripet. 00 Rit.Max. 005
VE Rit.Ripet. 02 Rit.Max. 006


SPIEGAMI AD ESEMPIO FI RIT RIP 00
 
R

Rubino

Guest
visto che fa un caldo della madonna e non riesco a dormire, mi pare di aver cannato su quello che si vuole, o almeno io
sono andato per cose diverse, buttate il mio script e posto una modifica alla volta ripartendo dall'originale.

credevo si cercasse qualcosa di più complicato, con le posizioni , invece è il semplice ritardo a tutte che si vuole evidenziare
relativo al nr. dinamico che figura in una casella di ogni ruota.
e spero di non aver cannato ancora l'interpretazione, altrimenti lascio a qualche altro scripter più lucido di me.

controllare i dati, se corrispondono

e confermare se giusti o sbagliati.


Cattura2.GIF


per gli ambi non mi cimento adesso, perchè non ho capito neppure quello.
con 50 numeri si generano 1225 ambi, risulteranno di meno qualcuno di meno per via dei ripetuti nelle stessa estrazione

che devo fa?
calcola il ritardo a tutte ?
vuoi un elenco, dei ritardi e delle uscite?

come per gli estratti?

due tabelline come quelle sopra?

Ultimo tentativo

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 Date & _
   Chr(32) & Chr(98) & Chr(121) & Chr(32) & Chr(106) & Chr(101) & Chr(115) & Chr(121)
   Scrivi String(90,Chr(11)): ColoreTesto 1
   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)
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
   Scrivi " Tabella 3  -   Situazione dei 10 Ambi di Ogni ruota "
   Scrivi:Scrivi "Per ogni Ruota vengono evidenziati dei 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 - 1
      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
                  If dati4(rt,yn,1) > dati4(rt,yn,3) Then
                     dati4(rt,yn,3) = dati4(rt,yn,1)
                  End If
                  dati4(rt,yn,2) = 0
               Else
                  dati4(rt,yn,2) = dati4(rt,yn,2) + 1
               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
 
Ultima modifica di un moderatore:
R

Rubino

Guest
questo è un'altro piccolo dettaglio, ma forse non interessa, ma a me si!!
un dettaglio di un altro tipo di Ritardo, tra gli innumerevoli che ci si può inventare.
forse è e diventerà utile in futuro!

mi fanno sorgere il dubbio:
alcuni software lo prendono già in considerazione, quello che mi fa girà che vogliono testare il lavoro che hanno fatto
chiedendo ad altri di ripetere il procedimento per controllarne l'esattezza, senza dichiararlo prima.
Ghio non ce l'ho con te, perchè non ti conosco neppure, ma quando bisogna tirare fuori anche le parole di cosa
volete , fate sorgere al sottoscritto i dubbi, giusti o sbagliati che siano, ma è così.

prova a controllare questi di bari forse è questa la tabella che cerchi!

Codice:
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
----------
CA...9660..pos.1   Nr.25   Succ.24 / Neg.36   Rit.0 / Max.5
CA...9660..pos.2   Nr.06   Succ.35 / Neg.50   Rit.1 / Max.8
CA...9660..pos.3   Nr.05   Succ.30 / Neg.27   Rit.1 / Max.5
CA...9660..pos.4   Nr.01   Succ.31 / Neg.35   Rit.2 / Max.7
CA...9660..pos.5   Nr.16   Succ.34 / Neg.43   Rit.2 / Max.6
----------
FI...9660..pos.1   Nr.09   Succ.28 / Neg.29   Rit.0 / Max.6
FI...9660..pos.2   Nr.68   Succ.25 / Neg.29   Rit.0 / Max.5
FI...9660..pos.3   Nr.65   Succ.30 / Neg.36   Rit.1 / Max.5
FI...9660..pos.4   Nr.52   Succ.27 / Neg.25   Rit.1 / Max.3
FI...9660..pos.5   Nr.38   Succ.26 / Neg.30   Rit.0 / Max.13
----------
GE...9660..pos.1   Nr.50   Succ.39 / Neg.46   Rit.1 / Max.5
GE...9660..pos.2   Nr.37   Succ.28 / Neg.32   Rit.2 / Max.6
GE...9660..pos.3   Nr.55   Succ.25 / Neg.26   Rit.0 / Max.3
GE...9660..pos.4   Nr.22   Succ.30 / Neg.31   Rit.0 / Max.5
GE...9660..pos.5   Nr.76   Succ.28 / Neg.22   Rit.1 / Max.6
----------
MI...9660..pos.1   Nr.07   Succ.23 / Neg.31   Rit.5 / Max.6
MI...9660..pos.2   Nr.18   Succ.29 / Neg.43   Rit.5 / Max.5
MI...9660..pos.3   Nr.13   Succ.34 / Neg.31   Rit.0 / Max.5
MI...9660..pos.4   Nr.61   Succ.29 / Neg.35   Rit.0 / Max.9
MI...9660..pos.5   Nr.50   Succ.25 / Neg.29   Rit.2 / Max.6
----------
NA...9660..pos.1   Nr.84   Succ.17 / Neg.36   Rit.2 / Max.11
NA...9660..pos.2   Nr.23   Succ.34 / Neg.33   Rit.1 / Max.4
NA...9660..pos.3   Nr.01   Succ.29 / Neg.25   Rit.0 / Max.5
NA...9660..pos.4   Nr.49   Succ.27 / Neg.41   Rit.4 / Max.9
NA...9660..pos.5   Nr.87   Succ.35 / Neg.37   Rit.0 / Max.4
----------
PA...9660..pos.1   Nr.59   Succ.16 / Neg.32   Rit.1 / Max.7
PA...9660..pos.2   Nr.29   Succ.26 / Neg.32   Rit.4 / Max.5
PA...9660..pos.3   Nr.02   Succ.31 / Neg.42   Rit.0 / Max.8
PA...9660..pos.4   Nr.74   Succ.21 / Neg.44   Rit.0 / Max.8
PA...9660..pos.5   Nr.61   Succ.31 / Neg.39   Rit.2 / Max.5
----------
RO...9660..pos.1   Nr.26   Succ.23 / Neg.38   Rit.1 / Max.7
RO...9660..pos.2   Nr.83   Succ.29 / Neg.24   Rit.0 / Max.3
RO...9660..pos.3   Nr.37   Succ.22 / Neg.41   Rit.1 / Max.4
RO...9660..pos.4   Nr.60   Succ.21 / Neg.24   Rit.0 / Max.7
RO...9660..pos.5   Nr.13   Succ.27 / Neg.31   Rit.1 / Max.9
----------
TO...9660..pos.1   Nr.56   Succ.30 / Neg.33   Rit.0 / Max.7
TO...9660..pos.2   Nr.33   Succ.36 / Neg.32   Rit.2 / Max.4
TO...9660..pos.3   Nr.17   Succ.24 / Neg.34   Rit.1 / Max.10
TO...9660..pos.4   Nr.22   Succ.32 / Neg.29   Rit.5 / Max.5
TO...9660..pos.5   Nr.01   Succ.24 / Neg.29   Rit.1 / Max.4
----------
VE...9660..pos.1   Nr.85   Succ.37 / Neg.28   Rit.1 / Max.3
VE...9660..pos.2   Nr.44   Succ.26 / Neg.37   Rit.0 / Max.6
VE...9660..pos.3   Nr.33   Succ.25 / Neg.36   Rit.0 / Max.6
VE...9660..pos.4   Nr.14   Succ.27 / Neg.35   Rit.0 / Max.5
VE...9660..pos.5   Nr.36   Succ.20 / Neg.34   Rit.1 / Max.5
 
Ultima modifica di un moderatore:

ghio

Super Member >PLATINUM<
non buttiamo via niente rubino il tuo script è ottimo e ragionando a tuo modo va bene con il ritardo di ogni singolo estratt che andrai quando ai tempo ad esaminanrne come dicevi tu la provenienza
saremo a nozze
 

ghio

Super Member >PLATINUM<
1:2 1:3 1:4 1:5 2:3 2:4 2:5 3:4 3:5 4:5

Ruota BA Freq. 53 51 56 40 57 58 48 65 49 47
Ruota BA R.c. 5 0 0 134 29 75 18 6 37 19
Ruota BA Rmax 53 51 56 40 57 58 48 65 49 47
fa un po di confusione perché ti spiego questo relativo al 23/07/19
60-69 ambo non a ritardo 0 secondo mè
 

ghio

Super Member >PLATINUM<
per la prima tabella ottimo ma se avessimo una terza tabella con il ritardo massimo per estratto
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto