Il mio post è indirizzato a MAURO -EMME non a te.Ciao Claudio,
La tua replica non fa una piega e condivido,ammetto che in un mio intervento........
Sciau belo e mi raccomado!.....fammi vincere con i tuoi studi
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.
Il mio post è indirizzato a MAURO -EMME non a te.Ciao Claudio,
La tua replica non fa una piega e condivido,ammetto che in un mio intervento........
Sciau belo e mi raccomado!.....fammi vincere con i tuoi studi
Si ma nel tuo Tread in un mio intervento,posso esser stato fraintesoIl mio post è indirizzato a MAURO -EMME non a te.
Marco, non ti preoccupare dell'altro tread.Si ma nel tuo Tread in un mio intervento,posso esser stato frainteso
e non è così
Grazie per il tuo script. Ho preso l 81 a Bari in estratti semplice. Peccato per 81.61, ambo secco non giocato. Grazie ancora per l alta percentuale di positivi dei tuoi script.Attenzione all'ultima previsione.....ambata molto forte su BA
e "potrebbe"unirsi in ambo
Vedi l'allegato 2223386
Questa l'avevo pure consigliata e ammetto che questa volta l'ho persa x dimenticanzaAttenzione all'ultima previsione.....ambata molto forte su BA
e "potrebbe"unirsi in ambo
Vedi l'allegato 2223386
Tra le altre cose,vista la convergenza con ER GRAFITTARO....per come gioco io,Questa l'avevo pure consigliata e ammetto che questa volta l'ho persa x dimenticanza
e giocata fino a giovedi
argomento chiuso
Grazie x la fiducia e complimenti!BUONGIORNO A TUTTI
un doveroso complimento al Sig Marco perche tramite il suo script
" Metodo ricavato alla 5° del mese
con riferimento alla cadenza del 5° estratto della NZ metodo statistico "
ho centrato dopo poche estrazioni del 30/10 L' Ambo a Ruota BA 81.61
Grazie per impegno e la condivisione dei suoi studi
Un cordiale saluto GiusepPino
Ciao Alberto,buona sera nell'ultima previsione, la prevsine su bari è 41-87-32-41-14 visto che il 41 si ripete con cosa si sostituisce? con il 90 o un diametrale della quanantina? grazie
Sub Main()
ColoreTesto 2 :Scrivi "DIVENTIAMO TUTTI RICCHI"
Scrivi "GIOCA 1 CINQUINA SU BARI"
Scrivi "METODO BY MARCO"
ColoreTesto 0
Dim n(5)
Dim ruota(1)
Dim pt5(5)
pt5(2) = 1
pt5(3) = 1
pt5(4) = 1
pt5(5) = 1
clp = 10
co = 0
ini = 9500
For es = ini To EstrazioneFin
Messaggio(es)
For r = 12 To 12
For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
c = Estratto(es,r,p3)
ok = 0
If a < 10 And b < 10 And c < 10 Then
n(1) = Fuori90(Decina(Estratto(es,2,1)) + Cadenza(Estratto(es,2,1)) + Estratto(es,12,3) + 2)
n(2) = Fuori90((Decina(Estratto(es,2,2)) + Estratto(es,3,1) + 10))
n(3) = Fuori90((Decina(Estratto(es,8,1)) + Estratto(es,3,2) + 4))
n(4) = Fuori90((DiametraleD(Estratto(es,12,3)) + Estratto(es,10,5) + 65))
n(5) = Fuori90(Estratto(es,3,2) + Estratto(es,7,4) + 12)
ok = 1
End If
If Decina(a) = 1 And Decina(b) = 1 And Decina(c) = 1 Then
n(1) = Fuori90((Diametrale(Estratto(es,8,1)) + Estratto(es,4,2) + 31))
n(2) = Fuori90((Figura(Estratto(es,2,2)) + Estratto(es,4,5) + 24))
n(3) = Fuori90((Vert(Estratto(es,12,3)) + Estratto(es,8,2) + 63))
n(4) = Fuori90((Decina(Estratto(es,6,5)) + Estratto(es,10,3) + 4))
n(5) = Fuori90(Decina(Estratto(es,5,4)) + Cadenza(Estratto(es,5,4)) + Estratto(es,4,2) + 1)
ok = 1
End If
If Decina(a) = 2 And Decina(b) = 2 And Decina(c) = 2 Then
n(1) = Fuori90((Cadenza(Estratto(es,5,2)) + Estratto(es,12,1) + 37))
n(2) = Fuori90((Cadenza(Estratto(es,9,4)) + Estratto(es,9,4) + 52))
n(3) = Fuori90((Diametrale(Estratto(es,3,2)) + Estratto(es,6,1) + 4))
n(4) = Fuori90((ComplAdX(Estratto(es,4,1)) + Estratto(es,10,2) + 14))
n(5) = Fuori90(Estratto(es,1,1) + Estratto(es,12,5) + 3)
ok = 1
End If
If Decina(a) = 3 And Decina(b) = 3 And Decina(c) = 3 Then
n(1) = Fuori90(Estratto(es,1,3) + Estratto(es,7,1) + 1)
n(2) = Fuori90(Estratto(es,1,4) + Estratto(es,1,5) + 1)
n(3) = Fuori90(Estratto(es,1,1) + Estratto(es,7,2) + 1)
n(4) = Fuori90(Estratto(es,1,3) + Estratto(es,1,3) + 1)
n(5) = Fuori90(Estratto(es,3,4) + Estratto(es,7,1) + 1)
ok = 1
End If
If Decina(a) = 4 And Decina(b) = 4 And Decina(c) = 4 Then
n(1) = Fuori90((Vert(Estratto(es,6,4)) + Estratto(es,2,3) + 14))
n(2) = Fuori90((Diametrale(Estratto(es,5,2)) + Estratto(es,6,3) + 1))
n(3) = Fuori90((Figura(Estratto(es,12,4)) + Estratto(es,1,2) + 63))
n(4) = Fuori90((Decina(Estratto(es,12,3)) + Estratto(es,5,3) + 1))
n(5) = Fuori90(Decina(Estratto(es,5,4)) + Cadenza(Estratto(es,5,4)) + Estratto(es,10,4) + 39)
ok = 1
End If
If Decina(a) = 5 And Decina(b) = 5 And Decina(c) = 5 Then
n(1) = Fuori90((Diametrale(Estratto(es,3,4)) + Estratto(es,8,4) + 55))
n(2) = Fuori90((Figura(Estratto(es,5,1)) + Estratto(es,6,4) + 7))
n(3) = Fuori90((ComplAdX(Estratto(es,2,2)) + Estratto(es,4,4) + 1))
n(4) = Fuori90((Diametrale(Estratto(es,5,1)) + Estratto(es,5,2) + 25))
n(5) = Fuori90((Diametrale(Estratto(es,8,1)) + Estratto(es,12,2) + 1))
ok = 1
End If
If Decina(a) = 6 And Decina(b) = 6 And Decina(c) = 6 Then
n(1) = Fuori90((Decina(Estratto(es,2,1)) + Estratto(es,3,2) + 25))
n(2) = Fuori90((Decina(Estratto(es,5,2)) + Estratto(es,4,1) + 5))
n(3) = Fuori90((DiametraleD(Estratto(es,10,3)) + Estratto(es,9,1) + 1))
n(4) = Fuori90((Figura(Estratto(es,5,5)) + Estratto(es,6,3) + 6))
n(5) = Fuori90(Estratto(es,4,5) + Estratto(es,6,3) + 86)
ok = 1
End If
If Decina(a) = 7 And Decina(b) = 7 And Decina(c) = 7 Then
n(1) = Fuori90((Figura(Estratto(es,3,4)) + Estratto(es,10,2) + 67))
n(2) = Fuori90((Figura(Estratto(es,12,1)) + Estratto(es,8,2) + 13))
n(3) = Fuori90((Figura(Estratto(es,9,1)) + Estratto(es,2,4) + 26))
n(4) = Fuori90(Estratto(es,7,1) + Estratto(es,1,4) + 6)
n(5) = Fuori90(Estratto(es,10,4) + Estratto(es,3,5) + 1)
ok = 1
End If
If Decina(a) = 8 And Decina(b) = 8 And Decina(c) = 8 Then
n(1) = Fuori90((Figura(Estratto(es,10,4)) + Estratto(es,3,1) + 76))
n(2) = Fuori90((DiametraleD(Estratto(es,8,5)) + Estratto(es,4,2) + 1))
n(3) = Fuori90(Decina(Estratto(es,2,1)) + 13)
n(4) = Fuori90(Vert(Estratto(es,10,2)) + 33)
n(5) = Fuori90((Diametrale(Estratto(es,4,2)) + Estratto(es,8,3) + 1))
ok = 1
End If
If ok = 1 Then
ColoreTesto 2
Scrivi String(110,"*") : ColoreTesto 0
Scrivi "Data " & DataEstrazione(es) & " "
Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b & " " & c,1
Scrivi
ruota(1) = 1
EliminaRipetuti n
ImpostaGiocata 1,n,ruota,pt5,clp
Gioca es,1
End If
Next
Next
Next
Next
Next
Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
ScriviResoconto
End Sub
grazieCiao Alberto,
nella versione qui sotto ho inserito la funzione elimina ripetuti che.....
molte volte accade di avere un numero uguale dato da 2 algoritmi,
In genere i software in questi casi,sceglie la soluzione del +1
vedi te il da farsi
Codice:Sub Main() ColoreTesto 2 :Scrivi "DIVENTIAMO TUTTI RICCHI" Scrivi "GIOCA 1 CINQUINA SU BARI" Scrivi "METODO BY MARCO" ColoreTesto 0 Dim n(5) Dim ruota(1) Dim pt5(5) pt5(2) = 1 pt5(3) = 1 pt5(4) = 1 pt5(5) = 1 clp = 10 co = 0 ini = 9500 For es = ini To EstrazioneFin Messaggio(es) For r = 12 To 12 For p1 = 1 To 3 For p2 = p1 + 1 To 4 For p3 = p2 + 1 To 5 a = Estratto(es,r,p1) b = Estratto(es,r,p2) c = Estratto(es,r,p3) ok = 0 If a < 10 And b < 10 And c < 10 Then n(1) = Fuori90(Decina(Estratto(es,2,1)) + Cadenza(Estratto(es,2,1)) + Estratto(es,12,3) + 2) n(2) = Fuori90((Decina(Estratto(es,2,2)) + Estratto(es,3,1) + 10)) n(3) = Fuori90((Decina(Estratto(es,8,1)) + Estratto(es,3,2) + 4)) n(4) = Fuori90((DiametraleD(Estratto(es,12,3)) + Estratto(es,10,5) + 65)) n(5) = Fuori90(Estratto(es,3,2) + Estratto(es,7,4) + 12) ok = 1 End If If Decina(a) = 1 And Decina(b) = 1 And Decina(c) = 1 Then n(1) = Fuori90((Diametrale(Estratto(es,8,1)) + Estratto(es,4,2) + 31)) n(2) = Fuori90((Figura(Estratto(es,2,2)) + Estratto(es,4,5) + 24)) n(3) = Fuori90((Vert(Estratto(es,12,3)) + Estratto(es,8,2) + 63)) n(4) = Fuori90((Decina(Estratto(es,6,5)) + Estratto(es,10,3) + 4)) n(5) = Fuori90(Decina(Estratto(es,5,4)) + Cadenza(Estratto(es,5,4)) + Estratto(es,4,2) + 1) ok = 1 End If If Decina(a) = 2 And Decina(b) = 2 And Decina(c) = 2 Then n(1) = Fuori90((Cadenza(Estratto(es,5,2)) + Estratto(es,12,1) + 37)) n(2) = Fuori90((Cadenza(Estratto(es,9,4)) + Estratto(es,9,4) + 52)) n(3) = Fuori90((Diametrale(Estratto(es,3,2)) + Estratto(es,6,1) + 4)) n(4) = Fuori90((ComplAdX(Estratto(es,4,1)) + Estratto(es,10,2) + 14)) n(5) = Fuori90(Estratto(es,1,1) + Estratto(es,12,5) + 3) ok = 1 End If If Decina(a) = 3 And Decina(b) = 3 And Decina(c) = 3 Then n(1) = Fuori90(Estratto(es,1,3) + Estratto(es,7,1) + 1) n(2) = Fuori90(Estratto(es,1,4) + Estratto(es,1,5) + 1) n(3) = Fuori90(Estratto(es,1,1) + Estratto(es,7,2) + 1) n(4) = Fuori90(Estratto(es,1,3) + Estratto(es,1,3) + 1) n(5) = Fuori90(Estratto(es,3,4) + Estratto(es,7,1) + 1) ok = 1 End If If Decina(a) = 4 And Decina(b) = 4 And Decina(c) = 4 Then n(1) = Fuori90((Vert(Estratto(es,6,4)) + Estratto(es,2,3) + 14)) n(2) = Fuori90((Diametrale(Estratto(es,5,2)) + Estratto(es,6,3) + 1)) n(3) = Fuori90((Figura(Estratto(es,12,4)) + Estratto(es,1,2) + 63)) n(4) = Fuori90((Decina(Estratto(es,12,3)) + Estratto(es,5,3) + 1)) n(5) = Fuori90(Decina(Estratto(es,5,4)) + Cadenza(Estratto(es,5,4)) + Estratto(es,10,4) + 39) ok = 1 End If If Decina(a) = 5 And Decina(b) = 5 And Decina(c) = 5 Then n(1) = Fuori90((Diametrale(Estratto(es,3,4)) + Estratto(es,8,4) + 55)) n(2) = Fuori90((Figura(Estratto(es,5,1)) + Estratto(es,6,4) + 7)) n(3) = Fuori90((ComplAdX(Estratto(es,2,2)) + Estratto(es,4,4) + 1)) n(4) = Fuori90((Diametrale(Estratto(es,5,1)) + Estratto(es,5,2) + 25)) n(5) = Fuori90((Diametrale(Estratto(es,8,1)) + Estratto(es,12,2) + 1)) ok = 1 End If If Decina(a) = 6 And Decina(b) = 6 And Decina(c) = 6 Then n(1) = Fuori90((Decina(Estratto(es,2,1)) + Estratto(es,3,2) + 25)) n(2) = Fuori90((Decina(Estratto(es,5,2)) + Estratto(es,4,1) + 5)) n(3) = Fuori90((DiametraleD(Estratto(es,10,3)) + Estratto(es,9,1) + 1)) n(4) = Fuori90((Figura(Estratto(es,5,5)) + Estratto(es,6,3) + 6)) n(5) = Fuori90(Estratto(es,4,5) + Estratto(es,6,3) + 86) ok = 1 End If If Decina(a) = 7 And Decina(b) = 7 And Decina(c) = 7 Then n(1) = Fuori90((Figura(Estratto(es,3,4)) + Estratto(es,10,2) + 67)) n(2) = Fuori90((Figura(Estratto(es,12,1)) + Estratto(es,8,2) + 13)) n(3) = Fuori90((Figura(Estratto(es,9,1)) + Estratto(es,2,4) + 26)) n(4) = Fuori90(Estratto(es,7,1) + Estratto(es,1,4) + 6) n(5) = Fuori90(Estratto(es,10,4) + Estratto(es,3,5) + 1) ok = 1 End If If Decina(a) = 8 And Decina(b) = 8 And Decina(c) = 8 Then n(1) = Fuori90((Figura(Estratto(es,10,4)) + Estratto(es,3,1) + 76)) n(2) = Fuori90((DiametraleD(Estratto(es,8,5)) + Estratto(es,4,2) + 1)) n(3) = Fuori90(Decina(Estratto(es,2,1)) + 13) n(4) = Fuori90(Vert(Estratto(es,10,2)) + 33) n(5) = Fuori90((Diametrale(Estratto(es,4,2)) + Estratto(es,8,3) + 1)) ok = 1 End If If ok = 1 Then ColoreTesto 2 Scrivi String(110,"*") : ColoreTesto 0 Scrivi "Data " & DataEstrazione(es) & " " Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r) Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b & " " & c,1 Scrivi ruota(1) = 1 EliminaRipetuti n ImpostaGiocata 1,n,ruota,pt5,clp Gioca es,1 End If Next Next Next Next Next Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1 ScriviResoconto End Sub
ho questo listato ma vorrei modificarlo puoi fare qualcosa ? grazie in anticipograzie
grazie ugualmente buona serataNon volermene ma....ho un periodo movimentato e non ho voglia
di cimentarmi, ma vedrai che Toon o qualcun altro ti farà la modifica da te richiesta
Complimenti !!Ha pagato a colpo 2 previsioni su 3
Vedi l'allegato 2224354