aiuto per script complicato

[ghio]

altra considerazione come da tabella,esempio 3 estratto di ba uscito 75 volte su 100
e il 2 di genova uscito 77 volte questi due dati quante volte si sono uniti in una ruota qualsiasi
si puo fare secondo te un incrocio simile

 

[solare]

Grazie GHIO RUBINO
un particolare grazie a RUBINO nel spiegare passo dopo passo ciò che fa il listato.

 

[Rubino]

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

non riesco a trovare l'idea giusta per elaborare questo concetto.
soprattutto il motivo è legato al tempo di elaborazione dello script.

ma vediamo cosa mi rispondete:

prendere le posizioni più frequenti di ripetizione, non vale certezza di raggiungere per forza degli ambi a colpo
molti ambi a colpo si verificano con posizioni anche frequenti ma non per forza le più frequenti di ripetizione
mi sto riferendo a quanto avevi scritto

esempio 3 estratto di ba uscito 75 volte su 100​

e il 2 di genova uscito 77 volte, quanti ambi hanno generato?

ho provato a mettere in campo un elaborazione che tenga conto dello sviluppo matematico di quanto segue​

con 50 numeri gli ambi da elaborare sono 1225, tutto va moltiplicato per 100 estrazioni, va bene veloce
con 50 numeri terzine da elaborare sono 19600, tutto va moltiplicato per 100 estrazioni, va bene
con 50 numeri le quartine da elaborare sono 230300, tutto va moltiplicato per 100 estrazioni, molto lungo

la mia domanda è questa:
ma quante combinazioni in posizione poi si vorrebbero esaminare? 10-30-100

in altre parole tra tutte queste, una volta elaborato i dati con lo script, posso sapere quali sono le migliori che hanno dato l'ambo o il terno,
proibitivo è quella della quaterna, per il tempo di elaborazione con uno script-

quante posizioni e quali hanno generato ambi/terni, si vorrebbe avere a disposizione per un rapido sviluppo poi
delle estrazioni future?

poichè per avere l'elenco delle migliori verrebbe lanciato uno script ogni tanto, magari una volta al mese o due mesi.

mentre ad ogni estrazioni si userebbe in modo rapido una certa quantità di posizioni fisse, che questo script appena citato, per estrarre i dati in modo veloce.

non so se mi sono spiegato abbastanza per farvi capire l'argomento, le ferie gravano ancora sulla mia lucidità.

 

[ghio]

rubino esatto limitandoci al terno mi sembra più che sufficiente,in quanto alle posizioni sembra da il mio punto di vista relativo,
per il nostro scopo, sembrera sufficiente la pos di partenza,ampliando il range di elaborazione da 100 a1000 o 2000 si avranno
dati intorno al 90% cioe si potra valutare di avere un ambo secco ogni due /tre estrazioni
esempio reale con i dati
esempio 3 estratto di ba uscito 75 volte su 100

e il 2 di genova uscito 77 volte
si anno 3 ambii in 100 estr.

 

[Rubino]

ho fatto questo tentativo di script, per ricerca di alcune condizioni a colpo dei 50 numeri di ogni estrazione

per elaborare per classe ambo il tempo di elaborazione è di 1 minuti circa sul mio computer
per elaborare per classe terno il tempo di elaborazione è di 17 minuti circa sul mio computer

ma ciò che mi serve come parere è

per i terni si ottiene una lista dove per i maggiori di una risultanza di uscita o ripetizione le posizioni sono le seguenti
faccio un esempio .
074446 significa le posizioni 07 44 46 hanno generato 3 terni secchi in 100 estrazioni e cos' via anche per le altre con 2
non ho postato quelle con valore 1 perchè abbastanza numerose


074446 3 041516 3 121744 3 364244 2 041823 2 172048 2 194047 2 233443 2 141823 2 142548 2 141819 2 070920 2 204248 2 202649 2 174348 2 132130 2 182339 2 061547 2 030918 2 040523 2 182528 2 021029 2 133945 2 304044 2 142537 2 173738 2 031734 2 183644 2 052234 2 134748 2 272841 2 101847 2 123044 2 153438 2 234347 2 032026 2 044749 2 052026 2 173044 2 182844 2 133543 2 131533 2 011648 2 020638 2 233848 2 072040 2 041237 2 293242 2 010412 2 010347 2 192338 2 394345 2


per gli ambi si ottiene una lista dove per i maggiori di una risultante di uscita o ripetizione le posizioni sono le seguenti

1244 8 0722 7 0912 7 1748 7 0407 7 0709 7 0720 7 1317 7 4248 7 1230 7 0315 7 0309 7 4748 7 0507 7 0104 6 1728 6 0447 6 1333 6 1345 6 0148 6 0437 6 1737 6 1418 6 0103 6 4243 6 4247 6 2247 6 0227 6 1823 6 3044 6 4345 6 3447 6 0523 6 0642 6 0744 6 0137 6 2528 6 0734 6 1547 6 0344 6 0622 6 0911 6 0349 6 1516 6 1237 5 0220 5 0112 5 1525 5 0116 5 0211 5 1217 5 2234 5 1531 5 1335 5 4045 5 4047 5 1349 5 1448 5 1326 5 1534 5 3042 5 0107 5 1321 5 3640 5 1318 5 0742 5 0743 5 0712 5 0724 5 0329 5 0328 5 0848 5 0334 5 0711 5 0534 5 0615 5 0526 5 0448 5 3147 5 2531 5 3241 5 0415 5 1119 5 1127 5 3438 5 3443 5 1144 5 2249 5 1136 5 0240 5 1047 5 0314 5 0924 5 0320 5 0319 5 2741 5 1032 5 0306 5 2348 5 1726 5 1734 5 1923 5 1548 5 2841 5 1938 5 2941 5 2843 5 1744 5 3946 5 3943 5 1746 5 3649 5 1844 5 2946 5

idem come sopra per le posizioni 1244 significa 12.44 posizione ha generato 8 ambi secchi


questo script, migliorandolo in alcune parti e lavorandoci sopra ci permette di trovare le posizioni
numeriche dei 50 estratti più soggette a ripetizione e che realizzano ambi o terni.

questo è un metodo di rilevazione.
ora proverò a fare ciò che ha richiesto ghio con il verifica esito aggiungere i dati mancanti
delle posizioni, dei ritardi a ruote e a tutte.

Option Explicit
Sub Main
   Dim aruote(10),uscite2(4950,2),uscite3(484950,2)
   Dim listapd,es,Inizio,I,RU,P,ES1,ES2,RU2,P2,ritardo,selx,sel,R,fine,Poru,Popo,g,ambi,terni
   Dim lunga,q,e,nu,ct,Classe,coltot,acol,num,sorte,Retestratti,retidestr,a,b,key,key2,key3,c
   fine = InputBox("Situazione all'estrazione ",,EstrazioneFin)
   es = CInt(InputBox("Quante estrazioni vuoi controllare ?",,100))
   Classe = InputBox("Sviluppa Lunga in classe",,2)
   sorte = InputBox("Sorte 2,3",,2)
   Inizio = fine + 1 - es
   Scrivi " P.ghio.04      PERIODO Estrazioni Esaminate " & Inizio & "  :  " & fine,1
   For R = 1 To 10
      aruote(R) = R
   Next
   '''ciclo
   For es = Inizio To fine
      ct = ct + 1
      num = 0 : I = 0
      Messaggio(es)
      ReDim nuMERI(50),anum(50)
      For RU = 1 To 10
         For P = 1 To 5
            nu = Estratto(es,RU,P)
            num = num + 1
            nuMERI(num) = Format2(nu)
            anum(num) = num
         Next
      Next
      lunga = "": q = 0
      For e = 1 To 50
         If nuMERI(e) > 0 Then
            q = q + 1
            lunga = lunga & Format2(nuMERI(e)) & "."
         End If
      Next
      ColoreTesto(0)
      Scrivi es & "  qt." & q & "   " & lunga,1
      ReDim acol2(Classe)
      coltot = InitSviluppoIntegrale(anum,Classe)
      If coltot > 0 Then
         Do While GetCombSviluppo(acol) = True
            For g = 1 To Classe
               acol2(g) = nuMERI(acol(g))
            Next
            I = I + 1
            Messaggio(es & " / " & I)
            Call VerificaEsitoTurbo(acol2,aruote,es + 1,sorte,1,,,,Retestratti,retidestr)
            If Retestratti <> "" Then
               If Classe = 2 Then
                  key = Format2(acol(1)) & Format2(acol(2))
                  uscite2(key,1) = uscite2(key,1) + 1
                  uscite2(key,2) = key
               End If
               '''
               If Classe = 3 Then
                  key = Format2(acol(1)) & Format2(acol(2)) & Format2(acol(3))
                  uscite3(key,1) = uscite3(key,1) + 1
                  uscite3(key,2) = key
               End If
               ColoreTesto(1)
               Scrivi retidestr & " Pos." & StringaNumeri(acol,".") & "  Nr. " & StringaNumeri(acol2," ") & "  colpo n. " & retidestr - es & "   " & Retestratti
               ColoreTesto(0)
            End If
         Loop
      End If
   Next
   Scrivi "Esaminate n.estr." & ct,1
   If Classe = 2 Then Call OrdinaMatrice(uscite2,- 1,1)
   If Classe = 3 Then Call OrdinaMatrice(uscite3,- 1,1)
   If Classe = 2 Then
      For a = 1 To 4950
         If uscite2(a,1) > 0 Then
            Scrivi uscite2(a,2) & "    " & uscite2(a,1)
            ambi = ambi + 1
         End If
      Next
   End If
   ''''
   If Classe = 3 Then
      For a = 1 To 484950
         If uscite3(a,1) > 0 Then
            Scrivi uscite3(a,2) & "    " & uscite3(a,1)
         terni = terni + 1
         End If
      Next
   End If
   Scrivi "Totale ambi  " & ambi,1
   Scrivi "Totale Terni " & terni,1
   Scrivi "Richiesta classe sviluppo " & Classe,1
   Scrivi "Richiesta per la sorte    " & sorte,1
   Scrivi TempoTrascorso,1
End Sub

 

[i legend]

non riesco a trovare l'idea giusta per elaborare questo concetto.
soprattutto il motivo è legato al tempo di elaborazione dello script.

ma vediamo cosa mi rispondete:

prendere le posizioni più frequenti di ripetizione, non vale certezza di raggiungere per forza degli ambi a colpo
molti ambi a colpo si verificano con posizioni anche frequenti ma non per forza le più frequenti di ripetizione
mi sto riferendo a quanto avevi scritto

esempio 3 estratto di ba uscito 75 volte su 100​

e il 2 di genova uscito 77 volte, quanti ambi hanno generato?

ho provato a mettere in campo un elaborazione che tenga conto dello sviluppo matematico di quanto segue​

con 50 numeri gli ambi da elaborare sono 1225, tutto va moltiplicato per 100 estrazioni, va bene veloce
con 50 numeri terzine da elaborare sono 19600, tutto va moltiplicato per 100 estrazioni, va bene
con 50 numeri le quartine da elaborare sono 230300, tutto va moltiplicato per 100 estrazioni, molto lungo

la mia domanda è questa:
ma quante combinazioni in posizione poi si vorrebbero esaminare? 10-30-100

in altre parole tra tutte queste, una volta elaborato i dati con lo script, posso sapere quali sono le migliori che hanno dato l'ambo o il terno,
proibitivo è quella della quaterna, per il tempo di elaborazione con uno script-

quante posizioni e quali hanno generato ambi/terni, si vorrebbe avere a disposizione per un rapido sviluppo poi
delle estrazioni future?

poichè per avere l'elenco delle migliori verrebbe lanciato uno script ogni tanto, magari una volta al mese o due mesi.

mentre ad ogni estrazioni si userebbe in modo rapido una certa quantità di posizioni fisse, che questo script appena citato, per estrarre i dati in modo veloce.

non so se mi sono spiegato abbastanza per farvi capire l'argomento, le ferie gravano ancora sulla mia lucidità.

Ciao rubino a me , ma forse ho il database errato il 3 di Bari risulta ripetuto a colpo 55 volte.
ciao

 

[Rubino]

per sapere se c e qualche errore, serve avere il range da … a..... del periodo di estrazione

che range hai usato?

 

[i legend]

Fin = 9670
ini= fin -99
tu hai utilizzato un altro range?

 

[i legend]

Ciao ,credo di aver capito. Ho contato le estrazioni in cui si è ripetuto non ho tenuto conto delle sortite multiple.
Grazie

 

[Rubino]

il range da me usato è 9570 : 9670

ma lo script conta per il 3 di bari
nell'estrazione successiva quante volte è uscito nelle 50 posizioni
per questo si ottiene 75, mentre 50 e normalmente la frequenza pulita da tutte le uscite plurime nelle singole estrazioni

vedi piccolo script di controllo
''''''''''''

Option Explicit
Sub Main
   Dim Ini,fine,ct,retestratti,retidestr,nu,j,ru2,p2,es2,es1,i,ct2
   Dim an(1),ar(10),dati(10,5)
   Ini = 9570
   fine = 9669
   For j = 1 To 10
      ar(j) = j
   Next
   For Ini = Ini + 1 To 9669
      nu = Estratto(Ini,1,3)
      an(1) = nu
      Call VerificaEsitoTurbo(an,ar,Ini + 1,1,1,,,,retestratti,retidestr)
      If retestratti <> "" Then
         ct = ct + 1
      End If
   Next
   '''
   Scrivi "3° di bari si è ripetuto a tutte le ruote n.volte    " & ct,1
   '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   Ini = 9570
   For Ini = Ini + 1 To 9669
      '' 3 di bari
      es1 = Estratto(Ini,1,3)
      '''
      i = Ini
      For ru2 = 1 To 10
         For p2 = 1 To 5
            es2 = Estratto(i + 1,ru2,p2)

            If es1 = es2 Then
               '''calcola frequenza
               ct2 = ct2 + 1
                          Scrivi Ini & " / " & Ini+1  & "      " & es1 & " - " & es2
            End If
         Next
      Next
   Next
   ''''
   Scrivi "3° di bari si è ripetuto su tutte le ruote n.volte    " & ct2,1
End Sub

 

[ghio]

12.44 significa 2 di fi e4 di toesatto???

 

[ghio]

e fino qui penso di aver capito
quindi se si andasse a prendere
1244 8
4748 7
0309 7
1748 7
4248 7
0709 7
0407 7
0315 7
0507 7
0912 7
1317 7
0148 6
questo avremmo 84% di copertura degli ambi giusto?
il dove sara da definire giusto?

 

[Rubino]

Si esatto

 

[ghio]

perfetto sto ragionando???

 

[ghio]

Classe = InputBox("Sviluppa Lunga in classe",,2)
se io do una classe 9 mi andrebbe a prendere quelle nove posizioni che insieme avrebbero dato più risultati o sbaglio=??? ​

 

[Rubino]

Il ragionamento e' così
ma lo script fatto così non funzionerebbe va in errore
dovrei modificarlo all interno, perche le arrays per accumulo successi
Così fatte, un Po alla buona per ambo e terno, non vanno bene per altre classi.
.

 

[Rubino]

questa è la modifica dell'altro script, che fa il verifica esito e riporta la provenienza della ruota e della posizione e rintraccia il ritardo a Tutte e a Ruota dei singoli estratti usciti.

chiedo un parere se così può andare bene, l'output, se si capisce o è un po dispersivo.
è chiaro che bisogna entrare in merito a cosa si sta facendo, si sta cercando di rintracciare La PROVENIENZA delle ripetizioni dei 50 numeri di ogni estrazione, nei colpi immediatamente successivi all'estrazione di riferimento.

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

 

[Rubino]

Non so se è meglio optare per questo listato o se invece può tornare utile avere uno specchietto dei 50 numeri con la provenienza sotto
delle 10 ruote , i ritardi tutte e a ruota per estratto.

cosa ne dite?

 

[ghio]

rubino il rit è espresso sempre in0

 

[ghio]

forse meglio con specchietto questo non sooo