Novità

A volte basta uno script facile per tutti.

piccola nota non so se avete possibili convergenze.

buongiorno, ottimo il 6.60.66 la terna del diavolo 6.6.6

un occhio alla decina 70.79 ba.mi anche 70.80
futuro in decina mi da una buona percentuale .in considerazione per la settimana prossima.
saluti e buona giornata
 
Marcorun sei disponibile ed io ti ammiro per quello che fai, Esempio: se esce il 50 il suo unico laterale della decina naturale e' il 49 no 49-50-51,ma 49-50. e se esce il 49 la direttrice e' 48-49-50. Praticamente la decina 41-50 non deve mai sconfinare con il 51 cioe' la decina 51-60.
PROVA!!!!!
Codice:
Sub Main()
'metodo proposto da Antonio :laterali (Cinzia)
Dim nua(3),nub(3),nuc(3),nud(3),nue(3),ru(1),poste(3)
poste(1) = 1:poste(2) = 1 :poste(3) = 0.50
fin = EstrazioneFin
ini = fin - 27
For es = ini To fin: Messaggio(es)
r = 1
ru(1) = r
nua(1) = Estratto(es,r,1) - 1 : nua(2) = Estratto(es,r,1) : nua(3) = Estratto(es,r,1) + 1
nub(1) = Estratto(es,r,2) - 1 : nub(2) = Estratto(es,r,2) : nub(3) = Estratto(es,r,2) + 1
nuc(1) = Estratto(es,r,3) - 1 : nuc(2) = Estratto(es,r,3) : nuc(3) = Estratto(es,r,3) + 1
nud(1) = Estratto(es,r,4) - 1 : nud(2) = Estratto(es,r,4) : nud(3) = Estratto(es,r,4) + 1
nue(1) = Estratto(es,r,5) - 1 : nue(2) = Estratto(es,r,5) : nue(3) = Estratto(es,r,5) + 1
If nua(1) = 10 Then nua(1) = False
If nua(1) = 20 Then nua(1) = False
If nua(1) = 30 Then nua(1) = False
If nua(1) = 40 Then nua(1) = False
If nua(1) = 50 Then nua(1) = False
If nua(1) = 60 Then nua(1) = False
If nua(1) = 70 Then nua(1) = False
If nua(1) = 80 Then nua(1) = False
If nua(1) = 90 Then nua(1) = False
If nub(1) = 10 Then nub(1) = False
If nub(1) = 20 Then nub(1) = False
If nub(1) = 30 Then nub(1) = False
If nub(1) = 40 Then nub(1) = False
If nub(1) = 50 Then nub(1) = False
If nub(1) = 60 Then nub(1) = False
If nub(1) = 70 Then nub(1) = False
If nub(1) = 80 Then nub(1) = False
If nub(1) = 90 Then nub(1) = False
If nuc(1) = 10 Then nuc(1) = False
If nuc(1) = 20 Then nuc(1) = False
If nuc(1) = 30 Then nuc(1) = False
If nuc(1) = 40 Then nuc(1) = False
If nuc(1) = 50 Then nuc(1) = False
If nuc(1) = 60 Then nuc(1) = False
If nuc(1) = 70 Then nuc(1) = False
If nuc(1) = 80 Then nuc(1) = False
If nuc(1) = 90 Then nuc(1) = False
If nud(1) = 10 Then nud(1) = False
If nud(1) = 20 Then nud(1) = False
If nud(1) = 30 Then nud(1) = False
If nud(1) = 40 Then nud(1) = False
If nud(1) = 50 Then nud(1) = False
If nud(1) = 60 Then nud(1) = False
If nud(1) = 70 Then nud(1) = False
If nud(1) = 80 Then nud(1) = False
If nud(1) = 90 Then nud(1) = False
If nue(1) = 10 Then nue(1) = False
If nue(1) = 20 Then nue(1) = False
If nue(1) = 30 Then nue(1) = False
If nue(1) = 40 Then nue(1) = False
If nue(1) = 50 Then nue(1) = False
If nue(1) = 60 Then nue(1) = False
If nue(1) = 70 Then nue(1) = False
If nue(1) = 80 Then nue(1) = False
If nue(1) = 90 Then nue(1) = False

If nua(3) = 11 Then nua(3) = False
If nua(3) = 21 Then nua(3) = False
If nua(3) = 31 Then nua(3) = False
If nua(3) = 41 Then nua(3) = False
If nua(3) = 51 Then nua(3) = False
If nua(3) = 61 Then nua(3) = False
If nua(3) = 71 Then nua(3) = False
If nua(3) = 81 Then nua(3) = False
If nua(3) = 1 Then nua(3) = False
If nub(3) = 11 Then nub(3) = False
If nub(3) = 21 Then nub(3) = False
If nub(3) = 31 Then nub(3) = False
If nub(3) = 41 Then nub(3) = False
If nub(3) = 51 Then nub(3) = False
If nub(3) = 61 Then nub(3) = False
If nub(3) = 71 Then nub(3) = False
If nub(3) = 81 Then nub(3) = False
If nub(3) = 1 Then nub(3) = False
If nuc(3) = 11 Then nuc(3) = False
If nuc(3) = 21 Then nuc(3) = False
If nuc(3) = 31 Then nuc(3) = False
If nuc(3) = 41 Then nuc(3) = False
If nuc(3) = 51 Then nuc(3) = False
If nuc(3) = 61 Then nuc(3) = False
If nuc(3) = 71 Then nuc(3) = False
If nuc(3) = 81 Then nuc(3) = False
If nuc(3) = 1 Then nuc(3) = False
If nud(3) = 11 Then nud(3) = False
If nud(3) = 21 Then nud(3) = False
If nud(3) = 31 Then nud(3) = False
If nud(3) = 41 Then nud(3) = False
If nud(3) = 51 Then nud(3) = False
If nud(3) = 61 Then nud(3) = False
If nud(3) = 71 Then nud(3) = False
If nud(3) = 81 Then nud(3) = False
If nud(3) = 1 Then nud(3) = False
If nue(3) = 11 Then nue(3) = False
If nue(3) = 21 Then nue(3) = False
If nue(3) = 31 Then nue(3) = False
If nue(3) = 41 Then nue(3) = False
If nue(3) = 51 Then nue(3) = False
If nue(3) = 61 Then nue(3) = False
If nue(3) = 71 Then nue(3) = False
If nue(3) = 81 Then nue(3) = False
If nue(3) = 1 Then nue(3) = False




co = 1
Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
ImpostaGiocata co,nua,ru,poste,18,2
co = co + 1
ImpostaGiocata co,nub,ru,poste,18,2
co = co + 1
ImpostaGiocata co,nuc,ru,poste,18,2
co = co + 1
ImpostaGiocata co,nud,ru,poste,18,2
co = co + 1
ImpostaGiocata co,nue,ru,poste,18,2
co = co + 1
Gioca es
'End If
Next
ScriviResoconto
End Sub
 
PROVA!!!!!
Codice:
Sub Main()
'metodo proposto da Antonio :laterali (Cinzia)
Dim nua(3),nub(3),nuc(3),nud(3),nue(3),ru(1),poste(3)
poste(1) = 1:poste(2) = 1 :poste(3) = 0.50
fin = EstrazioneFin
ini = fin - 27
For es = ini To fin: Messaggio(es)
r = 1
ru(1) = r
nua(1) = Estratto(es,r,1) - 1 : nua(2) = Estratto(es,r,1) : nua(3) = Estratto(es,r,1) + 1
nub(1) = Estratto(es,r,2) - 1 : nub(2) = Estratto(es,r,2) : nub(3) = Estratto(es,r,2) + 1
nuc(1) = Estratto(es,r,3) - 1 : nuc(2) = Estratto(es,r,3) : nuc(3) = Estratto(es,r,3) + 1
nud(1) = Estratto(es,r,4) - 1 : nud(2) = Estratto(es,r,4) : nud(3) = Estratto(es,r,4) + 1
nue(1) = Estratto(es,r,5) - 1 : nue(2) = Estratto(es,r,5) : nue(3) = Estratto(es,r,5) + 1
If nua(1) = 10 Then nua(1) = False
If nua(1) = 20 Then nua(1) = False
If nua(1) = 30 Then nua(1) = False
If nua(1) = 40 Then nua(1) = False
If nua(1) = 50 Then nua(1) = False
If nua(1) = 60 Then nua(1) = False
If nua(1) = 70 Then nua(1) = False
If nua(1) = 80 Then nua(1) = False
If nua(1) = 90 Then nua(1) = False
If nub(1) = 10 Then nub(1) = False
If nub(1) = 20 Then nub(1) = False
If nub(1) = 30 Then nub(1) = False
If nub(1) = 40 Then nub(1) = False
If nub(1) = 50 Then nub(1) = False
If nub(1) = 60 Then nub(1) = False
If nub(1) = 70 Then nub(1) = False
If nub(1) = 80 Then nub(1) = False
If nub(1) = 90 Then nub(1) = False
If nuc(1) = 10 Then nuc(1) = False
If nuc(1) = 20 Then nuc(1) = False
If nuc(1) = 30 Then nuc(1) = False
If nuc(1) = 40 Then nuc(1) = False
If nuc(1) = 50 Then nuc(1) = False
If nuc(1) = 60 Then nuc(1) = False
If nuc(1) = 70 Then nuc(1) = False
If nuc(1) = 80 Then nuc(1) = False
If nuc(1) = 90 Then nuc(1) = False
If nud(1) = 10 Then nud(1) = False
If nud(1) = 20 Then nud(1) = False
If nud(1) = 30 Then nud(1) = False
If nud(1) = 40 Then nud(1) = False
If nud(1) = 50 Then nud(1) = False
If nud(1) = 60 Then nud(1) = False
If nud(1) = 70 Then nud(1) = False
If nud(1) = 80 Then nud(1) = False
If nud(1) = 90 Then nud(1) = False
If nue(1) = 10 Then nue(1) = False
If nue(1) = 20 Then nue(1) = False
If nue(1) = 30 Then nue(1) = False
If nue(1) = 40 Then nue(1) = False
If nue(1) = 50 Then nue(1) = False
If nue(1) = 60 Then nue(1) = False
If nue(1) = 70 Then nue(1) = False
If nue(1) = 80 Then nue(1) = False
If nue(1) = 90 Then nue(1) = False

If nua(3) = 11 Then nua(3) = False
If nua(3) = 21 Then nua(3) = False
If nua(3) = 31 Then nua(3) = False
If nua(3) = 41 Then nua(3) = False
If nua(3) = 51 Then nua(3) = False
If nua(3) = 61 Then nua(3) = False
If nua(3) = 71 Then nua(3) = False
If nua(3) = 81 Then nua(3) = False
If nua(3) = 1 Then nua(3) = False
If nub(3) = 11 Then nub(3) = False
If nub(3) = 21 Then nub(3) = False
If nub(3) = 31 Then nub(3) = False
If nub(3) = 41 Then nub(3) = False
If nub(3) = 51 Then nub(3) = False
If nub(3) = 61 Then nub(3) = False
If nub(3) = 71 Then nub(3) = False
If nub(3) = 81 Then nub(3) = False
If nub(3) = 1 Then nub(3) = False
If nuc(3) = 11 Then nuc(3) = False
If nuc(3) = 21 Then nuc(3) = False
If nuc(3) = 31 Then nuc(3) = False
If nuc(3) = 41 Then nuc(3) = False
If nuc(3) = 51 Then nuc(3) = False
If nuc(3) = 61 Then nuc(3) = False
If nuc(3) = 71 Then nuc(3) = False
If nuc(3) = 81 Then nuc(3) = False
If nuc(3) = 1 Then nuc(3) = False
If nud(3) = 11 Then nud(3) = False
If nud(3) = 21 Then nud(3) = False
If nud(3) = 31 Then nud(3) = False
If nud(3) = 41 Then nud(3) = False
If nud(3) = 51 Then nud(3) = False
If nud(3) = 61 Then nud(3) = False
If nud(3) = 71 Then nud(3) = False
If nud(3) = 81 Then nud(3) = False
If nud(3) = 1 Then nud(3) = False
If nue(3) = 11 Then nue(3) = False
If nue(3) = 21 Then nue(3) = False
If nue(3) = 31 Then nue(3) = False
If nue(3) = 41 Then nue(3) = False
If nue(3) = 51 Then nue(3) = False
If nue(3) = 61 Then nue(3) = False
If nue(3) = 71 Then nue(3) = False
If nue(3) = 81 Then nue(3) = False
If nue(3) = 1 Then nue(3) = False




co = 1
Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
ImpostaGiocata co,nua,ru,poste,18,2
co = co + 1
ImpostaGiocata co,nub,ru,poste,18,2
co = co + 1
ImpostaGiocata co,nuc,ru,poste,18,2
co = co + 1
ImpostaGiocata co,nud,ru,poste,18,2
co = co + 1
ImpostaGiocata co,nue,ru,poste,18,2
co = co + 1
Gioca es
'End If
Next
ScriviResoconto
End Sub
Ma vieni... Marco ottimo lavoro sapevo che ci riuscivi. Bravissimo. Ora con il programma ARN quando c'e' una direttrice che ci interessa si osserva le conferme in percentuali, quali delle direttrici e' la piu' probabile.Vi avevo messo un esempio a cagliari nei post precedenti. Grazie poi vi spieghero' altro... Ps:. i casi negativi sono dovuti senza scartare il caso anomalo anche se conferma che ottima con le conferme in %, che ci dava una direttrice con conferme basse.
 
...mi sembra tu abbia preso una strada tortuosa, nella compilazione dello script...
ti metto qui una soluzione al volo, giusto per limitare la lunga digitazione (ed evitare errori)

Un caro saluto

Codice:
Option Explicit
'Analisi esito direttrice estrazionale
'Ramco 20/01/2024
Sub Main()
Dim rt(1),nu(3),pt(1),clp,ru,Ini,fin,es,r,co,a,b,c,p,tmp
ru = ScegliRuota
pt(1) = 1: clp = InputBox("Per quanti colpi vuoi analizzare il gioco?","COLPI di GIOCO",36)
tmp = InputBox("Quante estrazioni esaminiamo?","ESTRAZIONI",60)
Ini = EstrazioneFin - tmp
fin = EstrazioneFin
For es = Ini To fin
   For r = 1 To 11
      If r = 11 Then r = 12
      If r = ru Then
         rt(1) = r
         co = 0
         For p = 1 To 5
            a = Estratto(es,r,p): b = Fuori90(a + 1): c = Fuori90(a + 89)
            If Cadenza(a) = 1 Then c = 0
            If Cadenza(a) = 0 Then b = 0
            nu(1) = a: nu(2) = b: nu(3) = c
            co = co + 1
            Scrivi: Scrivi "Data " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  analisi " & p & "° estratto " & a
                        OrdinaMatrice nu,1
            ImpostaGiocata co,nu,rt,pt,clp
            Gioca es
         Next
         Scrivi String(100,"="): Scrivi
      End If
   Next
Next
ScriviResoconto
End Sub
 
...mi sembra tu abbia preso una strada tortuosa, nella compilazione dello script...
ti metto qui una soluzione al volo, giusto per limitare la lunga digitazione (ed evitare errori)

Un caro saluto

Codice:
Option Explicit
'Analisi esito direttrice estrazionale
'Ramco 20/01/2024
Sub Main()
Dim rt(1),nu(3),pt(1),clp,ru,Ini,fin,es,r,co,a,b,c,p,tmp
ru = ScegliRuota
pt(1) = 1: clp = InputBox("Per quanti colpi vuoi analizzare il gioco?","COLPI di GIOCO",36)
tmp = InputBox("Quante estrazioni esaminiamo?","ESTRAZIONI",60)
Ini = EstrazioneFin - tmp
fin = EstrazioneFin
For es = Ini To fin
   For r = 1 To 11
      If r = 11 Then r = 12
      If r = ru Then
         rt(1) = r
         co = 0
         For p = 1 To 5
            a = Estratto(es,r,p): b = Fuori90(a + 1): c = Fuori90(a + 89)
            If Cadenza(a) = 1 Then c = 0
            If Cadenza(a) = 0 Then b = 0
            nu(1) = a: nu(2) = b: nu(3) = c
            co = co + 1
            Scrivi: Scrivi "Data " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  analisi " & p & "° estratto " & a
                        OrdinaMatrice nu,1
            ImpostaGiocata co,nu,rt,pt,clp
            Gioca es
         Next
         Scrivi String(100,"="): Scrivi
      End If
   Next
Next
ScriviResoconto
End Sub
Ramco certo qui in 2 cicli da 18= 36 estr. Hai una visuale piu' dettagliata da come si muovono le direttrici,riesci a farlo anche con le presenze?
Salutami Tutor e Grazie per il tuo intervento.
 
...mi sembra tu abbia preso una strada tortuosa, nella compilazione dello script...
ti metto qui una soluzione al volo, giusto per limitare la lunga digitazione (ed evitare errori)

Un caro saluto

Codice:
Option Explicit
'Analisi esito direttrice estrazionale
'Ramco 20/01/2024
Sub Main()
Dim rt(1),nu(3),pt(1),clp,ru,Ini,fin,es,r,co,a,b,c,p,tmp
ru = ScegliRuota
pt(1) = 1: clp = InputBox("Per quanti colpi vuoi analizzare il gioco?","COLPI di GIOCO",36)
tmp = InputBox("Quante estrazioni esaminiamo?","ESTRAZIONI",60)
Ini = EstrazioneFin - tmp
fin = EstrazioneFin
For es = Ini To fin
   For r = 1 To 11
      If r = 11 Then r = 12
      If r = ru Then
         rt(1) = r
         co = 0
         For p = 1 To 5
            a = Estratto(es,r,p): b = Fuori90(a + 1): c = Fuori90(a + 89)
            If Cadenza(a) = 1 Then c = 0
            If Cadenza(a) = 0 Then b = 0
            nu(1) = a: nu(2) = b: nu(3) = c
            co = co + 1
            Scrivi: Scrivi "Data " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  analisi " & p & "° estratto " & a
                        OrdinaMatrice nu,1
            ImpostaGiocata co,nu,rt,pt,clp
            Gioca es
         Next
         Scrivi String(100,"="): Scrivi
      End If
   Next
Next
ScriviResoconto
End Sub
Grazie....a me piace provarci sempre,anche quando so già che non sono all' altezza,ho aspettato un po' che qualcuno bravo come te venisse in supporto a Mission ......ma ho voluto dare una mano nel mio piccolo,visto che Mission ha condiviso la sua idea x tutti!
 
...mi sembra tu abbia preso una strada tortuosa, nella compilazione dello script...
ti metto qui una soluzione al volo, giusto per limitare la lunga digitazione (ed evitare errori)

Un caro saluto

Codice:
Option Explicit
'Analisi esito direttrice estrazionale
'Ramco 20/01/2024
Sub Main()
Dim rt(1),nu(3),pt(1),clp,ru,Ini,fin,es,r,co,a,b,c,p,tmp
ru = ScegliRuota
pt(1) = 1: clp = InputBox("Per quanti colpi vuoi analizzare il gioco?","COLPI di GIOCO",36)
tmp = InputBox("Quante estrazioni esaminiamo?","ESTRAZIONI",60)
Ini = EstrazioneFin - tmp
fin = EstrazioneFin
For es = Ini To fin
   For r = 1 To 11
      If r = 11 Then r = 12
      If r = ru Then
         rt(1) = r
         co = 0
         For p = 1 To 5
            a = Estratto(es,r,p): b = Fuori90(a + 1): c = Fuori90(a + 89)
            If Cadenza(a) = 1 Then c = 0
            If Cadenza(a) = 0 Then b = 0
            nu(1) = a: nu(2) = b: nu(3) = c
            co = co + 1
            Scrivi: Scrivi "Data " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  analisi " & p & "° estratto " & a
                        OrdinaMatrice nu,1
            ImpostaGiocata co,nu,rt,pt,clp
            Gioca es
         Next
         Scrivi String(100,"="): Scrivi
      End If
   Next
Next
ScriviResoconto
End Sub
Ben ri-riletto Marco ! Come stai? Sono felicissimo del tuo intervento qui ! Un abbraccio.
 
buonasera a lor signori.
Futuro mi indica chiaramente il 47.48.42.44.49. in effetti manca il 47 in chiusura proprio su ba
dalle spie analizzate il 47 ha un certo impatto .incrociandolo con le direttrici dovrebbe cadere a breve assieme al 60
poi magari come spesso accade passano prima da FI sta a vedere....

Vedi l'allegato 2276382
Vedi l'allegato 2276383
non incollo le immagini di futuro che potete tranquillamente verificare.
deve cadere assieme al 60

sempre da futuro in decina
per la decina 50 .54.55.56
. altri metodi mi danno forti nelle spie il 56 e 57 👀

azzardo: 46.47.48 60. 88.8 previsione elaborata con futuro 3 colpi
futuro sempre a segno incrociando i dati 2 colpi e portato a casa il 47 troppo evidente per non giocarlo.
 
in effetti futuro se capito e ben interpretato anche con qualche strategia applicata va avanti a colpo almeno per le ambate e non è poco .
è un ottimo indicatore
in effetti quasi quasi mi dedico solo a questo....
 
in effetti futuro se capito e ben interpretato anche con qualche strategia applicata va avanti a colpo almeno per le ambate e non è poco .
è un ottimo indicatore
in effetti quasi quasi mi dedico solo a questo....
Vedo con piacere che sei molto volenteroso,Futuro3 non da' solo le ambate... piu'avanti andremo sul pesante,da adesso si va' in un altro laghetto a...
 

Allegati

  • vado a pescare.png
    vado a pescare.png
    40,5 KB · Visite: 44

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 23 novembre 2024
    Bari
    33
    80
    86
    52
    25
    Cagliari
    67
    57
    59
    05
    80
    Firenze
    31
    32
    58
    88
    77
    Genova
    40
    39
    23
    36
    81
    Milano
    28
    58
    45
    25
    38
    Napoli
    20
    82
    23
    44
    57
    Palermo
    76
    56
    88
    62
    31
    Roma
    12
    81
    59
    74
    72
    Torino
    46
    53
    72
    45
    23
    Venezia
    04
    12
    42
    64
    20
    Nazionale
    63
    44
    78
    10
    55
    Estrazione Simbolotto
    Torino
    43
    42
    12
    39
    22

Ultimi Messaggi

Indietro
Alto