aiuto per script complicato

solare · 19 Luglio 2019

Un grazie è doveroso a Ghio e Rubino
Adesso non resta che capire bene il funzionamento dello stesso

ghio · 19 Luglio 2019

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

ghio · 19 Luglio 2019

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

Rubino · 20 Luglio 2019

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.

solare · 20 Luglio 2019

Per Ghio, potresti fare un esempio di previsione ?
Grazie

ghio · 22 Luglio 2019

STUDIO E POI PROVO

ghio · 22 Luglio 2019

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

solare · 22 Luglio 2019

Grazie della tua immagine postata.

boris · 23 Luglio 2019

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 · 23 Luglio 2019

RUBINO SARA IN FERIE MA CE QUALCOSA CHE NON QUADRA

ghio · 23 Luglio 2019

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

Bari 4 1 1 3 8
Cagliari 0 1 0 0 0
Firenze 0 3 0 0 0
Genova 0 4 2 3 0
Milano 3 0 4 3 8
Napoli 1 1 1 0 5
Palermo 2 0 3 0 3
Roma 1 1 1 4 0
Torino 1 0 2 0 4
Venezia 1 2 5 0 4
Nazionale - - - - -

Rubino · 25 Luglio 2019

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

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

spiega.

ciao e buona serata.

ghio · 25 Luglio 2019

SOLO PERCHE SI RAGIONA A ROVESCIO

ghio · 25 Luglio 2019

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 · 25 Luglio 2019

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

Rubino · 26 Luglio 2019

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.

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

Rubino · 26 Luglio 2019

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

ghio · 26 Luglio 2019

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 · 26 Luglio 2019

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 · 26 Luglio 2019

per la prima tabella ottimo ma se avessimo una terza tabella con il ritardo massimo per estratto

aiuto per script complicato

Advanced Member >PLATINUM<

Super Member >PLATINUM<

Super Member >PLATINUM<

Rubino

Guest

Allegati

Advanced Member >PLATINUM<

Super Member >PLATINUM<

Super Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member

Super Member >PLATINUM<

Super Member >PLATINUM<

Rubino

Guest

Super Member >PLATINUM<

Super Member >PLATINUM<

Super Member >PLATINUM<

Rubino

Guest

Rubino

Guest

Super Member >PLATINUM<

Super Member >PLATINUM<

Super Member >PLATINUM<