Si richiede un listato per questo metodo niente male

[solare]

Questo metodo è saltato fuori dai tanti metodi archiviati sembra essere ancora valido se qualcuno capace di fare uno script così possiamo beneficiare in tanti.........
provare ha vincere con questo gioco e quindi di cercare unmetodo che dia una probabilità statistica
del 100% di vittoria con almeno un 'ambata all'attivo,e dopoi vari consigli e spunti presi da questo
mensile, posso dire di esserci riuscito al 99% in un massimodi 4 colpi di gioco.Spero venga pubblicata
questa mia tecnica, frutto di molte ore di studio sullarivista nella sezione delle metodologie dei
lettori, anche perchè ho scoperto che si viene pagati.Passoora ad illustrare il mio lavoro:
-I00% AMBATA ,MA PER VINCERE IL TERNO! -
Questa tecnica è il risultato di varie ricerche dovute alfatto che tutti i giocatori del lotto cercano la
vincita costante e in pochi colpi con una garanzia minima diun 'ambata per il recupero spese.
La tecnica propone un gioco di 2 ambate e 4 temi su 2 ruoteper un massimo di 4 colpi.
Ecco le condizioni di ricerca:
a2 ruote, b numero stessa posizione; D il numero di ricercao una delle 2 ambate finali
non deve essere neun gemello ne un zerato ; e_la somma tra i 2 numeri di ricerca non deve
superare il 90, f)una delle 2 ambate non deve essere presente nella ruota di ricerca, g nelleruote di ricerca non ci deve essere uno o più numeri della stessa cadenza delnumero di ricerca;
In conclusione inumeri di ricerca validi sono:
6-7-8-9-12-13-14-16-17-18-19-21-23-24-26-27-28-29-31-32-34-36-37-38-39-41-42-43
ITER: Rintracciare nella stessa estrazione in 2ruote diverse ,lo stesso numero e nella stessa
posizione.Il numero di ricerca dovrà essere sommato e questorisutato sarà la nostra ambata; la
seconda ambata sarà il vertibile della primaLe 2 ambateverranno messe in gioco per un massimo di 4
colpi (anche se al 80 % si vince entro il terzo colpo) sulleruote di ricerca.
Per formare le 4 terzine abbineremo il numero anticedente eil numero conseguente delle 2
ambate,‘esempio:ambate 46 - 64 quindi :46=45 e 47,‘ 64 =63 e65 ;temi in gioco:46-64-45 ,' 46-64-47 ,‘
46-64-63 ; 46-64-65 .
ESEMPIO DI GIOCO. Il 7/4/2001 sulle ruotedi Firenze e Palermo sorti in terza posizione il numero
34,verificate le condizioni di ricerca eseguiamo questasemplice operazione,
34 +34 =68 ,prima ambata.‘ il vertibile del numero 68 è 86 secondaambata.
Cerchiamo ora i numeri per i temi: 68-1= 67, 68+1 =69 ; 86-1=85, 86+1 =87, 86+1=8Z .
Previsione : Firenze e Palermo ,ambate 68 e 86 ,terzine perambo e temo 68-86-67 , 68-86-69 , 68-
86-85, 68-86-87.
Esito: Al 1° colpo sulla ruota di Palermo uscì l 'ambata 68e due ambi in terzina 68-67 e 68-85 .
-L'ambo in terzina paga 83 volte la posta ,il temo secco4500 volte la posta.
NOTE.‘ 1)Seguendo tutti i consigli dati la tecnica da unrisultato unico e fino ad ora mai
raggiuntodella vincita in un massimo di 4 colpi con l'uscitadi un 'ambata al 90 %;
2)La vincita è pressocchè sicura quando questa non è unritardatario e il suo numero di ricerca non è
presente nella altra ruote della stessa estrazione ;
3)La ruota che da maggiori vincite ,statis’ticamente è laseconda.

 

[Mike58]

Ciao Solare, ho letto quanto asserito nella tua presentazione ed ho voluto sperimentare il metodo con lo script.
Sicuramente non tutte le condizioni richieste sono soddisfatte, ma in ogni modo possiamo valutarne la resa metodo almeno per buona parte.

Il risultato si evidenzia da solo.

Sub Main()
    'cerca numero isotopo su 2 ruote
    Scrivi"Listato per ricerca Numero iso ",True,False,2,4,3
    Scrivi" **** Metodo by Solare ***** ",True,False,4,2,3
    Scrivi" **** Listed by Mike58 ***** ",True,True,3,1,3
    Dim k(2),kk(6)',kkk(3)
    Dim ruote(2)
    Dim posta(5)
    Dim poste(5)
    posta(1) = 3
    poste(2) = 1.5
    poste(3) = .5
    tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",100))
    clp1 = CInt(InputBox("Per quanti colpi di gioco 'AMBATA' ?","COLPI",4))
    clp2 = CInt(InputBox("Per quanti colpi di gioco 'AMBO'?","COLPI",12))
    co = 0
    ini = EstrazioneFin - tmp
    fin = EstrazioneFin
    For es = ini To fin
        Call Messaggio("Elaboro Estrazioni . . . . . . " & es & "     *  * * * Script by Mike58 * * * * ")
        Call AvanzamentoElab(Ini,fin,es)
        For r1 = 1 To 10
            For r2 = r1 + 1 To 12
                If r2 = 11 Then r2 = 12
                For p1 = 1 To 5
                    n1 = Estratto(es,r1,p1)
                    n2 = Estratto(es,r2,p1)
                    If n1 = n2 Then ' numero = numero
                        If n1 <> Gemello(n1) Then ' il numero non è un gemello
                            If Cadenza(n1) <> 0 Then ' il numero non è di cadenza zero
                                If n1 + n2 < 91 Then ' la somma dei numeri isotopi è inferiore a 91
                                    co = co + 1
                                    ColoreTesto 0
                                    ruote(1) = r1
                                    ruote(2) = r2
                                    '--------- Calcolo Numeri ma mettere in gioco-------------
                                    k(1) = Fuori90(n1*2)
                                    k(2) = Vert(k(1))
                                    kk(1) = k(1)
                                    kk(2) = k(2)
                                    kk(3) = kk(1) - 1
                                    kk(4) = kk(1) + 1
                                    'kk(1) = k(2) - 1
                                    kk(5) = k(2) - 1
                                    kk(6) = k(2) + 1
                                    EliminaRipetuti(kk)
                                    If k(1) And k(2) <> n1 Or n2 Then ' i numeri non sono presenti nella estrazione
                                        'If k(1) Or k(2)
                                        '---------------------------------------------------------
                                        Scrivi String(135,"=")
                                        ColoreTesto 1
                                        Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & " ---> isotopo " & n1 & " - " & " Posiz. " & p1,1
                                        Scrivi DataEstrazione(es) & "  " & SiglaRuota(r2) & "  " & StringaEstratti(es,r2) & " ---> isotopo " & n2 & " - " & " Posiz. " & p1,1
                                        Scrivi String(125,"-") & " Caso n° " & co,1
                                        ColoreTesto 0
                                        ImpostaGiocata 1,k,ruote,posta,clp1,1
                                        ImpostaGiocata 2,kk,ruote,poste,clp2,2
                                        'ImpostaGiocata 3,kkk,ruote,poste,clp2,2
                                        Gioca es,1,,1
                                    End If
                                End If
                            End If
                        End If
                    End If
                Next
            Next
        Next
    Next
    Scrivi
    Scrivi "Casi Riscontrati n° " & CInt(co)
    ScriviResoconto
End Sub

 

[desperaux]

Ciao Mike58

ringrazio anch'io per il tuo lavoro.

Posso chiederti perche' in data 25 giugno 2013 ,eì sortito il 79 isotopo su BA-CA ma non compare nellìelenco?

grazie

 

[Mike58]

Ciao Desperaux,il perchè del 79 isotopo è spiegato dal fatto che una delle condizioni è che la somma isotopa non deve superare il 90 (senza il fuori 90) e quindi non deve essere preso in considerazione.

ciao

 

[solare]

Grazie Mike58, ottimo

 

[desperaux]

Ciao Mike58

chiedo scusa hai ragione ,era scritto pure

Grazie ancora

 

[trylli]

scusate ma a me mi da errore lo scrip mi dice linea 3 colnna 4 errore..scrivi

 

[Mike58]

Ciao Trylli, penso che l'errore sia sui codici scrivi, per leggere in modo corretto questa istruzione devi avere la versione ultima si spaziometria 1.4,32 altrimenti, spunta con apice le righe di scrittura che danno errore.
prova a vedere.

ciao

 

[solare]

Previsione del 25/6/13 sulle ruote di Mi Ve ambata e ambo 58--85>>>>>>>>Abbinamento 57-59-84-86 al secondo colpo ambata e terno in sestina a Milano 58-26-41-59-86

 

[trylli]

Ciao Trylli, penso che l'errore sia sui codici scrivi, per leggere in modo corretto questa istruzione devi avere la versione ultima si spaziometria 1.4,32 altrimenti, spunta con apice le righe di scrittura che danno errore.
prova a vedere.

ciao

ciao mike chiedo a te una cortesia ..io si ho la vecchianversione di spazio..mi correggereti lo script copiandomelo qui sotto.. l errore sta nella riga tre colonna quattro nella parola scrivi.. in pratica la riga tre e' tutta evidenziata in nero.. grazie se puoi!

 

[Mike58]

CIAO Trylli, corretto cosi divrebbe funzionare con le vecchie versioni, anche se il mio invito è quello di aggiornare alla ultima versione.

Sub Main()
    'cerca numero isotopo su 2 ruote
    Scrivi"Listato per ricerca Numero iso ",1
    Scrivi" **** Metodo by Solare ***** ",1
    Scrivi" **** Listed by Mike58 ***** ",1
    Dim k(2),kk(6)',kkk(3)
    Dim ruote(2)
    Dim posta(5)
    Dim poste(5)
    posta(1) = 3
    poste(2) = 1.5
    poste(3) = .5
    tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",100))
    clp1 = CInt(InputBox("Per quanti colpi di gioco 'AMBATA' ?","COLPI",4))
    clp2 = CInt(InputBox("Per quanti colpi di gioco 'AMBO'?","COLPI",12))
    co = 0
    ini = EstrazioneFin - tmp
    fin = EstrazioneFin
    For es = ini To fin
        Call Messaggio("Elaboro Estrazioni . . . . . . " & es & "     *  * * * Script by Mike58 * * * * ")
        Call AvanzamentoElab(Ini,fin,es)
        For r1 = 1 To 10
            For r2 = r1 + 1 To 12
                If r2 = 11 Then r2 = 12
                For p1 = 1 To 5
                    n1 = Estratto(es,r1,p1)
                    n2 = Estratto(es,r2,p1)
                    If n1 = n2 Then ' numero = numero
                        If n1 <> Gemello(n1) Then ' il numero non è un gemello
                            If Cadenza(n1) <> 0 Then ' il numero non è di cadenza zero
                                If n1 + n2 < 91 Then ' la somma dei numeri isotopi è inferiore a 91
                                    co = co + 1
                                    ColoreTesto 0
                                    ruote(1) = r1
                                    ruote(2) = r2
                                    '--------- Calcolo Numeri ma mettere in gioco-------------
                                    k(1) = Fuori90(n1*2)
                                    k(2) = Vert(k(1))
                                    kk(1) = k(1)
                                    kk(2) = k(2)
                                    kk(3) = kk(1) - 1
                                    kk(4) = kk(1) + 1
                                    'kk(1) = k(2) - 1
                                    kk(5) = k(2) - 1
                                    kk(6) = k(2) + 1
                                    EliminaRipetuti(kk)
                                    If k(1) And k(2) <> n1 Or n2 Then ' i numeri non sono presenti nella estrazione
                                        'If k(1) Or k(2)
                                        '---------------------------------------------------------
                                        Scrivi String(135,"=")
                                        ColoreTesto 1
                                        Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & " ---> isotopo " & n1 & " - " & " Posiz. " & p1,1
                                        Scrivi DataEstrazione(es) & "  " & SiglaRuota(r2) & "  " & StringaEstratti(es,r2) & " ---> isotopo " & n2 & " - " & " Posiz. " & p1,1
                                        Scrivi String(125,"-") & " Caso n° " & co,1
                                        ColoreTesto 0
                                        ImpostaGiocata 1,k,ruote,posta,clp1,1
                                        ImpostaGiocata 2,kk,ruote,poste,clp2,2
                                        'ImpostaGiocata 3,kkk,ruote,poste,clp2,2
                                        Gioca es,1,,1
                                    End If
                                End If
                            End If
                        End If
                    End If
                Next
            Next
        Next
    Next
    Scrivi
    Scrivi "Casi Riscontrati n° " & CInt(co)
    ScriviResoconto
End Sub

 

[trylli]

grazie mille ora funzionaaaaaaaaaaa

 

[solare]

Ciao Mike58, quale condizione mancherebbe al listato per essere completo. Grazie

 

[Mike58]

una delle 2 ambate non deve essere presente nella ruota di ricerca

Ciao solare lo dicitura sopra non l'ho considerata, perchè non semplice da scrivere in quel momento.

 

[solare]

Grazie mike58