aiuto per script complicato

ghio · 5 Agosto 2019

proverei 50-10 capogioco
11-15-19-40-54-59-58-70-85-87-89
ambo e terno a bari
proviamo per un colpo
quando tornera rubino con un paio di aggiustature faro spero dii meglio

solare · 5 Agosto 2019

Grazie

boris · 6 Agosto 2019

Grazie Ghio !!

ghio · 7 Agosto 2019

amici c e qualcosa che non va nelle elaborazioni
ieri ed oggi o fatto diverse prove ed se usiamo l ultimo script fatto da rubino
facendogli fare elaborazione con data aggiornata ed una elaborazione con un estrazione in meno si puo
notare esempio nella tabella 1
E1 E2 E3 E4 E5
56 58 76 60 57

bari al 6 agosto presenze

E1 E2 E3 E4 E5
56 57 77 59 57

bari al 3 agosto presenze

facendo un raffronto mi dice che il 2 ed 3 ed 4 estratt sono differrenti
quando
in realta 1.4,5 si sono ripetuti booo

ghio · 7 Agosto 2019

R1 R2 R3 R4 R5
1 3 1 0 1
R1 R2 R3 R4 R5
4 1 1 4 0

idem
il primo estratto di bari se andiamo ad esaminarlo il 3 agosto a ritroso era l estratto 12 ed era 2 estrzioni che non usciva su tutte in avanti non sarebbe possibile un rit 4 come indicato
poi il 6 agosto come da tabella r1 diventa 1
ce un po di confusione
attendero rubino per delucidazioni in merito
non è possibile fare previsioni

Rubino · 8 Agosto 2019

Ciao ghio
Qui in vacanza non posso controllare niente
ci penserò quando vengo a casa

Nel frattempo ti suggerisco quanto segue
questo tipo di valutazioni dinamiche che tu vuoi esaminare le trovi quasi esclusivamente
su lottogam con il software che utenti come cinzia, vedi tuo precedente script
jp4 e mat ed altri sono sicuramente piu addentrati di me in questa pseudo analisi statistica
E che tu sicuramente conosci.

ti suggerisco se vuoi dati certi e credo ormai controllati da qualche anno puoi averli da loro, così come un software specifico
per questi argomenti.

guardando le estrazioni di lottoced
il 12 a bari e' uscito il 30 luglio e poi il 3 agosto

Oggi 6 agosto in prima pos. Transita il nr.21 che non ha ritardo 4
ma non potendo controllare non so che dirti di più.
ci sarà un errore

Rubino · 8 Agosto 2019

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

guarda dentro in queste righe dello script All inizio c e eventualmente l errore in particolare queste 2 righe ritardo = EstrattoRitardoTurbo(11,ES1,Inizio,EstrazioneFin - 2) dati3(RU,P) = ritardo

se c e u anima buona, che puo controllare?

Problemi di tablet e del forum per impaginare la scrittura

mi spiace ciao

ghio · 8 Agosto 2019

ma ti aspetto con ansia

ghio · 14 Agosto 2019

siamo fermi quando torna rubino ''''''

Rubino · 18 Agosto 2019

buongiorno

ora il problemino è trovare la concentrazione e verificare quello che non va e che è stato fatto nel mese scorso.

ripartiamo dall'originale fatto da un certo jesy
di cui ghio si riferisce.

elaborando quello script si ottengono questi dati iniziali

se potete verificare lanciando i due tre script che avete, e postate le differenze che riscontrate
dall'elaborazione, vediamo di capire cosa non va.

io ottengono questo :
Jesy

io ottengo questo dal mio ultimo script

infatti corrispondono perfettamente, perchè non ho mai toccato il modo di elaborazione di questi
dati dello script iniziale.

confermate o disattendete,

ciao.

ghio · 18 Agosto 2019

ora l ansia è finita sei rientrato dalle ferie tutto bene spero

Serpico 90 · 18 Agosto 2019

Ben tornato Rubino anche da parte mia........
saluti
serpico

Rubino · 18 Agosto 2019

si ciao a tutti

tutto bene, sono finite per il momento, poi qualcosa sarà il mese prossimo.

ghio · 18 Agosto 2019

rubino fin li tutto bene , ma se provi con un estrazione in meno e si guarda la griglia ce qualcosa che non va
ad esempio a bari il 3 ed il 5 estratto anno il ritardo 0 all estrazione del 17 /8
ed se con un estrazione in meno elaboro cambia il valore solo del primo estratto
ed il valori di r1 r2 r3 boo ad esempio r3 passa da un valore di 6 a 10 ecc ecc

Rubino · 18 Agosto 2019

come si vede ho aggiunto il n.di estrazione per capirci

per le uscite si ha già la situazione aggiornata cioè è già stata sommata 1 al nr.uscite
mentre per i ritardi devono essere calcolati all'estrazione precedente, altrimenti otterremmo zero come ritardo a tutte per tutti i 50 estratti
delle 10 ruote.
spaziometria fa in questo modo.

quindi calcolando all'estrazione precedente, abbiamo il ritardo del numero che aveva prima della sua caduta.

quindi otteniamo questo prospettino

quindi per intenderci, il 22 di bari appena uscita alla 9670 in prima posizione aveva ritardo 3 a tutte
così come 87 a Milano uscito in seconda posizione aveva ritardo 6 a tutte

ora però hanno ritardo zero per la prossima perchè sono appena usciti.
okey?

questo mi da spaziometria, come risultato.

confermate o disattendete.

ghio · 18 Agosto 2019

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.9670 / 17.08.2019

Tabella 1
La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva.
Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle
estrazioni successive.
Esempio: R1 = 4 indica che il primo estratto di Bari è in ritardo da 4 estrazioni su Tutte

Tabella 1 Resoconto Complessivo

E1 E2 E3 E4 E5
58 58 75 57 57
relativo bari

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.9669 / 16.08.2019

Tabella 1
La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva.
Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle
estrazioni successive.
Esempio: R1 = 4 indica che il primo estratto di Bari è in ritardo da 4 estrazioni su Tutte

Tabella 1 Resoconto Complessivo

E1 E2 E3 E4 E5
58 57 75 58 57

queste due diff a mio parere non sono esatte
il 3 ed il 5 sono due numeri dell estrazione precedente
il 10 ed il 60 provengono rispettivamente dal 3 estratto di venezia ed genova
confermate o dissattendete

quindi secondo me il numero complessivo delle uscite dovrebbe variare nella prima tabella relativa
ad l ultima estrazione in 76 per il terzo 58 per il quinto

ghio · 18 Agosto 2019

Numeri usciti nell estrazione 9669 / 16.08.2019 attesa per Ripetizione su varie ruote
Nr.3-5-6-10-12-13-14-16-20-31-32-35-37-39-40-44-45-52-54-56-58-60-61-62-65-66-69-70-72-73-75-77-78-79-80-81-83-84 Tot.nr 38

Riepilogo Ritardo su Ruota per la sorte 2 dall estraz.successiva 9669 / 16.08.2019
BA ..Rc./ Rx.00 / 06 9670 colpo 1 BA .. .. 10 .. 60 Ambo
CA ..Rc./ Rx.00 / 05 9670 colpo 1 CA .. 69 03 .. .. Ambo
FI ..Rc./ Rx.00 / 07 9670 colpo 1 FI 84 .. .. .. 83 Ambo
GE ..Rc./ Rx.00 / 06 9670 colpo 1 GE 39 .. .. 60 .. Ambo
MI ..Rc./ Rx.00 / 08 9670 colpo 1 MI 73 .. 35 .. .. Ambo
NA ..Rc./ Rx.00 / 07 9670 colpo 1 NA .. 14 .. .. 54 Ambo
PA ..Rc./ Rx.00 / 09 9669 colpo 0 Neg.InCorso <<
RO ..Rc./ Rx.00 / 05 9669 colpo 0 Neg.InCorso <<
TO ..Rc./ Rx.00 / 09 9669 colpo 0 Neg.InCorso <<
VE ..Rc./ Rx.00 / 08 9670 colpo 1 VE .. .. 61 31 20 Terno
partendo da qui si puo ragionare
esempio il 61 il 31 il 20 a venezia da dove provengono con che ritardo su ruota e su tutte

Rubino · 18 Agosto 2019

Tabella 1 Resoconto Complessivo all'Estr.n.9668
E1 E2 E3 E4 E5
58 57 75 58 57
Tabella 1 Resoconto Complessivo all'Estr.n.9669
E1 E2 E3 E4 E5
59 59 75 58 57
Tabella 1 Resoconto Complessivo all'Estr.n.9670
E1 E2 E3 E4 E5
58 58 75 57 57

vediamo di capire e trovare la spiegazione del perchè i dati usciti cambiano:
come fanno a diminuire le uscite delle posizioni 1 2 4?
da 58/59/58
da 57/59/58
da 58/58/57

c'è solo una spiegazione ed è questa:

il periodo è di tipo dinamico/continuo di 100 estrazioni

bisogna tenere conto non solo delle nuove uscite, cioè le ultime derivante dall'ultima estrazione, ma purtroppo bisogna tenere in conto anche di quelle che escono dal range iniziale.
cioè esce e non viene considerata tutta la 1 estrazione con i 50 numeri che ne facevano parte
perchè ne entra una nuova l'ultima con i nuovi 50 numeri

così se ci sono estratti di una cinquina iniziale che si erano ripetuti a colpo ed hanno formato
delle uscite in ripetizione e sono andate ad incrementare il contatore, se la cinquina esce dal periodo il contatore perderà questi valori, poichè li ricalcola ad ogni nuova estrazione a lui
risulteranno sconosciuti e ne calcolerà di meno. (il range di periodo si sposta di 1 estrazione a dx)

questa è la motivazione del perchè di questo apparente errore.

esempio reale: range 9569 i numeri in queste 3 posizioni erano 15 10 86
tutte e tre ripetuti a colpo su 10 ruote
se tolgo l'estrazione 9569 queste posizioni diminuiscono di 1 uscita
il range si sposta dalla 9570 i numeri in queste 3 posizioni erano 45 09 60
nessuno di questi tre numeri si era ripetuto a colpo sulle 10 ruote
quindi il numero delle uscite varia secondo del range dinamico che lo script utilizza e prende
in considerazione.

in verità chi ha fatto lo script l'aveva pensato come percentuale positiva, un percento,
perchè vedendo che 58 volte il numero dinamico che staziona in una determinata posizione si ripeteva a colpo, poteva fare una scelta a favore del giocatore contro il banco.
si perchè avendo più del 50% di probabilità di remunerazione positiva, si poteva effettuare
questa scelta con un senso logico e non tanto casuale o dipendente da ritardi o congetture
pseudostatistico.

a ghio chiedo se vuole la modifica su quell'altro script, perchè non c'è relazione
tra questo trattato sopra, con quest'altro nato per verificare le lunghette 50 numeri
per una ripetizione a colpo

Rubino · 18 Agosto 2019

nel frattempo per essere sempre fasati con gli script

ho apportato delle modifiche nelle descrizioni, per capire forse meglio di cosa riportano le tabelle in output
ho messo la possibilità di specificare la inputbox con n.estrazione finale del periodo che si vuole esaminare
ho messo la possibilità di specificare con input box una ruota a richiesta per parzializzare tutti i dati relativi agli estratti determinati
quindi si formano automaticamente due riepiloghi piccoli che riportano i dati della sola ruota richiesta dal'utente

ha molti dati riportati più volte, ma poi se si vorrà li sfoltiamo con quelli che saranno più necessari.
intanto il mio motto è: i dati ci sono, se ti servono li guardi, se non ti servono vai oltre.

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,fine,RUODET
   fine = InputBox("Situazione all'estrazione ",,EstrazioneFin)
   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")
   RUODET = InputBox("Ruota di gioco per Estratti Determinati ",,1)
   Inizio = fine + 1 - es
   If selx = "S" Then sel = "GR" Else sel = " " End If
   For R = 1 To 10
      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 " D-Ghio-03 ",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." & fine & " / " & DataEstrazione(fine)
   Scrivi "P e r i o d o   C o n s i d e r a t o :   " & Inizio & "/" & DataEstrazione(Inizio) & " : " & fine & "/" & DataEstrazione(fine),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 fine
      AvanzamentoElab Inizio,fine,I
      Messaggio "Stò elaborando l'estrazione del " & DataEstrazione(I)
      If I > fine 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,fine - 1)
            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  all'Estr.n." & fine,1
   Scrivi:Scrivi "       E1   E2   E3   E4   E5 "
   ColoreTesto 2
   ScriviMatrice dati,,4
   Scrivi: ColoreTesto(1)
   Scrivi "       R1   R2   R3   R4   R5   Ritardo a Tutte     all'Estr.n." & fine - 1,1
   ColoreTesto(2)
   ScriviMatrice dati3,,4
   Scrivi String(90,Chr(11)): ColoreTesto 1
   Scrivi "Tabella 2   -   Distribuzione dei valori di E1..E5 nelle 10 ruote ",1
   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,fine)
   ''''''''''routine per i ritardi di numeri dinamici di posizione determinata a colpo
   Call ritardidinamicidiposizionedeterminata(sel,fine,RUODET)
   '''''''''''''storia ritardi posizioni determinate
   Call CalcoloPosizioniDeterminate(listapd,fine,RUODET)
   '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   '''''''''''''
   Scrivi: Scrivi "Tempo di Elaborazione : " & TempoTrascorso,1
   Scrivi "Tutti i dati sono stati rilevati dalla 3950 all'ultima estrazione in archivio per gli storici, mentre per le rimanenti tabelle",1
   Scrivi "Il periodo preso in considerazione sono le ultime 100 estrazioni in modo dinamico-continuo",1
End Sub
Function situazioneambi(inizio,ar,sel,fine)
   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." & fine & " / " & DataEstrazione(fine),1,,2,5
   Scrivi
   Scrivi " Tabella 3  -   Situazione i 10 Ambi di Ogni ruota    :   Periodo dalla " & fine + 1 - 100 & " : " & fine,1
   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
   Scrivi "Nb: i valori sono calcolati sull'Esito a colpo dell'ambo a TUTTE ",1:Scrivi
   Scrivi "Vengono segnalate le posizioni dell'ambo con il valore R.Rip. 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 o ritardo minimo può raggiungere 3-4 concorsi.  ",1
   Scrivi "Cioè per 3-4 concorsi possono anche non ripetersi ambi dei 100 di una quasiasi 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(12," ") & FormatSpace("Posiz      1       2       3       4       5       6       7       8       9      10",1)
   Scrivi String(19," ") & 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 fine
      AvanzamentoElab inizio,fine,ii
      If ii = fine 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 ''' Uscite quantita
                  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(fine,rt,Tabsvi(x,1)) & "." & Estratto(fine,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) & "   Uscite    " & rigafreq
      Scrivi " Ruota " & SiglaRuota(rt) & "   R.Rip.    " & rigarita,1,,,14
      Scrivi " Ruota " & SiglaRuota(rt) & "   R.Rip.max " & 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.Rip.>= R.Rip.max 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(fine,rt,Tabsvi(x,1)) & "." & Estratto(fine,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.Rip. " & grad1(ccc,1) & "   " & grad1(ccc,2),1
      Next
   End If
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function ritardidinamicidiposizionedeterminata(SEL,fine,ruodet)
   '''' 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 = fine
   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.clp./  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.clp. **",1,,2,5
   Scrivi "I nr.molto probabili per la ripetizione a colpo sono quelli da R.clp.più alto fino a R.clp. = 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.clp./  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

   ColoreTesto(0)
   Scrivi:Scrivi:Scrivi "** Riepilogo Prospetto Solo per la Ruota Richiesta per Estratti Determinati **",1,,2,5
   Scrivi "I nr.molto probabili per la ripetizione a colpo sono quelli da R.clp.più alto fino a R.clp. = 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.clp./  R.Max   " & FormatSpace("  ba  ca  fi  ge  mi  na  pa  ro  To  ve  ",8),1
   ColoreTesto(01)
   '''''filtra solo ruota scelta per estratti determinati
   For az = 1 To 50
   If SiglaRuota(ruodet) = Mid(grad2(az,2),10,2) Then
      Scrivi grad2(az,2)
   End If
   Next
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function CalcoloPosizioniDeterminate(listapd,fine,ruodet)
   ''''calcola ritardi 10ruotex50posizioni
   Dim pdIni,pdfin,pdr,pdnr,pdc,pdru,pdp,pdpos,pdretrit,pdretfre,pdritardo,pdrr,pdpp,kk
   pdfin = fine
   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 fine
            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 > fine 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." & fine,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(fine,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(fine,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." & fine,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 "PREVISIONI: Lunghetta Dinamica x Estratto determinato Valide solo per 1 Colpo di gioco : Estr.n." & fine,1,,2,5
   Scrivi "Valida solo per la Ruota Richiesta in InputBox  per gli Estratti Determinati " & NomeRuota(ruodet),1,,1,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
   If Left(Previsione(aaa,4),2) = Left(NomeRuota(ruodet),2) Then
      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)
      End If
   Next
   ColoreTesto(0)
   Scrivi String(161,"-")
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   Scrivi:Scrivi "Presenze combinazione nei gruppi per la sola Ruota Richiesta",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
'''''

ghio · 18 Agosto 2019

ed aggiungere un più uno estrazione in automatico ad ogni estrazione indipentemente dal range secondo il tuo punto di vista puo essere utile??
per quanto riguarda il primo script pensavo solo ad una integrazione con l ultimo.

Numeri usciti nell estrazione 9669 / 16.08.2019 attesa per Ripetizione su varie ruote
Nr.3-5-6-10-12-13-14-16-20-31-32-35-37-39-40-44-45-52-54-56-58-60-61-62-65-66-69-70-72-73-75-77-78-79-80-81-83-84 Tot.nr 38

Riepilogo Ritardo su Ruota per la sorte 2 dall estraz.successiva 9669 / 16.08.2019
BA ..Rc./ Rx.00 / 06 9670 colpo 1 BA .. .. 10 .. 60 Ambo
CA ..Rc./ Rx.00 / 05 9670 colpo 1 CA .. 69 03 .. .. Ambo
FI ..Rc./ Rx.00 / 07 9670 colpo 1 FI 84 .. .. .. 83 Ambo
GE ..Rc./ Rx.00 / 06 9670 colpo 1 GE 39 .. .. 60 .. Ambo
MI ..Rc./ Rx.00 / 08 9670 colpo 1 MI 73 .. 35 .. .. Ambo
NA ..Rc./ Rx.00 / 07 9670 colpo 1 NA .. 14 .. .. 54 Ambo
PA ..Rc./ Rx.00 / 09 9669 colpo 0 Neg.InCorso <<
RO ..Rc./ Rx.00 / 05 9669 colpo 0 Neg.InCorso <<
TO ..Rc./ Rx.00 / 09 9669 colpo 0 Neg.InCorso <<
VE ..Rc./ Rx.00 / 08 9670 colpo 1 VE .. .. 61 31 20 Terno
oppure verificare di questi il rit ad ogni ruota anche per posizione

aiuto per script complicato

Super Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member

Super Member >PLATINUM<

Super Member >PLATINUM<

Rubino

Guest

Rubino

Guest

Super Member >PLATINUM<

Super Member >PLATINUM<

Rubino

Guest

Super Member >PLATINUM<

Advanced Member >GOLD<

Rubino

Guest

Super Member >PLATINUM<

Rubino

Guest

Super Member >PLATINUM<

Super Member >PLATINUM<

Rubino

Guest

Rubino

Guest

Super Member >PLATINUM<