Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
PRESO BA 55 4^ pos. determinata al 1° colpo....pronostico postato sul mio post "DIRETTRICI e segmenti"....segue aggiornamento.Poi ti dico se trovo qualcosa di interessante.Ciao.Ottimo Codicebinario vediamo cosa succede stasera
PROVA!!!!!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.
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.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
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?...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....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
futuro sempre a segno incrociando i dati 2 colpi e portato a casa il 47 troppo evidente per non giocarlo.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
Non preoccuparti anche con il tuo lavoro se portato a 36 colpi ha gli stessi esiti.GrazieGrazie....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!
Ottimo Lottoluke,in effetti il 47 secco l'ho preso anchio,devo aver fatto troppo male alla lottomatica,lo portavo avanti da 3 estrazionifuturo sempre a segno incrociando i dati 2 colpi e portato a casa il 47 troppo evidente per non giocarlo.
analizzando le spie con futuro sulle 3 ruote ba.ca.fi era davvero imbarazzante per quante volte lo ripetesse ,ba era in pole.Ottimo Lottoluke,in effetti il 47 secco l'ho preso anchio,devo aver fatto troppo male alla lottomatica,lo portavo avanti da 3 estrazioni
Questo test,che poi e' diventato attuale in corso... ci ha regalato ambata 42 del 2x1 e ambata in direttrice 24.Caso chiuso con soddisfazione entro i termini stabiliti.Questo test e' attuale per 5 colpi.
Bene Lottoluke,si continua cosi'prima o poi faremo il botto,non siamo mica qui a pettinare questa sezione.analizzando le spie con futuro sulle 3 ruote ba.ca.fi era davvero imbarazzante per quante volte lo ripetesse ,ba era in pole.
anche la terzina 6.60.66 ha dato il suo non male
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...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....
Azz. il laterale 14 mannaggia...Ho preso il 48 su Nazionale in prima posizione e ora aspetto 13 - Roma Torino in 1-5/4 posizione per Roma e 3-2/5 per Torino.
Bentrovato Marco,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.