Formula 6-84 (by Marco LMS)

[Marco-elle]

Formula 6-84
53-29
53-46
53-49
53-64
8-29-46-49-64 (ambo e terno)

basta trovare nel quadro estrazionale i due numeri, uno su una ruota e l'altro su un altra ruota,
se,le ruote cominciano ad essere tre o più meglio laciar perdere,perchè il gioco non sarebbe
più redditizio.Per avere più chance,andare a ritroso di 7/8 estrazioni e verivicare che,non sia
presente l'ambo o l'ambo in cinquina

 

[vivo]

basta leggere, ma non ci capisco nulla, ne della ruota ne delle combinazioni, potresti gntilmente spiegarci qualche cosa in più?

 

[kira]

basta trovare il nr 6 su una ruota qualsiasi e l'84 su un'altra ruota e si mettono in gioco i 4 ambi su quelle ruote ...oppure le 2 cinquine x ambo e terno.....spero di essermi spiegata vivo..

scusa Ims se mi sono permessa

 

[vivo]

grazie, ora è chiaro, non avevo visto post precedenti che specificassero

 

[Marco-elle]

basta trovare il nr 6 su una ruota qualsiasi e l'84 su un'altra ruota e si mettono in gioco i 4 ambi su quelle ruote ...oppure le 2 cinquine x ambo e terno.....spero di essermi spiegata vivo..

scusa Ims se mi sono permessa

Grazie Kira per la spiegazione
Può capitare che nella medesima estrazione ci siano più ruote
in gioco,quindi è meglio evitare perchè il gioco diventa troppo
oneroso,almenochè non ci siano delle convergenze.

Per chi usa SPZIOMETRIA, vi allego il Listato,così vi facilita le ricerche

Sub Main()
    Dim ruote(10)
    Dim n1(1)
    Dim n2(2)
    Dim n3(2)
    Dim n4(2)
    Dim n5(2)
    Dim n6(5)
    Dim posta(1)
    Dim poste(10)
    posta(1) = 1
    poste(2) = 1
    ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",150)
    k = InputBox("per quanti colpi?","colpi di gioco",15)
    ini = EstrazioneFin - ce
    fin = EstrazioneFin
    casi = 0
    ok = 0
    For es = ini To fin
        Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
        Call AvanzamentoElab(Ini,fin,es)
        For r1 = 1 To 9
            For r2 = r1 + 1 To 10
                For p1 = 1 To 5
                    For p2 = 1 To 5
                        a = Estratto(es,r1,p1)
                        b = Estratto(es,r2,p2)
                        If a = 6 And b = 84 Or a = 84 And b = 6 Then
                            ok = 1
                            If ok = 1 Then
                                n1(1) = 53
                                n2(1) = 53
                                n2(2) = 29
                                n3(1) = 53
                                n3(2) = 46
                                n4(1) = 53
                                n4(2) = 49
                                n5(1) = 53
                                n5(2) = 64
                                n6(1) = 8
                                n6(2) = 29
                                n6(3) = 46
                                n6(4) = 49
                                n6(5) = 64
                                casi = casi + 1
                                Scrivi String(100,"°") & " Caso n°" & casi,1
                                ColoreTesto 1

                                Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
                                " ] * [ " & Format2(a) & " ]" & "  *   Figura : " & " [ " & Figura(a) & " ] ",1
                                Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
                                " ] * [ " & Format2(b) & " ]" & "  *   Figura : " & " [ " & Figura(b) & " ] ",1
                                ruote(1) = r1
                                ruote(2) = r2
                                ColoreTesto 0
                                ImpostaGiocata 1,n1,ruote,posta,k
                                ImpostaGiocata 2,n2,ruote,poste,k,2
                                ImpostaGiocata 3,n3,ruote,poste,k,2
                                ImpostaGiocata 4,n4,ruote,poste,k,2
                                ImpostaGiocata 5,n5,ruote,poste,k,2
                                ImpostaGiocata 6,n6,ruote,poste,k,2
                                Gioca es,1
                            End If
                        End If
                    Next
                Next
            Next
        Next
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & casi,1
    ColoreTesto 0
    Scrivi String(100," * ")
    ColoreTesto 0
    ScriviResoconto
End Sub