aiuto per script complicato

Rubino · 15 Luglio 2019

guardando la lista degli ambi si trova al ritardo (3), sulla ruota di Palermo questa quartina 07 08 68 72

anche se questa quartina ha sfaldato la quaterna a napoli un paio di concorsi fa, ma un ambo
può ricadere a Palermo.

ghio · 15 Luglio 2019

RUBINO LE GIF NON LE VEDO,MA IN QUELLO DI CINZIA NON FA NIENTALTRO CHE QUANDO TROVA I NUMERI DALL AMBO IN SU
NE CALCOLA COME DA ME ESPRESSO IL RITARDO
13.07.2019 9654 Ve 87 22 usciti 2 al 1° colpo Ritardo attuale 0
11.07.2019 9653 Ve 08 60 usciti 2 al 1° colpo
09.07.2019 9652 Ve 43 16 88 usciti 3 al 1° colpo
06.07.2019 9651 Ve 61 03 18 usciti 3 al 1° colpo
04.07.2019 9650 Ve 08 22 02 usciti 3 al 1° colpo
02.07.2019 9649 Ve 59 22 usciti 2 al 1° colpo
29.06.2019 9648 Ve 02 66 34 39 23 usciti 5 al 1° colpo
27.06.2019 9647 Ve 80 81 23 40 usciti 4 al 1° colpo
25.06.2019 9646 Ve 73
22.06.2019 9645 Ve 06 46 usciti 2 al 2° colpo
IL 22/6/2019 6-46 ERA 2 VOLTE CHE NON USCIVA
CIOE NON DAVA DALL ESTRAZIOE PRECEDENTE ALMENO 2 NUMERI

ghio · 15 Luglio 2019

STAI FACENDO UN GRANDE LAVORO TI RINGRAZIO

ghio · 15 Luglio 2019

PENSA AD UNA CINQUINA A COLPO…..

ghio · 15 Luglio 2019

NON ESISTE UN RIT TRE… PROVA A SPIEGARMI IL TUO CONCETTO DI RITARDO

Rubino · 15 Luglio 2019

1) ad ogni concorso calcolo i numeri usciti a Tutte, questi hanno ritardo a zero
-- generalmente sono da 33 numeri a 45 numeri (senza ripetuti)

2) con questa lunghetta faccio il verifica esito per vedere a colpo sulle singole ruote cosa è uscito
-- se è uscito minimo l'ambo ritengo sfaldata la previsione a colpo
-- se non e' uscito l'ambo, ma solo un estratto o nessun numero, inizio a contare i colpi di ritardo della lunghetta per la sorte (2) su quella ruota

3) a questo punto ho trovato il ritardo di ruota e della lunghetta su quella ruota a produrre i risultati,
li ho identificati """ Neg.In corso""""

4) per il momento per capire quale ruota può essere interessata a eventuali sortite di ambo/terno/quaterna/cinquina
è quello In corso - Negativa da n.colpi
le altre sfaldate non ci interessano più.

anche se c'è qualche imperfezione attualmente, i concetti sono questi, per capire i numeri in ripetizione e capire la ruota che
aspetta qualche uscita.

5) a questo punto bisogna legare o gli estratti da posizioni più frequenti del tuo script iniziale, oppure dai tanti ambi che abbiamo
aggiunto, o da qualche altra idea.

Codice:

numeri per ripetizione per ambo/terno/quaterna/cinquina
[B][COLOR=#FF0000]1-5-6-7-8-13-16-19-20-23-27-28-29
31-35-39-43-46-48-49-50-53-56-60
61-62-63-66-67-68-71-72-73-74-76
79-80-82-88-9[/COLOR][/B][COLOR=#FF0000]0[/COLOR]  

[U][SIZE=14px][B][COLOR=#000000]il ritardo di colpo è sinonimo di ritardo di ruota.[/COLOR][/B][/SIZE][/U]

[FONT=courier new]Riepilogo Ritardo su Ruota per la sorte 2 dall estraz.successiva  9653 / 09.07.2019
BA  ..Rc./ Rx.00 / 05     9654 colpo 1     BA 56 67 .. .. ..  Ambo
[COLOR=#0000CD]CA  ..Rc./ Rx.00 / 08     9655 colpo 2          Neg.InCorso   <<[/COLOR]
FI  ..Rc./ Rx.00 / 05     9654 colpo 1     FI .. 13 .. 08 ..  Ambo
GE  ..Rc./ Rx.01 / 06     9654 colpo 1     GE .. 72 66 68 ..  Terno
MI  ..Rc./ Rx.00 / 06     9654 colpo 1     MI 67 .. 62 .. ..  Ambo
NA  ..Rc./ Rx.00 / 05     9654 colpo 1     NA 08 68 .. 72 07  Quaterna
[COLOR=#0000CD]PA  ..Rc./ Rx.00 / 06     9655 colpo 2          Neg.InCorso   <<[/COLOR]
RO  ..Rc./ Rx.00 / 06     9655 colpo 2     RO .. 29 50 .. ..  Ambo
[COLOR=#0000CD]TO  ..Rc./ Rx.00 / 04     9655 colpo 2          Neg.InCorso   <<[/COLOR]
VE  ..Rc./ Rx.00 / 05     9654 colpo 1     VE .. .. 08 .. 60  Ambo
******************************************************************************************[/FONT]

Rubino · 15 Luglio 2019

il ritardo attuale piu alto è due non tre su CA-PA-TO

questi numeri sfalderanno su queste tre ruote in pochi colpi.

numeri per ripetizione per ambo/terno/quaterna/cinquina

1-5-6-7-8-13-16-19-20-23-27-28-29
31-35-39-43-46-48-49-50-53-56-60
61-62-63-66-67-68-71-72-73-74-76
79-80-82-88-90

TEST e verifica per i prossimi concorsi (2-3) su CA principale, ma alcune cinquine sono distribuite
anche su PA-e TO

ipotesi di intreccio con gli ambi rilevati
queste le cinquine previste in ripetizione

49 88 28 23 60
20 63 61 60 27
50 79 39 06 48
73 31 08 67 19
08 10 13 41 37
08 68 78 72 07
08 18 33 87 60
67 56 03 45 57
67 65 62 47 25
49 02 32 18 64
02 89 15 21 05
02 67 38 41 34
18 86 35 42 64
49 78 23 38 19

vediamo che succede!!

ghio · 15 Luglio 2019

ASPETTA UN ATTIMO ,RUBINO TUTTO GIUSTO MA SECONDO MIO MODESTO PARERE L OPERAZIONE PER OTTENERE I NUMERI GIUSTI LA DOVREMMO PRODURRE SEMPRE DALL ULTIMA ESTRAZIONE. O NO
02.05.07.09.10.12.15.18.19.21.22.23.25.27.29.31.34.35.37.38.39.41.42.45.47.49.50.54.61.63.64.65.67.73.78.79.83.86.87.88.89

Rubino · 15 Luglio 2019

Si certo
ma voglio lasciare aperta la porta al idea che tutte sfaldano almeno 1 ambo
poi mi serve capire se i numeri in comune tra le 3 ultime estrazioni sono quelli che escono o se escono gli altri.

le prove non costano niente,

ghio · 15 Luglio 2019

FACENDO SIMULAZIONE CANCELLANDO L ULTIMA ESTRAZIONE IN ARCHIVIO NON SI RIESCE A CAPIRE
NON DICO CHE NON SI PUO FARE PROVE
CHIEDEVO

solare · 16 Luglio 2019

Ciao Rubino, sarebbe "Ovviamente una mia idea" se possibile aggiungere nella tabella 2 resoconto dettagliato degli estratti il totale delle preferenze su ogni ruota. Penso possa servire ad individuare dove i numeri della cinquina sono più probabili.

Rubino · 16 Luglio 2019

questo è lo script normale con dettaglio degli ambi, ho fatto una modifica, è possibile parzializzare
l'elenco di tutti gli indicando solo quelli di 1 ruota a scelta.

si riducono così visivamente gli ambi e diventano piu' sotto controllo.

stiamo parlando sempre di bozza dello script, quindi contiene ancora delle imperfezioni a video
non me ne vogliate, in questo momento stiamo buttando giu delle idee.

Codice:

Sub Main()
   Dim dati(10,5)
   Dim dati2(10,5,10) '''estrattiUGUALIqta 2 estraz.consec.
   Dim dati3(10,5,10) '''ambi qta
   Dim rie(2999),very(2999,5)
   es = InputBox("Quante estrazioni vuoi controllare ?",,100)
   v = CInt(InputBox("Ambi Verifica in n.colpi",,3))
   r1 = CInt(InputBox("Ruote Sel.di Gioco",,"2"))
   det = InputBox("Vuoi Lista ambi Usciti?  S/N ",,"N")
   es = CInt(es)
   inizio = EstrazioneFin - es
   oggi = EstrazioneFin - v
   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 String(90,Chr(11)):ColoreTesto(0) :Scrivi " Mod. GHIO-16 Verifica  (   B  O  Z  Z  A -1   ) ",1
   Scrivi "Condizione :   Verifica Ambi n.colpi di gioco  " & v,1
   Scrivi "Condizione :   Vuoi Lista degli Ambi Usciti?  " & det,1
   ColoreTesto(2)
   Scrivi "Scelta Riepiloga ambi solo della ruota " & NomeRuota(r1),1
   Scrivi: 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."
   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)
            For ru2 = 1 To 10
               For p2 = 1 To 5
                  es2 = Estratto(i + 1,ru2,p2)
                  If es1 = es2 Then
                     '''calcola uscite
                     dati(ru,p) = dati(ru,p) + 1
                     dati2(ru,p,ru2) = dati2(ru,p,ru2) + 1
                     '''controlla se ambo uscito a colpo
                     ReDim an(2),ar(2),matriceestrritorno(10,5)
                     For rr = 1 To 10
                        For w = 1 To 5
                           matriceestrritorno(rr,w) = Estratto(i,rr,w)
                        Next
                     Next
                     ''''
                     For b = 1 To 5
                        an(1) = es1
                        an(2) = Estratto(i + 1,ru2,b)
                        '''verifica esito
                        '''''
                        For z1 = 1 To v ''' ncolpi
                           '
                           For z2 = 1 To 10 '''' nruote
                              If z2 = ru Or z2 = ru2 Then
                                 '
                                 ca = 0:cz = 0
                                 For z3 = 1 To 5 ''' estratti
                                    If Int(Estratto(i + 1 + z1,z2,z3)) = Int(an(1)) Or Int(Estratto(i + 1 + z1,z2,z3)) = Int(an(2)) Then
                                       ca = ca + 1
                                    End If
                                 Next
                                 If ca = 2 Then
                                    ColoreTesto(0)
                                    dati3(ru,p,ru2) = dati3(ru,p,ru2) + 1
                                    cg = cg + 1
                                    cz = 1
                                    If det = "S" Then Scrivi "-ESITO---> " & i & " e " & i + 1 & "   pos." & SiglaRuota(ru) & "-" & p & " / " & SiglaRuota(ru2) & "-" & p2 & " nr.  " & Format2(an(1)) & "." & Format2(an(2)) & "    " & i + 1 + z1 & " Colpo n." & z1 & "   " & an(1) & "." & an(2),1
                                    ColoreTesto(0)
                                 End If
                              End If
                           Next
                        Next
                        '''''riepiloga previsioni in corso
                        If i >= oggi And an(1) <> an(2) Then
                           ar(1) = ru
                           ar(2) = ru2
                           Call StatisticaFormazioneTurbo(an,ar,2,retrit,retritmax,,,3950,EstrazioneFin)
                           qq = qq + 1
                           rie(qq) = i & " / " & i + 1 & "  Ruote " & SiglaRuota(ru) & "-" & p & " / " & SiglaRuota(ru2) & "-" & p2 & "  Nr." & es1 & "-" & es2 & "   In gioco per n.colpi.." &(i + 1 + v) - EstrazioneFin & "  Ambo..." & an(1) & " " & FormatSpace(an(2),5) & "    Ritn.colpi  " & EstrazioneFin -(i + 1)
                           very(qq,1) = i + 1
                           very(qq,2) = ru
                           very(qq,3) = ru2
                           very(qq,4) = an(1)
                           very(qq,5) = an(2)
                        End If
                     Next
                     '''''
                  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 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  estraz.n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1
   Scrivi
   ColoreTesto(0)
   Scrivi Space(20) & "E   S   T   R   A   T   T   I " & Space(20) & "       A      M      B      I   ",1
   For ru = 1 To 10
      ColoreTesto(0)
      Scrivi Space(13) & "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" & Space(2) & "|-|" & Space(2) & "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" & Space(2) & "|-|" & Space(2) & "NR-2E   NR-1E  NR-UE",1
      ColoreTesto(1)
      For p = 1 To 5
         Scrivi FormatSpace(Left(NomeRuota(ru),2),5) + FormatSpace("Pos",4) + FormatSpace(p,4) + _
         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),4) + "|" + FormatSpace(p,1) + FormatSpace("|",3) + _
         FormatSpace(dati3(ru,p,1),5) + _
         FormatSpace(dati3(ru,p,2),5) + FormatSpace(dati3(ru,p,3),5) + _
         FormatSpace(dati3(ru,p,4),5) + FormatSpace(dati3(ru,p,5),5) + _
         FormatSpace(dati3(ru,p,6),5) + FormatSpace(dati3(ru,p,7),5) + _
         FormatSpace(dati3(ru,p,8),5) + FormatSpace(dati3(ru,p,9),5) + _
         FormatSpace(dati3(ru,p,10),4) + "|" + FormatSpace(p,1) + + FormatSpace("|",3) + _
         Format2(Estratto(EstrazioneFin - 2,ru,p)) + "      " + Format2(Estratto(EstrazioneFin - 1,ru,p)) + "     " + Format2(Estratto(EstrazioneFin,ru,p))
      Next
      Scrivi String(161,"-")
   Next
   ColoreTesto(0)
   Scrivi " Totale Ambi usciti in " & V & "  colpi di gioco sulle 2 ruote di elaborazione..." & cg,1
   ''''riepilogo previsioni in corso
   Scrivi
   Scrivi "E l e n c o  A m b i  R i l e v a t i  Non ancora Usciti nelle Ultime " & V & " Estrazione In Archivio  ",1
   For n = 1 To qq
      '''controllasolo ruote sel di gioco
      If Int(very(n,2)) = r1 Or Int(very(n,3)) = r1 Then
         ''''
         key2 = Mid(rie(n),20,11)
         If giro = 0 Then
         ambilista = Left(rie(n),31) & " - Ambi  "
         End If
         If key1 <> key2 And giro = 4 Then
            Scrivi "----------"          
            Scrivi ambilista & "  " & ambilista2 & "   Colpo.n." & EstrazioneFin-Int(Mid(ambilista,8,4)),1
            ambilista = Left(rie(n),31) & " - Ambi  "
            ambilista2 = ""
            key1 = key2
            giro = 0
         End If
         giro = giro + 1
         '''prepara campi per verifica esito
         ReDim ruote(2),num(2)
         id = very(n,1)
         ruote(1) = very(n,2)
         ruote(2) = very(n,3)
         num(1) = very(n,4)
         num(2) = very(n,5)
         Call VerificaEsitoTurbo(num,ruote,id + 1,2,,,,,retestratti,retidestr)
         If retestratti = "" Then
            ambilista2 = ambilista2 & Mid(rie(n),74,8) & " | "
         Else
            ColoreTesto(0)
            Scrivi rie(n)
            ColoreTesto(2)
            Scrivi "---- esito positivo ---- " & retidestr & " colpo n. " & retidestr - id & "    " & retestratti,1
            csuc = csuc + 1
            ColoreTesto(0)
         End If
         ''''
      End If
   Next
   ColoreTesto(1)
   Scrivi: Scrivi " Totale Ambi in Elenco x  " & V & "  colpi di gioco sulle 2 ruote di elaborazione..." & qq,1
   Scrivi " Totali Ambi con esito positivo negli ultimi " & V & " colpi di gioco " & csuc,1
End Sub

Rubino · 16 Luglio 2019

esempio:
lo script alla terza domanda di inputbox chiede

r1 = CInt(InputBox("Ruote Sel.di Gioco",,"2"))

qui specificando 2 = ruota di cagliari
permette di avere in fondo un output così rappresentanto

Codice:

E l e n c o  A m b i  R i l e v a t i  Non ancora Usciti nelle Ultime 3 Estrazione In Archivio 
----------
9652 / 9653  Ruote CA-2 / RO-5  - Ambi    ..49 88  | ..49 28  | ..49 23  | ..49 60  |    Colpo.n.2
----------
9652 / 9653  Ruote CA-3 / FI-1  - Ambi    ..20 63  | ..20 61  | ..20 60  | ..20 27  |    Colpo.n.2
----------
9652 / 9653  Ruote CA-4 / MI-5  - Ambi    ..50 79  | ..50 39  | ..50 6   | ..50 48  |    Colpo.n.2
----------
9652 / 9653  Ruote PA-2 / CA-3  - Ambi    ..73 31  | ..73 8   | ..73 67  | ..73 19  |    Colpo.n.2
----------
9652 / 9653  Ruote RO-5 / CA-3  - Ambi    ..73 31  | ..73 8   | ..73 67  | ..73 19  |    Colpo.n.2
----------
9652 / 9653  Ruote VE-2 / CA-4  - Ambi    ..67 31  | ..67 8   | ..67 73  | ..67 19  |    Colpo.n.2
----------
9653 / 9654  Ruote CA-2 / FI-4  - Ambi    8 10     | 8 13     | 8 41     | 8 37     |    Colpo.n.1
----------
9653 / 9654  Ruote CA-2 / NA-1  - Ambi    8 68     | 8 78     | 8 72     | 8 7      |    Colpo.n.1
----------
9653 / 9654  Ruote CA-2 / VE-3  - Ambi    8 18     | 8 33     | 8 87     | 8 60     |    Colpo.n.1
----------
9653 / 9654  Ruote CA-4 / BA-2  - Ambi    ..67 56  | ..67 3   | ..67 45  | ..67 57  |    Colpo.n.1
----------
9653 / 9654  Ruote CA-4 / MI-1  - Ambi    ..67 65  | ..67 62  | ..67 47  | ..67 25  |    Colpo.n.1
----------
9653 / 9654  Ruote RO-5 / CA-5  - Ambi    ..49 2   | ..49 32  | ..49 18  | ..49 64  |    Colpo.n.1
----------
9654 / 9655  Ruote CA-1 / PA-3  - Ambi    2 89     | 2 15     | 2 21     | 2 5      |    Colpo.n.0
----------
9654 / 9655  Ruote CA-1 / TO-5  - Ambi    2 67     | 2 38     | 2 41     | 2 34     |    Colpo.n.0
----------
9654 / 9655  Ruote CA-3 / CA-3  - Ambi    ..18 86  | ..18 35  | ..18 42  | ..18 64  |    Colpo.n.0
----------
9654 / 9655  Ruote CA-4 / CA-5  - Ambi    ..64 86  | ..64 35  | ..64 18  | ..64 42  |    Colpo.n.0
----------
9654 / 9655  Ruote CA-5 / MI-4  - Ambi    ..49 78  | ..49 23  | ..49 38  | ..49 19  |    Colpo.n.0
----------
9654 / 9655  Ruote TO-3 / CA-4  - Ambi    ..42 86  | ..42 35  | ..42 18  | ..42 64  |    Colpo.n.0

Rubino · 16 Luglio 2019

questo invece è lo script che ieri ho abbozzato, che partendo da un altro concetto totalmente diverso
dagli estratti usciti ad ogni estrazioni, ottiene delle lunghette che sfaldano a colpo o in pochi colpi
delle sorti alte.
naturalmente sono delle lunghette di numeri, quindi numerose, che devono trovare aggancio
nello script precedente, o convergenza, un modo per capire quali tra i 35-45 numeri sono più
probabili in uscita e soprattutto sulle ruote in ritardo per la sorte ambo/terno/quaterna/cinquina.

questa è solo una prova di convergenza, un PRIMO tentativo di studio per diminuire il numero di ambi
del metodo che Ghio ha chiesto all'inizio

poichè i tentativi e le idee vengono come l'appettito, mangiando o col tempo, mettere in cantiere
altri tentativi relativi agli estratti posizionali (tabella1-2).

tutto può servire per far maturare qualche convinzione precisa.

Codice:

Option Explicit
Sub Main
   '''rubino-ghio  vergini tra le 10 ruote ad ogni estrazione
   Dim n,r,es,p,nm,rit,ruota,nsorte,retrit,retritmax,Sintesi,h,S,retfre,retesito,retestratti,retidestr,c
   Scrivi "Rileva Nr.Vergini ad ogni Estrazione tra le 10 Ruote",1
   Scrivi "-- Idea Numeri Vergini o non Estratti tra le 10 Ruote, per il momento sospeso  ",1
   Scrivi "-- Idea Numeri Usciti e Ripetuti tra le 10 Ruote",1
   '''' trova i nr rimasti vergini o non usciti tra tutte le 10 ruote e listali
   '''' trova i nr.usciti e ripetuti tra le 10 ruote e listati
   nsorte = InputBox("Controlla per sorte 1,2,3,4,5 ",,2)
   es = InputBox("dall Estraz.n.",,EstrazioneFin - 10)
   '''''
   For es = es + 1 To EstrazioneFin
      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 "Bepp-Ghio-0",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 & " dall estraz.successiva  " & es & " / " & DataEstrazione(es),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
         Scrivi SiglaRuota(h) & "  ..Rc./ Rx." & Format2(retrit) & " / " & Format2(retritmax) & "     " & retidestr & " colpo " & retidestr - es & "     " & retestratti & "  " & retesito,1
      Next
      Scrivi String(90,"*")
   Next
   ColoreTesto(0)
   Scrivi:Scrivi TempoTrascorso,1
End Sub

chicco3 · 16 Luglio 2019

Ciao Rubino ottimo lavoro sono convinto che quest'ultimo listato è meglio perchè anche io lavoro sui numeri non usciti nella stessa estrazione però io per accorciare i numeri lavoro sui pari e dispari a "0" su tutte, alla fine mi viene una lunghetta di 10 numeri e la cosa è fattibile.Per favore puoi inserire la tabella per poter inserire i numeri scelti che voglio fare una prova.Grazie e complimenti x lo script Raf

Rubino · 16 Luglio 2019

x chicco3
ciao
lo scrip attualmente prende automaticamente i numeri dall'Archivio estrazioni del lotto
inoltre attualmente è impostato sulla ripetizione dei numeri appena usciti e non su quelli non usciti, che eventualmente facevo dopo
se l idea sovveniva anche a ghio o ad altri.

se vuoi invece inserire un tot.di numeri tuoi devo fare un altro script,
ma ti serve per fare un controllo delle uscite nei concorsi successivi?
oppure mi devi scusare, ma non ho capito la tua richiesta.

nel frattempo ho modificato lo script, inserendo le indicazioni della Provenienza (Ruota e posizione)

questo è il piccolo specchietto che questa sera o nei prossimi 2-3 concorsi mi aspetto che esca qualcosa.
questo prospettino è divenuto così'

spero che si veda, purtroppo il forum questo passa.
sorvegliate le ruote di CA-PA-TO

Rubino · 16 Luglio 2019

x chicco3

mi posti una lunghetta di numeri che vuoi inserire ed il numero dell'estrazione di rilevamento dove nascono i numeri che hai rilevato ?

Rubino · 16 Luglio 2019

TEST e verifica per i prossimi concorsi (2-3) su CA principale, ma alcune cinquine sono distribuite
anche su PA-e TO

ipotesi di intreccio con gli ambi rilevati
queste le cinquine previste in ripetizione

49 88 28 23 60
20 63 61 60 27
50 79 39 06 48
73 31 08 67 19
08 10 13 41 37
08 68 78 72 07
08 18 33 87 60
67 56 03 45 57
67 65 62 47 25
49 02 32 18 64
02 89 15 21 05
02 67 38 41 34
18 86 35 42 64
49 78 23 38 19

vediamo che succede!

CAGLIARI usciti 11 38 16 86 41

02 67 38 41 34

ambo 38 41

PALERMO usciti 70 27 43 49 10

solo singoli numeri

TORINO 28 04 48 59 11

solo singoli numeri

anche se un ambo in cinquina è arrivato, mi sembra poi non tanto eclatante, magari mi sbaglio, ma.…

Rubino · 16 Luglio 2019

Domanda per ghio

se si dovesse pensare di costruire una sestina o settina da giocare su ruota
tutti i numeri ricavati dagli estratti in posizione e ruota tabella 1 per intenderci

o tabella 2 per ricaduta di ambi pos e ruote

si dovrebbe selezionare per maggiori ricaduta
O. un misto di valori diversi?
grazie per una eventuale risposta

ciao e buona serata

ghio · 16 Luglio 2019

ALLORA SE VAI ALLA TABELLA UNO DEL PRIMO SCRIPT ANDREI AD ELABORARLO CON POCHE ESTRAZIONI PERCHE NOI POSSIAMO SAPERE CHE CON IL LUNGO PERIODO SI EQUIVALGONO QUINDI SCEGLEREI LA MINOR FREQUENZA

aiuto per script complicato

Rubino

Guest

Super Member >PLATINUM<

Super Member >PLATINUM<

Super Member >PLATINUM<

Super Member >PLATINUM<

Rubino

Guest

Rubino

Guest

Super Member >PLATINUM<

Rubino

Guest

Super Member >PLATINUM<

Advanced Member >PLATINUM<

Rubino

Guest

Rubino

Guest

Rubino

Guest

Advanced Member

Rubino

Guest

Rubino

Guest

Rubino

Guest

Rubino

Guest

Super Member >PLATINUM<