Metodo "ER GRAFITTARO"

[Julietta]

Quindi tutti su Roma. Mi voglio rovinare stavolta Marco. Mi fido di te!

 

[Marco-elle]

Dalla condizione di CA-TO del 2/11
CA 7 e TO 16
al 6° colpo ambetto 16-24 su TO

 

[mister1729]

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!

 

[Marco-elle]

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!

Ottimo!
I suggerimenti sono sempre graditi per arrivare a vincite succulente

 

[mister1729]

Ottimo!
I suggerimenti sono sempre graditi per arrivare a vincite succulente

Grazie il merito e tutto tuo

 

[Marco-elle]

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

 

[mister1729]

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

Grazie mille

 

[Marco-elle]

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

La PA-RO ha in gioco 19-29/5-14

 

[farfalla2]

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.

 

[Marco-elle]

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.

Ciao Farfalla,
Questo pomeriggio quando rientro
Lo faccio girare,intanto grazie

 

[chloe]

Bravissimo Marco,io sto portando avanti Palermo Roma e Roma Venezia

 

[Marco-elle]

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

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

 

[maurizia]

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

Peccato! Giocati in tutte le salse.
Avanti con la prossima!

 

[Marco-elle]

Peccato! Giocati in tutte le salse.
Avanti con la prossima!

Purtroppo aver la pretesa che ogni condizione vada a segno,è utopia ma.....
la famosa formula che mi ha fatto perdere la quaterna,sta regalando ottime vincite
e quello che mi fa rabbia....proprio sulla ruota che speravo

 

[mister1729]

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!

 

[mister1729]

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.

 

[Marco-elle]

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!

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

 

[mister1729]

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

Ciao Marco, cosa dire, chiedo scusa per come ho descritto i passaggi pensando che evidenziandoli in grassetto fosse stato più semplice capirlo !

 

[Marco-elle]

Ciao Marco, cosa dire, chiedo scusa per come ho descritto i passaggi pensando che evidenziandoli in grassetto fosse stato più semplice capirlo !

Non devi scusarti ma,se inserisci passaggio x passaggio iniziando dalla condizione di ricerca
ci rendi la cosa più facile

 

[Marco-elle]

Ciao Marco, cosa dire, chiedo scusa per come ho descritto i passaggi pensando che evidenziandoli in grassetto fosse stato più semplice capirlo !

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