Novità

Metodo "ER GRAFITTARO"

M

mister1729

Banned
Screenshot (152).pngScreenshot_2021-11-16-20-41-11-78_6012fa4d4ddec268fc5c7112cbb265e7.jpg
Ciao Marco, anche stavolta vicini all'ambo secco, in realtà al tuo metodo ho aggiunto una modifica dato l'ultimo risultato su venezia (44/54) ,
ho fatto una ricerca a ritroso ed ho notato che anche in questo modo da alcuni risultati.
Il procedimento se fa piacere è il seguente : 4 + 85 = 89 + 1 =90 il tuo + 10 = 9 + 1 = 10 ,quindi in numeri in gioco erano 89/90/9/10.

 Spero che non ti abbia doto fastidio e sperando che possa esserti utile per i tuoi studi, grazie e saluto tutti!
 
M

Marco-elle

Advanced Member >PLATINUM PLUS<
mister1729 ha scritto:
Vedi l'allegato 2225182Vedi l'allegato 2225184
Ciao Marco, anche stavolta vicini all'ambo secco, in realtà al tuo metodo ho aggiunto una modifica dato l'ultimo risultato su venezia (44/54) ,
ho fatto una ricerca a ritroso ed ho notato che anche in questo modo da alcuni risultati.
Il procedimento se fa piacere è il seguente : 4 + 85 = 89 + 1 =90 il tuo + 10 = 9 + 1 = 10 ,quindi in numeri in gioco erano 89/90/9/10.

Spero che non ti abbia doto fastidio e sperando che possa esserti utile per i tuoi studi, grazie e saluto tutti!
Clicca per espandere...
Ottimo!
I suggerimenti sono sempre graditi per arrivare a vincite succulente ;) (y)🙏
 
M

Marco-elle

Advanced Member >PLATINUM PLUS<
Attenzione alla RO-VE 4-40 con gioco 44-54/4-40
e PA-RO 14-5 con gioco 19-29/44-54
ormai sono calde per lo sfaldamento e mi aspetto
(visto le convergenze con delle mie ricerche)
RO protagonista con 29-40-44-54 che "forse" paga l'ambo
 
F

farfalla2

Member
Sub Main()
Dim Cont : Cont = InputBox("ESTRAZIONI DI CONTROLLO",,50)
Dim aColpi : aColpi = InputBox("COLPI DI CONTROLLO",,5)
Dim nSorte : nSorte = ScegliSorte
Dim Ruo,Pos,aSpia
Dim aNumM10,aNumM05,aNumP05,aNumP10
Dim NU,CONTA
Dim aNumeri(24)
Dim Ini,fin,es,casi : Ini = EstrazioneFin - Cont : fin = EstrazioneFin : casi = 00
For es = Ini To fin : Call Messaggio(es) : Call AvanzamentoElab(Ini,fin,es)
For Ruo = 08 To 08
Pos = 03 : aSpia = Estratto(es,Ruo,Pos)

ReDim aRuota(01) : aRuota(01) = Ruo
Call aGetIntestazione(casi,es,aSpia,Ruo,Pos)
Call aGetNumeriInGioco(es,Ruo,aSpia,aNumeri,aNumM10,aNumM05,aNumP05,aNumP10)
Call ContaNumeriinGioco(aNumeri,NU,CONTA,nSorte)
Call VerificaEsitoNumeri(aNumeri,aRuota,nSorte,es,aColpi,fin)

Next
Next
End Sub
Function ScegliSorte()
Dim aVoci : aVoci = Array(aVoci,"Estratto","Ambo","Terno","Quaterna","Cinquina")
ScegliSorte = ScegliOpzioneMenu(aVoci,02,"Scegli Tipo Sorte")
End Function
Function aGetIntestazione(casi,es,aSpia,Ruo,Pos)
Dim EE,PP : casi = casi + 01 : Call Scrivi(String(125,"-") & " Caso n° " & Format2(casi),True)
Call ColoreTesto(vbBlack) : Call Scrivi("Estrazione n." & Format2(es) & " del " & DataEstrazione(es),True,False)
Call Scrivi(" " & SiglaRuota(Ruo) & " ",True,False)
For PP = 01 To 05 : EE = Estratto(es,Ruo,PP)
If EE = aSpia Then
Call ColoreTesto(vbRed)
Else
Call ColoreTesto(vbBlack)
End If
Call Scrivi(Format2(EE) & " ",True,False) : Call ColoreTesto(vbBlack)
Next
Call Scrivi()
End Function
Function aGetNumeriInGioco(es,Ruo,aSpia,aNumeri,aNumM10,aNumM05,aNumP05,aNumP10)
Call GetArrayNumeriRuota(es,Ruo - 02,aNumM10) : Call GetArrayNumeriRuota(es,Ruo - 01,aNumM05)
Call GetArrayNumeriRuota(es,Ruo + 01,aNumP05) : Call GetArrayNumeriRuota(es,Ruo + 02,aNumP10)
aNumeri(01) = Fuori90(aSpia + aNumM10(01)) : aNumeri(02) = Fuori90(aSpia + aNumM10(02))
aNumeri(03) = Fuori90(aSpia + aNumM10(03)) : aNumeri(04) = Fuori90(aSpia + aNumM10(04))
aNumeri(05) = Fuori90(aSpia + aNumM10(05)) : aNumeri(06) = Fuori90(aSpia + aNumM05(01))
aNumeri(07) = Fuori90(aSpia + aNumM05(02)) : aNumeri(08) = Fuori90(aSpia + aNumM05(03))
aNumeri(09) = Fuori90(aSpia + aNumM05(04)) : aNumeri(10) = Fuori90(aSpia + aNumM05(05))
aNumeri(11) = Fuori90(aSpia + Estratto(es,Ruo - 00,01)) : aNumeri(12) = Fuori90(aSpia + Estratto(es,Ruo - 00,02))
aNumeri(13) = Fuori90(aSpia + Estratto(es,Ruo + 00,04)) : aNumeri(14) = Fuori90(aSpia + Estratto(es,Ruo + 00,05))
aNumeri(15) = Fuori90(aSpia + aNumP05(01)) : aNumeri(16) = Fuori90(aSpia + aNumP05(02))
aNumeri(17) = Fuori90(aSpia + aNumP05(03)) : aNumeri(18) = Fuori90(aSpia + aNumP05(04))
aNumeri(19) = Fuori90(aSpia + aNumP05(05)) : aNumeri(20) = Fuori90(aSpia + aNumP10(01))
aNumeri(21) = Fuori90(aSpia + aNumP10(02)) : aNumeri(22) = Fuori90(aSpia + aNumP10(03))
aNumeri(23) = Fuori90(aSpia + aNumP10(04)) : aNumeri(24) = Fuori90(aSpia + aNumP10(05))
Call EliminaRipetuti(aNumeri)
End Function
Function ContaNumeriinGioco(aNumeri,Nu,CONTA,nSorte)
CONTA = 00 : Nu = Split("00." & StringaNumeri(aNumeri,,True),".")
Dim Num : For Num = 01 To UBound(Nu) : CONTA = CONTA + 01 : Next
Call Scrivi("G 0001 Numeri in gioco : [ " & Format2(CONTA) & " ] " & _
StringaNumeri(aNumeri,,True) & " per " & NomeSorte(nSorte),True)
End Function
Function VerificaEsitoNumeri(aNumeri,aRuota,nSorte,es,aColpi,fin)
Dim klp,xlp,SF : klp = 01 : SF = 00
For xlp = 01 To aColpi : SF = SerieFreqTurbo(es + xlp,es + xlp,aNumeri,aRuota,AMBATA_)
Dim RetEsito,RetColpi,RetEstratti,RetIdEstr
Call VerificaEsitoTurbo(aNumeri,aRuota,es + xlp,nSorte,klp,,RetEsito,RetColpi,RetEstratti,RetIdEstr)
If RetEsito <> "" Then
Call ColoreTesto(02)
Call Scrivi("V N. [" & FormatSpace(StringaNumeri(aNumeri,,True),75) & "] [" & _
RetEstratti & " ] C. " & FormatSpace(xlp,03,True) & " " & FormatSpace(RetEsito,11) & _
"( " & SF & " ) " & FormattaStringa(es + xlp,"00000") & " [" & IndiceAnnuale(es + xlp) & " - " & _
DataEstrazione(es + xlp,,,"/") & "]",True) : Call ColoreTesto(00)
ElseIf RetEsito = "" And RetColpi < klp Then
Call ColoreTesto(00) : Call Scrivi() : Call Scrivi("in corso per altre " & aColpi - xlp + 01 & _
" estrazioni",True) : Call Scrivi() : Call ColoreTesto(00)
Else
RetEsito =(" ") : RetEstratti =(" .. .. .. .. ..")
Call ColoreTesto(00) : Call Scrivi(" N. [" & FormatSpace(StringaNumeri(aNumeri,,True),75) & "] [" & _
RetEstratti & " ] C. " & FormatSpace(xlp,03,True) & " " & FormatSpace(RetEsito,11) & "( " & _
SF & " ) " & FormattaStringa(es + xlp,"00000") & " [" & IndiceAnnuale(es + xlp) & " - " & _
DataEstrazione(es + xlp,,,"/") & "]",True) : Call ColoreTesto(00)
End If
If es + xlp > fin Then Exit For
Next : Call Scrivi()
End Function


Ciao Marco, scusa se invado il tuo spazio, ma ho visto che hai delle previsioni sopratutto su Roma.......Io ho questo script che non so di chi sia ma che ha dei buoni risultati anche se si tratta di lunghezze. Penso che sia fonte di studio.
 
M

Marco-elle

Advanced Member >PLATINUM PLUS<
farfalla2 ha scritto:
Sub Main()
Dim Cont : Cont = InputBox("ESTRAZIONI DI CONTROLLO",,50)
Dim aColpi : aColpi = InputBox("COLPI DI CONTROLLO",,5)
Dim nSorte : nSorte = ScegliSorte
Dim Ruo,Pos,aSpia
Dim aNumM10,aNumM05,aNumP05,aNumP10
Dim NU,CONTA
Dim aNumeri(24)
Dim Ini,fin,es,casi : Ini = EstrazioneFin - Cont : fin = EstrazioneFin : casi = 00
For es = Ini To fin : Call Messaggio(es) : Call AvanzamentoElab(Ini,fin,es)
For Ruo = 08 To 08
Pos = 03 : aSpia = Estratto(es,Ruo,Pos)

ReDim aRuota(01) : aRuota(01) = Ruo
Call aGetIntestazione(casi,es,aSpia,Ruo,Pos)
Call aGetNumeriInGioco(es,Ruo,aSpia,aNumeri,aNumM10,aNumM05,aNumP05,aNumP10)
Call ContaNumeriinGioco(aNumeri,NU,CONTA,nSorte)
Call VerificaEsitoNumeri(aNumeri,aRuota,nSorte,es,aColpi,fin)

Next
Next
End Sub
Function ScegliSorte()
Dim aVoci : aVoci = Array(aVoci,"Estratto","Ambo","Terno","Quaterna","Cinquina")
ScegliSorte = ScegliOpzioneMenu(aVoci,02,"Scegli Tipo Sorte")
End Function
Function aGetIntestazione(casi,es,aSpia,Ruo,Pos)
Dim EE,PP : casi = casi + 01 : Call Scrivi(String(125,"-") & " Caso n° " & Format2(casi),True)
Call ColoreTesto(vbBlack) : Call Scrivi("Estrazione n." & Format2(es) & " del " & DataEstrazione(es),True,False)
Call Scrivi(" " & SiglaRuota(Ruo) & " ",True,False)
For PP = 01 To 05 : EE = Estratto(es,Ruo,PP)
If EE = aSpia Then
Call ColoreTesto(vbRed)
Else
Call ColoreTesto(vbBlack)
End If
Call Scrivi(Format2(EE) & " ",True,False) : Call ColoreTesto(vbBlack)
Next
Call Scrivi()
End Function
Function aGetNumeriInGioco(es,Ruo,aSpia,aNumeri,aNumM10,aNumM05,aNumP05,aNumP10)
Call GetArrayNumeriRuota(es,Ruo - 02,aNumM10) : Call GetArrayNumeriRuota(es,Ruo - 01,aNumM05)
Call GetArrayNumeriRuota(es,Ruo + 01,aNumP05) : Call GetArrayNumeriRuota(es,Ruo + 02,aNumP10)
aNumeri(01) = Fuori90(aSpia + aNumM10(01)) : aNumeri(02) = Fuori90(aSpia + aNumM10(02))
aNumeri(03) = Fuori90(aSpia + aNumM10(03)) : aNumeri(04) = Fuori90(aSpia + aNumM10(04))
aNumeri(05) = Fuori90(aSpia + aNumM10(05)) : aNumeri(06) = Fuori90(aSpia + aNumM05(01))
aNumeri(07) = Fuori90(aSpia + aNumM05(02)) : aNumeri(08) = Fuori90(aSpia + aNumM05(03))
aNumeri(09) = Fuori90(aSpia + aNumM05(04)) : aNumeri(10) = Fuori90(aSpia + aNumM05(05))
aNumeri(11) = Fuori90(aSpia + Estratto(es,Ruo - 00,01)) : aNumeri(12) = Fuori90(aSpia + Estratto(es,Ruo - 00,02))
aNumeri(13) = Fuori90(aSpia + Estratto(es,Ruo + 00,04)) : aNumeri(14) = Fuori90(aSpia + Estratto(es,Ruo + 00,05))
aNumeri(15) = Fuori90(aSpia + aNumP05(01)) : aNumeri(16) = Fuori90(aSpia + aNumP05(02))
aNumeri(17) = Fuori90(aSpia + aNumP05(03)) : aNumeri(18) = Fuori90(aSpia + aNumP05(04))
aNumeri(19) = Fuori90(aSpia + aNumP05(05)) : aNumeri(20) = Fuori90(aSpia + aNumP10(01))
aNumeri(21) = Fuori90(aSpia + aNumP10(02)) : aNumeri(22) = Fuori90(aSpia + aNumP10(03))
aNumeri(23) = Fuori90(aSpia + aNumP10(04)) : aNumeri(24) = Fuori90(aSpia + aNumP10(05))
Call EliminaRipetuti(aNumeri)
End Function
Function ContaNumeriinGioco(aNumeri,Nu,CONTA,nSorte)
CONTA = 00 : Nu = Split("00." & StringaNumeri(aNumeri,,True),".")
Dim Num : For Num = 01 To UBound(Nu) : CONTA = CONTA + 01 : Next
Call Scrivi("G 0001 Numeri in gioco : [ " & Format2(CONTA) & " ] " & _
StringaNumeri(aNumeri,,True) & " per " & NomeSorte(nSorte),True)
End Function
Function VerificaEsitoNumeri(aNumeri,aRuota,nSorte,es,aColpi,fin)
Dim klp,xlp,SF : klp = 01 : SF = 00
For xlp = 01 To aColpi : SF = SerieFreqTurbo(es + xlp,es + xlp,aNumeri,aRuota,AMBATA_)
Dim RetEsito,RetColpi,RetEstratti,RetIdEstr
Call VerificaEsitoTurbo(aNumeri,aRuota,es + xlp,nSorte,klp,,RetEsito,RetColpi,RetEstratti,RetIdEstr)
If RetEsito <> "" Then
Call ColoreTesto(02)
Call Scrivi("V N. [" & FormatSpace(StringaNumeri(aNumeri,,True),75) & "] [" & _
RetEstratti & " ] C. " & FormatSpace(xlp,03,True) & " " & FormatSpace(RetEsito,11) & _
"( " & SF & " ) " & FormattaStringa(es + xlp,"00000") & " [" & IndiceAnnuale(es + xlp) & " - " & _
DataEstrazione(es + xlp,,,"/") & "]",True) : Call ColoreTesto(00)
ElseIf RetEsito = "" And RetColpi < klp Then
Call ColoreTesto(00) : Call Scrivi() : Call Scrivi("in corso per altre " & aColpi - xlp + 01 & _
" estrazioni",True) : Call Scrivi() : Call ColoreTesto(00)
Else
RetEsito =(" ") : RetEstratti =(" .. .. .. .. ..")
Call ColoreTesto(00) : Call Scrivi(" N. [" & FormatSpace(StringaNumeri(aNumeri,,True),75) & "] [" & _
RetEstratti & " ] C. " & FormatSpace(xlp,03,True) & " " & FormatSpace(RetEsito,11) & "( " & _
SF & " ) " & FormattaStringa(es + xlp,"00000") & " [" & IndiceAnnuale(es + xlp) & " - " & _
DataEstrazione(es + xlp,,,"/") & "]",True) : Call ColoreTesto(00)
End If
If es + xlp > fin Then Exit For
Next : Call Scrivi()
End Function


Ciao Marco, scusa se invado il tuo spazio, ma ho visto che hai delle previsioni sopratutto su Roma.......Io ho questo script che non so di chi sia ma che ha dei buoni risultati anche se si tratta di lunghezze. Penso che sia fonte di studio.
Clicca per espandere...
Ciao Farfalla,
Questo pomeriggio quando rientro
Lo faccio girare,intanto grazie
 
M

Marco-elle

Advanced Member >PLATINUM PLUS<
Marco-elle ha scritto:
Attenzione all'ambozzo 29-40 su RO che sono le due ricerche convergenti,
La formula che inserisco sotto mi ha fatto perdere la quaterna in sestina (riunita su TO)
perchè ho sbagliato ruota.il 29-40 compare nella cinquina in previsione.
io propongo x tentare un bel Natale:
RO
29-40
29-40-44
29-40-54
Vedi l'allegato 2224903
Clicca per espandere...
Con molto dispiacere,concludo in negativo la previsione su RO perchè la ritengo
improbabile.La formula convergente ha pagato l'ambo secco 31-39 e da buon
giocatore....non l'ho neanche considerata
 
M

mister1729

Banned
Screenshot (154).jpg
Ciao Marco, dai un'occhiata al post 123 considerando la modifica apportata al tuo metodo, 4+15=19 +1 = 20
19+10=29+1= 30 , allora da mettere in gioco 19/20/29/30 , ambetto su venezia 19/28.
E' vero che diventa dispendioso , ma è anche vero che chi non risica non rosica.
Sempre il post 123 ho preso un doppio ambetto con 84+5=89+1=90, 89+10=9+1=10, quindi i numeri da mettere in gioco sono stati 89/90/9/10, Genova 9/11.
Ribadisco non'è mia intenzione sconvolgere il tuo metodo ma potrebbe essere fonte di ispirazione per un'atro progetto.
Ti domanderai perchè non ho giocato quest'ultima previsione? Mi trovavo fuori casa per lavoro ed non' ho avuto modo di fermarmi da un tabaccaio.
Ps: sarebbe stato comodo se riuscivi a realizzare uno script considerando anche l'ambetto ,soprattutto per vedere come si è evoluto nel tempo.
Io sono una schiappa a realizzarne uno di sana pianta, al massimo riesco a modificare alcuni passaggi ma niente di più, detto questo ti mando un caro saluto a te e tutti coloro che passeranno da queste parti!
 
M

mister1729

Banned
Screenshot (155).jpg
Ariciao Marco, ho notato che quando i numeri di ricerca sono sulle ruote diametrali o gemelle la previsione va a segno, ho preso per caso questa ed alla fine ha pagato un ambo secco ,saluto.
 
M

Marco-elle

Advanced Member >PLATINUM PLUS<
mister1729 ha scritto:
Vedi l'allegato 2225338
Ciao Marco, dai un'occhiata al post 123 considerando la modifica apportata al tuo metodo, 4+15=19 +1 = 20
19+10=29+1= 30 , allora da mettere in gioco 19/20/29/30 , ambetto su venezia 19/28.
E' vero che diventa dispendioso , ma è anche vero che chi non risica non rosica.
Sempre il post 123 ho preso un doppio ambetto con 84+5=89+1=90, 89+10=9+1=10, quindi i numeri da mettere in gioco sono stati 89/90/9/10, Genova 9/11.
Ribadisco non'è mia intenzione sconvolgere il tuo metodo ma potrebbe essere fonte di ispirazione per un'atro progetto.
Ti domanderai perchè non ho giocato quest'ultima previsione? Mi trovavo fuori casa per lavoro ed non' ho avuto modo di fermarmi da un tabaccaio.
Ps: sarebbe stato comodo se riuscivi a realizzare uno script considerando anche l'ambetto ,soprattutto per vedere come si è evoluto nel tempo.
Io sono una schiappa a realizzarne uno di sana pianta, al massimo riesco a modificare alcuni passaggi ma niente di più, detto questo ti mando un caro saluto a te e tutti coloro che passeranno da queste parti!
Clicca per espandere...
Ciao Mister,
come ho già spiegato a qualcuno....non ho fatto lo script perchè questo modo di analizzare
il quadro estrazionale è temporale.Secondo me,questo giochetto sta già funzionando oltre
le aspettative e non passerà molto temo che smetta di dare esiti,questo è il motivo di non
voler fare uno Script,se la tua visione apporta ulteriori potenzialità ben venga e ti invito
a scrivere bene i passaggi perchè io e il lettore capisca bene come ricavare una previsione
binaria a quella del Grafittaro
 
M

mister1729

Banned
Marco-elle ha scritto:
Ciao Mister,
come ho già spiegato a qualcuno....non ho fatto lo script perchè questo modo di analizzare
il quadro estrazionale è temporale.Secondo me,questo giochetto sta già funzionando oltre
le aspettative e non passerà molto temo che smetta di dare esiti,questo è il motivo di non
voler fare uno Script,se la tua visione apporta ulteriori potenzialità ben venga e ti invito
a scrivere bene i passaggi perchè io e il lettore capisca bene come ricavare una previsione
binaria a quella del Grafittaro
Clicca per espandere...
Ciao Marco, cosa dire, chiedo scusa per come ho descritto i passaggi pensando che evidenziandoli in grassetto fosse stato più semplice capirlo !
 
M

Marco-elle

Advanced Member >PLATINUM PLUS<
mister1729 ha scritto:
Ciao Marco, cosa dire, chiedo scusa per come ho descritto i passaggi pensando che evidenziandoli in grassetto fosse stato più semplice capirlo !
Clicca per espandere...
Ok,sono andato a rivedermi il post 123 e ora ho capito....in pratica con i capogiochi si uniscono gli ambetti in positivo,Diciamo che,l'ambetto in quartina paga come una ambata (poco meno) e si ha
più probabilità di vincita,tenendo conto che può uscire anche l'ambo
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 19 aprile 2024
    Bari
    39
    05
    81
    89
    73
    Cagliari
    56
    21
    01
    90
    03
    Firenze
    05
    56
    68
    27
    09
    Genova
    42
    50
    90
    27
    83
    Milano
    16
    71
    29
    85
    04
    Napoli
    29
    19
    23
    63
    50
    Palermo
    35
    54
    33
    57
    61
    Roma
    17
    29
    43
    55
    74
    Torino
    69
    60
    03
    01
    26
    Venezia
    05
    57
    59
    43
    34
    Nazionale
    30
    43
    64
    65
    21
    Estrazione Simbolotto
    Genova
    02
    20
    25
    12
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto